asengs | Bonjour,
j'ai un petit souci. Je souhaite ouvrir (à partir d'une macro) es 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 (qui contient des macros) qu'il trouve mais n'exécute pas la suite du code (formatage). Il passe sur la macro du fichier qu'il a ouvert.
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
|
Comment je peux faire pour qu'il reste sur macro que j'ai lancé au départ (pour qu'il execute la suite du code). Mise en arrière plan???
|
