Bonsoir,
Je fais appel à votre sagacité pour me donner un petit coup de pouce. Je suis ennuyé pour le process ci-dessous:
En clair, tous les mois, le traitement doit être répété mais cette fois ci en atteignant directement l'onglet FEVRIER au lieu de JANVIER
Comment passer automatiquement "en parametre" Février puis Mars, etc... ?
J'avais bien pensé à une InputBox, mais suis un peu stoppé avec la manière d'appréhender le sujet...
Par avance merci de votre aide
Cordialement,
-------------------------------------
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
Sub RECUP_1()
'Masque le défilement de la macro
    Application.ScreenUpdating = False
' 1-Début de traitement fichier N°1
    'Ouverture du fichier
    Workbooks.Open Filename:= _
        "G:\REPORTING_GP1.xls"
    Windows("REPORTING_GP1.xls").Activate
    Worksheets("JANVIER").Activate
    Range("B2").Select
    Selection.Copy
    Windows("COMPILATION.xls").Activate
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Fermeture du fichier sans confirmation si modifications
    Windows("REPORTING_GP1.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
 ' 2-Fin de traitement fichier
End Sub