Sauvegarder sous + chemin ?
Résolu
JeanPedre
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Sauvegarder sous + chemin ?
- Sauvegarder favoris chrome - Guide
- Sauvegarder sms iphone - Guide
- Sauvegarder favoris firefox - Guide
- Mes photos sauvegarder sur google - Guide
- Comment sauvegarder toutes les données de mon téléphone - Guide
3 réponses
Bonjour
Cdlmnt
Const chenim = "D:\" Public Sub ok() Dim nomfic As String nomfic = chenim & [Feuil1!F12].Value & ".xls" ActiveWorkbook.SaveAs Filename:=nomfic End Sub
Cdlmnt
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
' à 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
Merci pour ta réponse mais elle ne marche pas.
Excel me renvoi le message d'erreur suivant : "Attendu : numéro de ligne ou étiquette ou instruction ou fin d'instruction"