Erreur 91

Question

Bonjour !
J ai un message d'erreur sur le code suivant...erreur 91 variable non d&#233;finie...excel pointe sur la derni&#232;re boucle "ActiveWorbook.SaveAs...."
Quelqu'un pourrait-il me donner la solution svp...
D'avance merci !

Dim sFichier As String


'D&#233;finir le chemin
ChDir ("C:
ico\analyse\en cours")


'Ouvrir tous les fichiers
sFichier = Dir("*.*")
Do Until sFichier = ""
Workbooks.OpenText (sFichier), Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
        (3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
        10, 1), Array(11, 1))
Application.Run "PERSO.XLS!Macro10"
       
sFichier = Dir()


Loop
ChDir "C:
ico\analyse\en cours\final"
'enregistrer les fichiers au format excel
Do


ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Loop
End Sub

Zlub · Answer

Salut capaine93,


Je comprend pas trop pourquoi tu boucles sur l'enregistrement .. une fois que c'est sauver, c'est bon non ?
Tu veux Graver sur ton disque dur ? LOL

++

Zlub

captaine93 · Answer

le probleme est que les fichiers sont au format txt a la base...donc je fais une boucle pour sauvegarder automatiquement tous les fichiers au format xls !

Erreur 91

2 réponses

Discussions similaires