Enregistrer classeur excel sous nom origine ds autre repertoire [Fermé]

Signaler
-
Messages postés
9611
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
11 novembre 2020
-
Bonjour,

Je voudrai savoir comment ecrire mon code pour que la macro enregistre un fichier excel recu par email dans un repertoire bien précis tout en conservant imperativement le nom d'origine du fichier. En effet le fichier envoyé par email est deja correctement nomé et daté avec la date du jour.

Merci d'avance !


2 réponses

Messages postés
9611
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
11 novembre 2020
1 954
Bonjour

Essaies ceci

Const chemin = "D:\Travail\"

Private Sub CommandButton1_Click()
Dim nomfic As String
nomfic = ActiveWorkbook.Name
ActiveWorkbook.SaveAs (chemin & nomfic)
End Sub

Cdlmnt
Bonjour CCM81,

Merci pour ta reponse qui a fonctionnée comme suit :

Const chemin = "D:\Travail\"
Dim nomfic As String
nomfic = ActiveWorkbook.Name
ActiveWorkbook.SaveAs (chemin & nomfic)

Je n'ai pas intégré de bouton mais ca servira pour plus tard !

Merci !
Messages postés
9611
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
11 novembre 2020
1 954
Pour la constante chemin, tu mets bien sûr le chemin d'accès au dossier où tu veux que soit enregistrée ta sauvegarde.

Cdlmnt