Excel - Projet ou bibliotheque introuvable

Asked By Michel on 08-Aug-09 10:14 AM
Bonjour,

A l'ouverture d'un classeur(Excel 2003) j'ai le bout de code ci-dessous
qui s'excute automatiquement et qui fonctionnait bien jusqu'a
aujourd-hui.
Maintenant j'ai l'erreur suivante:


Si je fait un copi?/coll? du code dans un nouveau classeur c'est bon
cela fonctionne

Je tourne je tourne, et ne trouve pas le pourquoi.

Un peut d'aide merci


-------------------------------------------------------------------
Public Nom_du_Serveur As String
Public Nom_du_Domaine As String
Public Nom_du_partage_utilisateurs As String
Public dc As String
Public dc1 As String
Public Nom_du_script_ouverture_de_session As String
Public Repertoire_de_Travail As String
Public Fichier As String

Sub saisie()
Nom_du_Serveur = InputBox("Saisie du nom du serveur", "Nom du Serveur")
Nom_du_Domaine = InputBox("Saisie du nom du domaine", "Nom du Domaine")
Nom_du_script_ouverture_de_session = InputBox("Saisie du nom du script
de login (EX: login.bat)", "Nom du Script de login")
Nom_du_partage_utilisateurs = InputBox("Saisie du nom du partage des
utilisateurs sur le serveur", " Nom du partage Utilisateurs")
longueur_nom_domaine = Len(Nom_du_Domaine)
LL = Split(Nom_du_Domaine, ".")
Taille2 = UBound(LL)
dc1 = LL(Taille2)
m = Len(dc1)
dc = Left(Nom_du_Domaine, longueur_nom_domaine - m)
End Sub
--------------------------------------------------------------------




MichDenis replied on 08-Aug-09 10:26 AM
Bonjour Michel,

Ouvre l'?diteur de code : Raccourci Alt +F1
barre de menu / outils / r?f?rences /
D?coche la r?f?rence marqu?e "Manquante"



mn.43ce7d989e30c989.62698@nul.net...
Bonjour,

A l'ouverture d'un classeur(Excel 2003) j'ai le bout de code ci-dessous
qui s'excute automatiquement et qui fonctionnait bien jusqu'a
aujourd-hui.
Maintenant j'ai l'erreur suivante:


Si je fait un copi?/coll? du code dans un nouveau classeur c'est bon
cela fonctionne

Je tourne je tourne, et ne trouve pas le pourquoi.

Un peut d'aide merci


-------------------------------------------------------------------
Public Nom_du_Serveur As String
Public Nom_du_Domaine As String
Public Nom_du_partage_utilisateurs As String
Public dc As String
Public dc1 As String
Public Nom_du_script_ouverture_de_session As String
Public Repertoire_de_Travail As String
Public Fichier As String

Sub saisie()
Nom_du_Serveur = InputBox("Saisie du nom du serveur", "Nom du Serveur")
Nom_du_Domaine = InputBox("Saisie du nom du domaine", "Nom du Domaine")
Nom_du_script_ouverture_de_session = InputBox("Saisie du nom du script
de login (EX: login.bat)", "Nom du Script de login")
Nom_du_partage_utilisateurs = InputBox("Saisie du nom du partage des
utilisateurs sur le serveur", " Nom du partage Utilisateurs")
longueur_nom_domaine = Len(Nom_du_Domaine)
LL = Split(Nom_du_Domaine, ".")
Taille2 = UBound(LL)
dc1 = LL(Taille2)
m = Len(dc1)
dc = Left(Nom_du_Domaine, longueur_nom_domaine - m)
End Sub
--------------------------------------------------------------------
Michel replied on 08-Aug-09 10:37 AM
Le 08/08/2009, MichDenis a suppos? :
Super, effectivement il y avait bien une r?f?rence marqu?e manquante.
Pour info Pdf Creator que j'avais test?e sans r?sultat et oubli? de
nettoyer.

Un grand Merci.

Michel