Discussion :

[asengs]

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)????

[mercatog]

[Edit]
Essaies comme ceci

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
Sub formatage()
Dim wb As Workbook
Dim File_Is As String
 
Application.ScreenUpdating = False
File_Is = Dir("d:\Documents and Settings\T0061504\Bureau\Test\*.XLS")
Do While File_Is <> ""
    Set wb = Workbooks.Open(File_Is)
    With wb.Sheets("ExportAccessOpe")
        .Range("I:I").Value = .Range("I:I").Value
        .Range("I:I").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
    End With
    wb.Save
    wb.Close
    Set wb = Nothing
    File_Is = Dir
Loop
End Sub

Regarde l'aide sur TextToColumns et pas besoin de mettre les valeurs par défaut