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

  • Initiateur de la discussion Initiateur de la discussion cgpa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cgpa

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
Bonjour
VB:
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
Bonjour
VB:
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
 
Bonjour
VB:
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!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
246
Réponses
3
Affichages
673
Retour