Exécuter macro avec nom du fichier ouvert : prob de variable

Bonjour à tous,

Je suis en train de faire une macro pour copier coller en valeur des données d'un fichier nommé "EVS04" dans le dossier avril
Cette manip sera faite tous les mois, mais le mois prochain mon fichier sera "EVS05" et le chemin d'accès sera : dossier mai

Ma macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Windows("Evs_Cumul042011.xls").Activate Sheets("48281").Select Cells.Select Range("A76").Activate Application.CutCopyMode = False Selection.Copy Windows("EVS a envoyer.xls").Activate Sheets("48281").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Mon problème c'est que le nom du fichier est fixe et qu'avec mon prochain fichier EVS05 la macro ne va pas me prendre les données de ce nouveau fichier !

Pourriez vous m'aidez ??

Mille merci !

Bonjour,
Pour créer un nom en fonction d'une date.
Partons de l'hypothèse que tu veuilles créer un nom combinant une chaîne de caractères ici "EVS" avec le n° du mois en cours précédé d'un zéro pour les numéros de mois inférieurs à 9.

Code:

---

1 2 3 4

Dim NumMonth As String, FileName As String NumMonth = Format(Month(Date), "00") FileName = "EVS" & NumMonth MsgBox FileName

---

Et bien entendu, il y a plus court

Code:

---

1 2	FileName = "EVS" & Format(Month(Date), "00") MsgBox FileName

---

youai merci beaucoup !!

par contre le fichier EVS04 est dans le dossier Avril et le prochain EVS05 sera dans le dossier Mai.

Je supporse qu'il y a un petit code a rajouté pour que la macro marche, où il suffit que j'ai le fichier EVS05 d'ouvert?

le dossier se nomme "avril" ou "04" ?
car il suffit juste que tu mette en variable pour le chemin d'acces
pour obtenir le mois en lettre :

Code:

---

Format(Now(), "mmm")

---

Bonjour,

Le dossier dans lequel contien EVS04 s'appelle 04.Avril et le dossier de EVS05 sera 05.Mai (pour qu'ils restent classés chronologiquement je suis obligée de mettre les mois en chiffres en plus)

je dois donc faire en sorte que la maccro prenne les données des feuilles du fichier EVS en cours qui se trouve dans le dossier du mois en cours, et ne reste pas sur les données des feuilles de EVS04 dans le fichier 04.Avril

Merci

Bonne journée à tous

Bonjour,
Code pour donner le nom du répertoire et du fichier

Code:

---

1 2 3 4 5 6 7 8

Dim FileName As String, FolderName As String, txt As String ' Nom du fichier FileName = "EVS" & Format(Month(Date), "00") txt = "Classeur...: " & FileName & vbCrLf ' Nom du répertoire FolderName = Format(Now(), "mm") & "_" & Format(Now(), "mmmm") txt = txt & "Répertoire : " & FolderName MsgBox txt

---

Attention toutefois que si tu travailles dans une entreprise internationale où il y a des versions Anglaise et française qui cohabitent le nom des mois va poser des problèmes mai ou May. Il y a alors d'autres méthodes pour éviter cela.
Petite suggestion :
Je n'ai pas compris pourquoi tu extrais les données de Mai du classeur EVS04 pour les coller sur EVS05 . Ne serait-il pas plus facile d'avoir une feuille ou un classeur EVS, par exemple, et de faire alors une copie ou un déplacement de la feuille vers le classeur du mois en cours EVS05
Avec ce code qui copie ou déplace vers un nouveau classeur.

Code:

---

1 2	Sheets("EVS").Copy 'Copie Sheets("EVS").Move 'Déplacement

---

Ensuite tu sauves ce nouveau classeur avec le nom EVSmm dans le répertoire mm_mmmm

Merci pour votre aide !

Alors en fais j'ai des dossiers mensuel 04Avril 05Mai... et dans ce dossier mensuel j'ai plusieurs fichier dont EVS"mois"

le fichier EVS"mois" comporte énormément de feuilles donc je ne peux pas faire 1 fichier unique plus des feuille par mois.

Je vais faire des tests avec les dernières info que vous m'avez donner.

Merci beaucoup

j'ai testé :

Code:

---

Workbooks.Open "Q:\GUILLAUME\sdiard\EVS\2011\" & Format(Month(Date), "00") & " " & Format(Date, "mmmm") & "\EVS " & Format(Month(Date), "00").xls

---

Mon chemin :

Code:

---

Q:\GUILLAUME\sdiard\EVS\2011\04 Avril fichier EVS04.xls

---

le mois prochain

Code:

---

Q:\GUILLAUME\sdiard\EVS\2011\05 Mai fichier EVS05.xls

---

Ca sera plus clair pour vous je pense

Merci

Bonjour,
Juste pour l'info, ces trois syntaxes donnent le même résultat évidemment.

Code:

---

1 2 3

Debug.Print Format(Date, "mm") Debug.Print Format(Month(Date), "00") Debug.Print Format(Now(), "mm")

---

Si j'ai bien compris, tu as la solution à ton problème et le fil est donc clôturé.

non mon code de chemin de fichier bloque

il y aurait une erreur ? peut être par rapport au fichier qui a comme nom le mois (ex: 04 Avril), j'ai juste mis :

" & Format(Month(Date), "00") & " " & Format(Date, "mmmm") & "

Bonjour,
Pour cela, tu dois utiliser la fonction date qui te permets de calculer le mois précédent la date du jour.
La lecture de ce didacticiel t'éclairera