Bonjour, Meilleurs voeux,

Je voudrais enregistrer une copie de ma feuille dans un chemin :Q:\commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents\NOMPRENOM

Le NomPrenom est inscrit dans la cellule A2, je voudrais donc insérer Range("A2") dans la formule.

Le fichier se nommera "Planning du mois de MOIS de NOMPRENOM.xls"
avec NOMPRENOM dans A2 (range("A2")
et MOIS dans B1 (range("B1")

Ce code fonctionne si je prend en compte range("B1") mais pas avec range("A2) peut-être parcequ'il fait parti du chemin alors que Range("B1) fait parti du nom de fichier

Pouvez vous m'aider svp.

Je vous remercie

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
Private Sub CommandButton1_Click()
 
Dim chemin As String, fichier As String
 
    chemin = ThisWorkbook.Path
    fichier = "Q:\commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents" & "\" & Range("A2") & "\" & "Planning du mois de " & Range("B1") & " de " & Range("A2") &".xls"
 
 
MsgBox "Le planning de " & Range("A3") & " est prêt à être copié dans Commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents."
 
    ThisWorkbook.ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
 
End Sub