Discussion :

[mouftie]

Bonjour,
Je dois faire le même travail avec des fichiers différents, en fonction d'un contexte choisit par l'utilisateur. Aujourd'hui, j'ai reproduis la même macro pour chacun des contextes. Donc la maintenance peut devenir compliquée.
Je voudrais utiliser des variables de variable...
Voici un extrait de mon code

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
Sub PrepaBo()
'Ouvre les fichiers Req du type souhaité et les met en forme
Public Lo As ListObject, WbBo1 As Workbook, WbBo2 As Workbook, WbBo3 As Workbook
Public Req1 As String, Req2 As String, Req3 As String  'Type de requête utilisée 
Application.ScreenUpdating = False
if Contexte1 = true then Req1 = "FichierA.xlsx": Req2 = "FichierB.xlsx": Req3 = "FichierC.xlsx"
if Contexte2 = true then Req1 = "FichierD.xlsx": Req2 = "FichierE.xlsx": Req3 = "FichierF.xlsx"
if Contexte3 = true then Req1 = "FichierG.xlsx": Req2 = "FichierH.xlsx": Req3 = "FichierI.xlsx"
...
'1er traitement
        Set WbBo1 = Workbooks.Open(ChemBo & Req1)    'Req1 cf.ConTxt()
        DoEvents
            Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
            With Lo
                .Name = "TbBoSce1"
                .TableStyle = "tablestylemedium5" 'sans mise en forme
            End With
        ... suite du code
'2e traitement
        Set WbBo2 = Workbooks.Open(ChemBo & Req2)    'Req2 cf.ConTxt()
        DoEvents
            Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
            With Lo
                .Name = "TbBoSce2"
                .TableStyle = "tablestylemedium5" 'sans mise en forme
            End With
        ... suite du code
'3er traitement
        Set WbBo3 = Workbooks.Open(ChemBo & Req3)    'Req3 cf.ConTxt()
        DoEvents
            Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
            With Lo
                .Name = "TbBoSce3"
                .TableStyle = "tablestylemedium5" 'sans mise en forme
            End With
        ... suite du code

... suite du code est strictement identique pour les 3 traitements ET les fichiers restent ouverts pour traiter tous les fichiers de travail du contexte.
Mon Pb vient des variables WbBo1, Req1, TbBoSce1 qui prennent l'indice 2 et 3 dans les 2e et 3e traitement.

J'ai essayé d’insérer une variable Sce as Byte et une boucle For comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
For Sce =1 to 3        
        Set WbBo & Sce = Workbooks.Open(ChemBo & Req & Sce )    'Req1 cf.ConTxt()
        DoEvents
            Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
            With Lo
                .Name = "TbBoSce" & Sce 
                .TableStyle = "tablestylemedium5" 'sans mise en forme
            End With
        ... suite du code
Next Sce

Mais cela ne fonctionne pas
Il y a ensuite des traitements sur les fichiers WbBo ouverts toujours identiques, d’où l’intérêt de le faire qu'une fois.
Est-ce que qq'1 peut me dire comment procéder ou ce n'est pas possible ?

[Philippe Tulliez]

Bonjour,
Prévois une procédure avec arguments (obligatoire ou optionnel), c'est la meilleure manière de travailler pour ce que tu évoques. Cela facilite la maintenance d'une procédure et cela allège le code

[mouftie]

Bonsoir Philippe,
Merci pour ta réponse si rapide.

Peux-tu un peu développer ce que tu entends par

procédure avec arguments (obligatoire ou optionnel)

, stp.
Merci

[Philippe Tulliez]

Bonjour,
Le plus bel exemple, ce sont les fonctions d'excel
Par exemple pour faire la somme d'une plage de cellules, tu invoques une fonction qui est SOMME et tu lui passes comme argument la plage de cellules dont il faut faire la somme. En utilisant la fonction RECHERCHEV tu doit passer à la fonction quatre arguments dont le dernier est facultatif et ainsi de suite

Tu trouveras un exemple simple dans cette contribution CopyRange - Copie de liste de données (source) dans une feuille cible où la procédure est une fonction nommée CopyRange avec cinq arguments dont trois sont optionnels. Il y a un fichier exemple téléchargeable

Même s'il traite des fonctions utilisables dans Excel, la lecture de ce tutoriel titré Les fonctions personnelles dans Excel

[mouftie]

Bonsoir Philippe,
Impressionnant !
J'ai juste regardé comme cela fonctionne avec des pas à pas.
Ouf !

Je suis bien incapable de faire qqch comme ça.

Je regarderai mieux demain, c'est effectivement ce que je cherche à faire, mais je doute fortement de mes capacités.
Merci quand même.

[mouftie]

Bonjour à tous,
J'ai effectivement pu m'en sortir grâce à votre exemple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public WbBo(), Elem As Byte
    For Elem = 0 To UBound(WbBo)
        'Affectation de la req
        If Elem = 0 Then Req = "So"
        If Elem = 1 Then Req = "Rd"
        If Elem = 2 Then Req = "St"
        With Workbooks(WbBo(Elem)).Sheets(1)
...
   Next

ce qui me permet de travailler de manière identique et successive avec différents classeurs.
Merci pour votre aide