bonjour !
J ai un probleme sur ma 2eme boucle...erreur 91...
Ce code me permet de
1/ouvrir des fichiers excel et y appliquer une macro
2/enregistrer tous les fichiers ouverts au format excel
J suis un gros novice en VB mais je pense que soit je n arrive pas a instancier la variable activeworkbook.Name soit il faut une condition de sortie pour faire comprendre que quand tous les fichiers sont fermés, il faut s'arrêter...
Merci à tous, voici le code :
'
Dim sFichier As String





'Définir le chemin
ChDir ("C:\nico\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:\nico\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