Ouvrir un Fichier et Enregistrer sous dans un autre dossier

Bonjour,

je souhaite ouvrir un modèle de fichier et l'enregistrer dans un autre dossier mais une fois le fichier choisi, et je clic "ouvrir ==> il ne s'affiche pas.
Cf. Le code et ce que cela donne.

Quelqu'un peut m'aider, svp?

Juju

Bonsoir Julia, bonsoir le forum,

Il te faudrait un expert Photochope à moins que tu ne daignes fournir ton code entre les balises </> pour qu'on puisse faire un copier/coller...

Bonjour,

mes excuses pour cette maladresse. Ci-après le code :

Private Sub CommandButton1_Click()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.InitialFileName = "C:\Users\Julia\Documents\Bjn Bionet\Prestations\0-Modèles_Fiches" '----------------->> mets ici le chemin du répertoire selon choix
.Show
End With
End Sub

@Plus

Juju

Bonjour Julia, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .AllowMultiSelect = False
    .InitialFileName = "C:\Users\Julia\Documents\Bjn Bionet\Prestations\0-Modèles_Fiches" '----------------->> mets ici le chemin du répertoire selon choix
    .Show
    Application.Workbooks.Open (.SelectedItems(1))
End With
End Sub

Re bonjour,

le test est concluant!

Merci beaucoup et à bientôt pour d'autres sujets

Juju