Macro ouverture fichier Excel + formatage

asengs · 9 Février 2011

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)

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

Pierrot93 · 9 Février 2011

Re : Macro ouverture fichier Excel + formatage

Bonsoir,

c'est que les fichiers que je veux ouvrir contiennent des macros.

si ce sont des procédures événementielles qui perturbent ton code, tu peux essayer comme ceci :

Code:

Application.EnableEvents = False
'ton code
Application.EnableEvents = True

bonne soirée
@+

Macro ouverture fichier Excel + formatage

asengs

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires