Format du fichier

Bonjour je me suis fait un petit script en récupérant des parties ici et là...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set objDictionary = CreateObject("Scripting.Dictionary") Set objOU = GetObject("LDAP://ou=Classes, ou=Classes76,ou=Ecoles,dc=dom,dc=local") objOU.Filter = Array("User") Const ForAppending = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objXL = WScript.CreateObject("Excel.Application") Set objTextFile = objFSO.OpenTextFile _ ("C:\Users\mikeD\Desktop\testScript\status.xls", ForAppending, True)   For Each objUser in objOU strUser = objUser.distinguishedName If Not objDictionary.Exists(strUser) Then   objTextFile.WriteLine(strUser & vbTab & objUser.homeDrive & objUser.homeDirectory & vbTab & objUser.scriptPath)   End If Next

---

Ça fonctionne très bien toutefois quand j'ouvre le fichier .xls... j'ai une information qui me dit..."le format de fichier que vous tentez d'ouvrir est différent de celui spécifié par l'extension de fichier


Une idée pour corriger la situation?

Merci

Bonjour,

Citation:

---

Une idée pour corriger la situation?

---

Oui oui.
Bien que tu aies mis une extension Excel à ton fichier, il est au format texte et ne correspond pas du tout à du contenu Exel.

Tu peux donc changer l'extension de ton fichier (en txt par exemple) pour voir ce qu'il y a dedans.

Si tu veux l'ouvrir avec Excel, tu peux créer un fichier CSV (dans ce cas cette ligne "Set objXL = WScript.CreateObject("Excel.Application")" ne te sert à rien) :

Code:

---

1 2 3 4 5 6 7 8 9

... Set objTextFile = objFSO.OpenTextFile _ ("C:\Users\mikeD\Desktop\testScript\status.csv", ForAppending, True) For Each objUser in objOU strUser = objUser.distinguishedName If Not objDictionary.Exists(strUser) Then objTextFile.WriteLine(strUser & ";" & objUser.homeDrive & ";" & objUser.homeDirectory & ";" & objUser.scriptPath) End If Next

---

Ou sinon, piloter Excel pour écrire tes données, mais dans ce cas, oublie le "OpenTextFile" et le "WriteLine" et prend plutôt exemple sur la FAQ VBS.

Bonne continuation.

Merci j'ai opté pour l'option du fichier txt seulement...