Bonjour,

Est-ce que quelqun connaitrait la procédure pour éxécuter une macro sur un fichier excel généré via un ExportAvecMiseEnForme depuis ACCESS ?

Voila la macro d'export :
Nom : macro export.PNG
Affichages : 168
Taille : 27,6 Ko

Voilà la macro à exécuter sur le fichier Stock Externe.xls :

Sub regroupement_auto_lignes()
Range("A2").Select
Selection.ClearOutline
i = 3
j = 3
Do While Worksheets("DIFFUSION_STOCK_EXTERNE3").Cells(i, 1).Value <> ""
If Worksheets("DIFFUSION_STOCK_EXTERNE3").Cells(i, 1).Value = Worksheets("DIFFUSION_STOCK_EXTERNE3").Cells(i - 1, 1).Value Then
j = i
k = i
Do While Worksheets("DIFFUSION_STOCK_EXTERNE3").Cells(j, 1).Value = Worksheets("DIFFUSION_STOCK_EXTERNE3").Cells(j - 1, 1).Value
j = j + 1
i = i + 1
Loop
Ligne1 = Range("A" & k - 1).Row
Ligne2 = Range("A" & (j - 2)).Row
Rows(Ligne1 & ":" & Ligne2).Select
Selection.Rows.Group
End If
i = i + 1
Loop
Rows("1:1").Select
Selection.AutoFilter
ActiveWindow.ScrollColumn = 2
Selection.AutoFilter Field:=11, Criteria1:="<>PO Fontaine", Operator:= _
xlAnd
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub


MERCI d'avance pour vos réponses !

Clément