Bonjour,
j'ai un petit souci. Je souhaites ouvrir les fichiers Excel d'un répertoire et les formater ensuite. Je n'ai pas de problème à réaliser ceci lorsque j'ouvre des fichiers excel qui ne contiennent pas de macro, par contre mon problème, c'est que les fichiers que je veux ouvrir contiennent des macros.
Le code ci-dessous ouvre bien le premier Excel qu'il trouve mais n'exécute pas la suite du code (formatage)
merci pour votre aide
j'ai un petit souci. Je souhaites ouvrir les fichiers Excel d'un répertoire et les formater ensuite. Je n'ai pas de problème à réaliser ceci lorsque j'ouvre des fichiers excel qui ne contiennent pas de macro, par contre mon problème, c'est que les fichiers que je veux ouvrir contiennent des macros.
Le code ci-dessous ouvre bien le premier Excel qu'il trouve mais n'exécute pas la suite du code (formatage)
Code:
Sub formatage()
Dim maxi As Integer
Dim File_Is As String
File_Is = Dir("d:\Documents and Settings\T0061504\Bureau\Test\*.XLS")
Do Until File_Is = ""
Workbooks.Open Filename:="d:\Documents and Settings\T0061504\Bureau\Test\" & File_Is
Workbooks(File_Is).Sheets("ExportAccessOpe").Activate
Columns("I:I").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I2").Select
Application.CutCopyMode = False
Columns("I:I").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
2), TrailingMinusNumbers:=True
ActiveWorkbook.Save
ActiveWorkbook.Close
Fin:
File_Is = Dir
Loop
End Sub
merci pour votre aide