Enregistrement automatique fichier excel

Question

Bonjour, 
je voudrais indiquer le chemin où ce fichier doit s'enregistrer (il s'enregistre toujours dans mes Documents même en indiquant ce chemin à la fin du code??)

Merci pour vos réponses


Private Sub Workbook_BeforeClose(Cancel As Boolean)
NousSommesLe = Date
NousSommesLe = Replace(NousSommesLe, "/", "")
IlEst = Time
IlEst = Replace(IlEst, ":", "")
IlEst = Left(IlEst, 4)
NomFichier = "Rapport d'Activité Matin " & NousSommesLe
ActiveWorkbook.SaveAs NomFichier
End Sub

PHILOU10120 · Answer

ChDir "E:\dossier\sous_dossier\"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\dossier\sous_dossier\mon_fichier.xlsm", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

En sélectionnant le chemin complet cela devrait marcher

Enregistrement automatique fichier excel

1 réponse

Newsletters