Enregistrer classeur excel sous nom origine ds autre repertoire

Tarik -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
Réponse 2 / 2
Tarik
 
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 !
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0