Discussion :

[grostathar]

Bonjour,
Aujourd’hui j’ai
Une première macro qui est sous la forme
Ouvre A et exécute la macro 2
Ouvre B et Exécute la Macro 2
...*100

La deuxième Macro Coppi colle Combine
..

Une troisième
Sélectionne Tab Dynamique Z fais se que tu as a faire
Sélectionne Tab Dynamique Y fais la même que la ligne du dessus
....*90
soit beaucoup beaucoup de Copi colle

Donc Je cherche à avoir un truc sous la forme
*Liste des Fichiers Access (la forme de cette liste n a pour moi pas d importances fichier Txt ou même en début de code pas d'importance) juste sa doit être une liste manuel remplie avant exécution
*Macro 1 tu exécute la macro 2 sur cette liste de des Fichiers Access
*Liste Manuel aussi des tableaux Dynamique
*Macro 3 exécute la macro 4 sur la liste de tableau
Les Mdb et les dynamiques sont variables il faut donc que se soit remplit manuellement avant exécution de la macro
J’espère avoir été clair je me tient a votre disposition pour toute précision
Et merci pour votre aide
je sait pas ou mettre le code déjà taper je lai mit sur http://dl.free.fr/m3KNBeG7E
Merci encore

<config>Windows Vista Excel 2010

[grostathar]

eurf 4 jours et toujours pas un bout de début de réponse
La question devait surement être trop clair ^^
Donc re test avec nouvelle formulation
J ai 100 fichiers mdb que j importe dans un classeur tmp (macro1) la je classe trie et colle dans 3 autres Fichiers (Macro2)
Le problème est que ma macro1 est écrite comme je viens de l'expliqué plus haut
(Ouvre Fichier01 exécute Macro2 ouvre Fichier02 exécute Macro2 …Ouvre Fichier 100 exécute Macro2)
Le but serait de comprendre comment écrire une boucle qui fonctionnerait sur une liste de fichier déjà définie soit au début du code soit dans un fichier txt extérieur
(Pour l exemple les mdb s'appelles Fichier01 mais en réel elle on des noms quasi aléatoires
je suis pas sur que sa serve a grand chose mais voici le début de ma macro1 Qui Bien sur tient sur 4 modules^^

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
    Workbooks.Open Filename:="D:\PortSave\GabCleeSyncBack\00Taf\000GabValisette\Macro001\Base.xlsx" '           Import Val (2).mdb
    Windows("Base.xlsx").Activate
    Sheets("Feuil1").Select
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\Users\gab\Desktop\000GabValisette\Import\Val (2).mdb;Mode=Share Deny Write;E", "xtended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Ty", "pe=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Da", "tabase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compac", "t=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("urgence")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "D:\PortSave\GabCleeSyncBack\00Taf\000GabValisette\Import\Val (2).mdb"
        .ListObject.DisplayName = "Tableau_Val__1"
        .Refresh BackgroundQuery:=False
    End With
    Application.Run "00MacroRegroupeTotalMdbEnAnneeValisette.xlsm!MacroDivisionParDate"
    Workbooks.Open Filename:="D:\PortSave\GabCleeSyncBack\00Taf\000GabValisette\Macro001\Base.xlsx" '           Import Val (3).mdb
    Windows("Base.xlsx").Activate
    Sheets("Feuil1").Select
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\Users\gab\Desktop\000GabValisette\Import\Val (3).mdb;Mode=Share Deny Write;E", "xtended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Ty", "pe=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Da", "tabase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compac", "t=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("urgence")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "D:\PortSave\GabCleeSyncBack\00Taf\000GabValisette\Import\Val (3).mdb"
        .ListObject.DisplayName = "Tableau_Val__1"
        .Refresh BackgroundQuery:=False
    End With
    Application.Run "00MacroRegroupeTotalMdbEnAnneeValisette.xlsm!MacroDivisionParDate"
    Workbooks.Open Filename:="D:\PortSave\GabCleeSyncBack\00Taf\