Bonjour a tous

J'essaie de simplifier ma version 2 d'un classeur excel d'analyse client que j'ai conçu il y a une paire d'années mais dont je devais transférer toutes les données fixes tous les mois d'un mois sur l'autre. C'était long et fastidieux
J'ai donné aussi ce classeur a des collègues qui n'ont pas forcement la même arborescence de rangement que moi

Pour faire simple; a chaque nouveau mois, j'ouvre mon classeur vierge que je renomme Analyse secteur 20-08 (pour le mois d’août) et je vais aller chercher des données dans le classeur du mois précédent soit pour exemple Analyse secteur 20-07

Ces noms de classeurs avec les chemins sont écrit en texte dans 2 cellules de l'onglet données du classeur le plus récent

Le problème est donc que dans la macro ci dessous, ces 2 noms sont intégrés dans la commande windows.

Cela fait 2 jours entiers que je cherche partout un exemple sur le net comment mettre ces 2 noms en variable

Le problème est que VB est un peu une langue très étrangère pour moi qui ne sait faire que enregistrer une macro
Je sais aux vues des nombreuses réponses sur plein de sujets sur ce forum qu'il y a des experts toujours prêt a rendre service
En tout cas je vous remercie par avance pour votre réponse

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Sub ACT_1()
'
' ACT_1 Macro
'
'Msgbox Ok + Annuler
 yourmsgbox = MsgBox("ATTENTION: A n'utiliser que pour remplir le tableau vierge", vbOKCancel, "Confirmation")
 
If yourmsgbox = vbCancel Then
    Exit Sub
End If
'
'Ouverture fichier analyse M-1
    Sheets("Données").Select
    Workbooks.Open Filename:=Range("h3").Value
'Copie des données du fichier M-1
    Windows("Analyse Secteur 20-07.xlsm").Activate
    Sheets("BDD Clients").Select
    ActiveWorkbook.Worksheets("BDD Clients").AutoFilter.Sort.SortFields.Clear
    ActiveSheet.ShowAllData
    ActiveWorkbook.Worksheets("BDD Clients").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BDD Clients").AutoFilter.Sort.SortFields.Add2 Key _
        :=Range("H2:H1500"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BDD Clients").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3:N3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Analyse Secteur 20-08.xlsm").Activate
    Sheets("BDD Clients").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("BC3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Analyse Secteur 20-07.xlsm").Activate
    ActiveWindow.ScrollRow = 1480
    ActiveWindow.ScrollRow = 1475
    ActiveWindow.ScrollRow = 1459
    ActiveWindow.ScrollRow = 1410
    ActiveWindow.ScrollRow = 1136
    ActiveWindow.ScrollRow = 656
    ActiveWindow.ScrollRow = 339
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 3
    ActiveSheet.Range("$A$2:$BB$1500").AutoFilter Field:=15, Criteria1:= _
        "_Pas SF"
    Range("F20:O20").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveWindow.SmallScroll Down:=-225
    Range("F20:O20").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Analyse Secteur 20-08.xlsm").Activate
    Range("E3").Select
    ActiveSheet.Paste
    Windows("Analyse Secteur 20-07.xlsm").Activate
    ActiveSheet.Range("$A$2:$BB$1500").AutoFilter Field:=15
    Sheets("Contacts").Select
    Columns("A:F").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Analyse Secteur 20-08.xlsm").Activate
    Sheets("Contacts").Select
    Columns("A:F").Select
    ActiveSheet.Paste
    Sheets("BDD Clients").Select
End Sub