Sauvegarder sous + chemin ?

Résolu/Fermé

JeanPedre Messages postés 5 Date d'inscription mardi 14 février 2017 Statut Membre Dernière intervention 15 février 2017 - 14 févr. 2017 à 14:00
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 14 févr. 2017 à 15:51

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

A voir également:

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
14 févr. 2017 à 14:11

Bonjour

Const chenim = "D:\"

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

Cdlmnt

JeanPedre Messages postés 5 Date d'inscription mardi 14 février 2017 Statut Membre Dernière intervention 15 février 2017
14 févr. 2017 à 14:47

Bonjour CCM81,

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"

Réponse 2 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
14 févr. 2017 à 14:57

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

JeanPedre Messages postés 5 Date d'inscription mardi 14 février 2017 Statut Membre Dernière intervention 15 février 2017
14 févr. 2017 à 15:41

Ah d'accord je n'avais pas compris !
Tout marche à merveille maintenant :)
Merci beaucoup

Réponse 3 / 3

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
14 févr. 2017 à 15:51

De rien,

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

Cdlmnt

Discussions similaires

Chemin Logo du site de la Cité de l'espace

Chemin d'accès spécifié est introuvable

Gestionnaire de fichiers

Chemin d'accès des données sur serveur

Problème de Connexion discord ( Connexion SCTR / Aucun chemin d'accès audio )