chemin d'acces avec Range

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:

---

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

---

Bonjour,

Citation:

---

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

---

Qu'est qui ne fonctionne pas ?
Reçois-tu un message d'erreur ?
Si oui lequel (numéro + message)
N'est-ce tout simplement pas parce-que le sous répertoire défini par NomPrenom n'est pas créé ?

Ce code crée le fichier dans une nouvelle fenêtre mais ne l'enregistre pas (je dois l'enregistrer sous plus tard)
Et J'ai ce message

Citation:

---

Microsoft Visual Basic
Erreur d'exécution 1004
La méthode 'Save As' de l'objet 'Workbook' a échoué

---

Ce code marche avec cette version

Code:

---

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

Private Sub CommandButton1_Click()   Dim chemin As String, fichier As String   fichier = "Q:\commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents" & "\" & "Planning repas de la Semaine " & 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

---

mais je voudrais préciser le sous dossier de Résidents qui se nomme par le NOMPRENOM du résident

J'ai trouvé le problème
le sous dossier en question ets comme cet exemple : 5. Quentin BENO ou 4. Aurore DIV
Quand je renomme le sous dossier 5Quentin BENO ou 4Aurore DIV
cela fonctionne

Je suis donc obligé de rennomer mes sous dossiers ?

Merci