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
Partager