Enregistrer classeur excel sous nom origine ds autre repertoire

Fermé
Tarik - 4 juil. 2017 à 16:45
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 4 juil. 2017 à 18:43
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 !


A voir également:

2 réponses

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
4 juil. 2017 à 17:00
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
0