Bonjour,

j'ai un petit souci. Je souhaites 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 qu'il trouve mais n'exécute pas la suite du code (formatage)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
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 de votre aide

Note :

En fait mon problème c'est qu'à l'ouverture il passe sur le projet vb du fichier excel qu'il a ouvert. Mais comment je peux rebasculer sur le projet vb de l'autr e fichier (ou il y a ma macro de formatage)????