XL 2010 Enregistrer sous (dans le même répertoire)

[cgpa]

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

 

[fanfan38]

Bonjour

Sub EnregistreFichier() 'utilise la fenêtre "enregistrer sous" et permet de mofifier le répertoire et le nom avant enregistrement
    Dim Chemin As String, Fichier As String
    Chemin = ThisWorkbook.Path
    Fichier = Range("D6")
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = Chemin & "\" & Fichier
        .Show
    End With
End Sub

A+ François

 

[cgpa]

Bonjour

Sub EnregistreFichier() 'utilise la fenêtre "enregistrer sous" et permet de mofifier le répertoire et le nom avant enregistrement
    Dim Chemin As String, Fichier As String
    Chemin = ThisWorkbook.Path
    Fichier = Range("D6")
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = Chemin & "\" & Fichier
        .Show
    End With
End Sub

A+ François

Super Merci François!