Bonjour,
Le code suivant ouvre bien la boite "enregistrer sous" et propose le nom du fichier selon une cellule, mais je ne parviens pas à indiquer que le dossier de destination est le même que le fichier d'origine: quelqu'un sait-il me dire où est mon erreur?
Merci pour votre aide, excellente journée.
Sub EnregistreFichier() 'utilise la fenêtre "enregistrer sous" et permet de modifier le répertoire et le nom avant enregistrement
Dim Chemin As String, Fichier As String
' Chemin = ActiveWorkbook.SaveAs Fichier
Chemin = ThisWorkbook.Path
Fichier = "le nom est " & Range("D6")
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Fichier
.Show
End With
'ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile
End Sub
Le code suivant ouvre bien la boite "enregistrer sous" et propose le nom du fichier selon une cellule, mais je ne parviens pas à indiquer que le dossier de destination est le même que le fichier d'origine: quelqu'un sait-il me dire où est mon erreur?
Merci pour votre aide, excellente journée.
Sub EnregistreFichier() 'utilise la fenêtre "enregistrer sous" et permet de modifier le répertoire et le nom avant enregistrement
Dim Chemin As String, Fichier As String
' Chemin = ActiveWorkbook.SaveAs Fichier
Chemin = ThisWorkbook.Path
Fichier = "le nom est " & Range("D6")
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Fichier
.Show
End With
'ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile
End Sub