---------------------------- FIN du SCRIPT -----------------------
quand je remplace la ligne :
strTelephoneNumber = ObjExcel.Cells(1,2).Value
par :
strTelephoneNumber = "55555"
le script fonctionne par contre je le peux pas récupérer la valeur dans le fichier excel. Il me semble que cela se produit à cause du type de la variable.
Ligne Type de variable strTelephoneNumber = ObjExcel.Cells(1,2).Value vbDouble strTelephoneNumber = "55555" vbString
Marsh Posté le 04-10-2005 à 16:47:53
Bonjour,
Je viens de créer un fichier Excel avec la liste des comptes que je veux créer dans l'Active Directory.
Voici un extrait du script que j'utilise pour créer mes utilisateurs
strContainer = XXXXXXX
Set objExcel = CreateObject("Excel.Application" )
Set objWorkBook = objExcel.Workbooks.Open ("TOTO.XLS" )
Set objContainer = GetObject("LDAP://" & strContainer)
...
strTelephoneNumber = ObjExcel.Cells(1,2).Value
...
Set objUser = objContainer.Create("user", "cn=NomUtilisateur" )
...
objUser.Put "telephoneNumer", strTelephoneNumber
...
---------------------------- FIN du SCRIPT -----------------------
quand je remplace la ligne :
strTelephoneNumber = ObjExcel.Cells(1,2).Value
par :
strTelephoneNumber = "55555"
le script fonctionne par contre je le peux pas récupérer la valeur dans le fichier excel.
Il me semble que cela se produit à cause du type de la variable.
Ligne Type de variable
strTelephoneNumber = ObjExcel.Cells(1,2).Value vbDouble
strTelephoneNumber = "55555" vbString
Si quelqu'un pouvait m'aider ?
merci d'avance