enregistrement d'un fichier excel

[Angelo7891]

bonjour le forum,


j'ai un petit probleme

deja j'explique la situation:
j'ai un dossier excel contenant un fichier (fichier1.xls) + un autre dossier Sauvegarde

j'aimerai sauvegarder via une macro le fichier.xls dans le dossier Sauvegarde sous le nom Reporting du + la date du jour

pour le moment j'ai fais ce code :

Sub Enregistrer()
 
 Jour = Day(Now)
 Mois = Month(Now)
 Année = Year(Now)
 ActiveWorkbook.SaveAs Filename:='Sauvegarde\\Reporting du ' & Jour & -Mois & -Année & '.xls', FileFormat:= _
    xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
    , CreateBackup:=False
End Sub

mais il me dis impossible d'acceder au fichier

comment régler ce probleme ?

 

[globinours]

Bonjour Angelo,
Il faut que tu indique plus précisément ton chemin d'accès:
C:\\...........

 

[pierrejean]

bonjour angelo

à mon avis et sans avoir testé:
les -Mois et -Année ne doivent pas passer
il vaudrait mieux & '-' & Mois etc
Par ailleurs je mettrais le chemin complet pour plus de sureté

 

[Angelo7891]

J'ai suvie vos conseil et intégrer une varaible
chemin pour récupérer le chemin complet
ca donne ca :

Sub Enregistrer()
  
 Jour = Day(Now)
 Mois = Month(Now)
 Année = Year(Now)
 chemin = ActiveWorkbook.Path

 ActiveWorkbook.SaveAs Filename:=chemin & '\\Sauvegarde\\Reporting du ' & Jour & -Mois & -Année & '.xls', FileFormat:= _
   xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
    , CreateBackup:=False
End Sub

ca semble marcher

@Pierrejean les - mois - Année passent tres bien