Passage de paramètre dans la macro

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:

---

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

---

"Le Titre du sujet n'est pas adéquat" peux-tu le changer STP


Dans ta question, tu fournis déjà la réponse:

Code:

---

Worksheets("JANVIER").Activate

---

tu veux passer automatiquement à Février puisqu'on est en février c ça,
Donc ton passage au mois suivant est fonction de la date actuelle si j'ai bien compris.

si C'est le cas, bah tu déclares une variable string qui va te faire le travaille, comme ceci:

Code:

---

1 2 3

Dim MonOnglet As String   MonOnglet = UCase(MonthName(Month(Now())))

---

et tu remplaces ton code :

Code:

---

Worksheets("JANVIER").Activate

---

par

Code:

---

Worksheets(MonOnglet).Activate

---

et le tour est joué.

Merci Casavba pour cette brillante démonstration..
Je note précieusement cette "approche" du sujet , pouvant par la suite y avoir recours !
Toutefois, mon souci est un peu différent :
Je souhaite plus précisément pouvoir "saisir" le mois que je souhaite traiter..
Une suggestion ?

Le saisir où?

si c'est dans une Cellule par exemple A2

Code:

---

1 2 3

Dim MonOnglet As String MonOnglet = Range("A2").Value

---

Code:

---

Worksheets(MonOnglet).Activate

---

A toi d'adapter la réponse à ton besoin

Je le disais précédemment :
Du grand art

A la lecture de ta réponse, la solution est devenue évidente !

Un grand merci à toi :king: