Sauvegarder sous + chemin ? Résolu

Question

Bonjour,
J'ai créé une procédure sur Excel avec des boutons permettant de passer à l'étape suivante.
Pour la sauvegarder j'ai mis dans mon module VBA du bouton de la première page la formule :
ActiveWorkbook.SaveAs Filename:=[Feuil1!F12].Value & ".xls" qui me permet de "sauvegarder sous" mon fichier avec le nom de la cellule F12 de ma feuille 1. 
Mais voilà, impossible de trouver comment y ajouter un chemin pour que ma sauvegarde se trouve dans le bon fichier.
Mon chemin est : C:\Users\sat-dbe\Documents\François stagiaire\Procédures Excel (et oui je suis en stage)
Une idée pour y arriver ?
Merci d'avance

ccm81 · Answer

Bonjour
Const chenim = "D:\"

Public Sub ok()
Dim nomfic As String
nomfic = chenim & [Feuil1!F12].Value & ".xls"
ActiveWorkbook.SaveAs Filename:=nomfic
End Sub
Cdlmnt

ccm81 · Answer

Je t'ai mis le code dans une procedure independante
' à toi de modifier le "chemin" du fichier but
et tu remplaces dans ton module
ActiveWorkbook.SaveAs Filename:=[Feuil1!F12].Value & ".xls" 
par
chemin= "D:\"
nomfic = chemin & [Feuil1!F12].Value & ".xls"
ActiveWorkbook.SaveAs Filename:=nomfic
Si toujours erreur, que vaut la variable nomfic ?
Cdlmnt

ccm81 · Answer

De rien,
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Cdlmnt

Sauvegarder sous + chemin ?

3 réponses

Discussions similaires

Newsletters