Discussion :

[persjussysylvain]

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

[Philippe Tulliez]

Bonjour,

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éé ?

[persjussysylvain]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[persjussysylvain]

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