donpopo
XLDnaute Occasionnel
Bonjour le forum,
J'ai fait des recherches sur le forum afin de trouver une solution pour sauvegarder mon fichier en cliquant sur un bouton.
J'ai trouvé une réponse satisfaisante dont copie ci-dessous.
Cependant, je souhaite que le dossier de destination et le nom du fichier sauvegardé soient repris dans une cellule précise.
' La cellule R6 contient:"D:\SAUVEGARDES PERSO\Placements\sauvegarde du " & Format(Date, "yyyy mm dd") & ".xls"
Dans la copie ci-dessous, je souhaite faire fonctionner la ligne soulignée en gras en commentaire plutôt que celle de l'exemple.
Private Sub CommandButton1_Click()
ThisWorkbook.Save
' ThisWorkbook.SaveCopyAs Filename:=Sheets("PARAMETRES").Range("R6").Value
ThisWorkbook.SaveCopyAs Filename:="D:\SAUVEGARDES PERSO\Placements\sauvegarde du " & Format(Date, "yyyy mm dd") & ".xls"
End Sub
Quelqu'un aurait-il une idée de ce qui peut clocher?
Merci d'avance
donpopo
J'ai fait des recherches sur le forum afin de trouver une solution pour sauvegarder mon fichier en cliquant sur un bouton.
J'ai trouvé une réponse satisfaisante dont copie ci-dessous.
Cependant, je souhaite que le dossier de destination et le nom du fichier sauvegardé soient repris dans une cellule précise.
' La cellule R6 contient:"D:\SAUVEGARDES PERSO\Placements\sauvegarde du " & Format(Date, "yyyy mm dd") & ".xls"
Dans la copie ci-dessous, je souhaite faire fonctionner la ligne soulignée en gras en commentaire plutôt que celle de l'exemple.
Private Sub CommandButton1_Click()
ThisWorkbook.Save
' ThisWorkbook.SaveCopyAs Filename:=Sheets("PARAMETRES").Range("R6").Value
ThisWorkbook.SaveCopyAs Filename:="D:\SAUVEGARDES PERSO\Placements\sauvegarde du " & Format(Date, "yyyy mm dd") & ".xls"
End Sub
Quelqu'un aurait-il une idée de ce qui peut clocher?
Merci d'avance
donpopo