Macro Enregistrer automatiquement tous les lundis.

[Sofy]

Bonjour,

Je me lance (enfin j'essaye) dans les macros. Rien de plus simple quand on utilise l'enregistrement mais quand il s'agit d'aller dans le code alors là.... je nage !!!

Je souhaite enregistrer tous les lundis un fichier sous un autre nom avec la date et dans un répertoire bien spécifique.

Voilà ce que j'ai plus ou moins essayer mais cela ne donne rien :-(

Code =>
'Faire un enregistrement automatique tous les lundis.
If (Weekday(TODAY())) = 2 Then 'vérifie si on est un lundi
Dim strChemin As String
Dim strFichier As String

strChemin = "Z:\Tata\Titi\Sauvegarde" ' Le chemin de destination
strFichier = SAVE_TOTO & " _ " & Format(Now(), "dd-mm-yy") & ".xls" 'pour enregistrer sans les macros
ThisWorkbook.SaveAs strChemin & strNomFic

MsgBox "Attention, une sauvegarde hebdomadaire du fichier TOTO.XLSM vient d'être effectuée dans le répertoire Z:\Tata\Titi\Sauvegarde"
End If

Merci d'avance,
Sofy

 

[Lolote83]

Re : Macro Enregistrer automatiquement tous les lundis.

Salut Sofy,
A mon avis, il manque les guillemets dans la ligne suivante : strFichier = SAVE_TOTO & " _ " & Format(Now(), "dd-mm-yy") & ".xls"
écrire plutôt :
strFichier = "SAVE_TOTO_" & Format(Now(), "dd-mm-yy") & ".xls"
Du coup le nom de tes fichiers seront sous la forme : SAVE_TOTO_11-06-12.xls (pour lundi 11 juin), SAVE_TOTO_18-06-12.xls pour lundi prochain etc etc etc.
Si par contre tu souhaitais aussi changer le nom du fichier, il faut lui affecter une variable.

Exemple : strFichier = "" & VariableNomFichier & "_" & Format(Now(), "dd-mm-yy") & ".xls"
Je pense que c'est bon !!!!
@+ Lolote 83

 

[Sofy]

Re : Macro Enregistrer automatiquement tous les lundis.

Merci beaucoup à Lolote83 pour cette rapide réponse.

En fait je suis bloquée bien avant (j'aurais pu le préciser...).
Mais j'ai une erreur de compilation au niveau du WEEKDAY (Sub ou fonction non définie)


Mais dés cette étape passée, je teste ta ligne.

 

[phlaurent55]

Re : Macro Enregistrer automatiquement tous les lundis.

Bonjour à tous,

remplace: If (Weekday(TODAY())) = 2 Then

par: If (Weekday(Now())) = 2 Then

à+
Philippe

 

[Sofy]

Re : Macro Enregistrer automatiquement tous les lundis.

Merci Merci
Cela passe !!
Et je dirais que cela marche presque....

Il enregistre bien un fichier mais pas du tout en fonction du nom demandé mais en fonction du chemin strChemin = "Z:\Tata\Titi\Sauvegarde => donc le fichier se nomme "Sauvegarde.xlsm et il garde les macros :-(

En plus, je viens de me rendre compte que je souhaite qu'il fasse un backup de façon un peu transparente pour l'utilisatrice du fichier. En plus clair, si j'y arrive, je veux qu'il sauvegarde le fichier tous les lundis sans perturber l'utilisatrice tout en restant sur le fichier d'origine. Il y a juste un message d'information.

Help me, désolée.
Sofy

 

[phlaurent55]

Re : Macro Enregistrer automatiquement tous les lundis.

Re,

pour sauvegarder SANS les macros, il faut le faire avec l'extension .xslx

dans ce cas il faudra prévoir la désactivation/réactivation des messages d'alerte

Application.DisplayAlerts = False
strChemin = "Z:\Tata\Titi\Sauvegarde\" ' Le chemin de destination
strFichier = SAVE_TOTO & " _ " & Format(Now(), "dd-mm-yy") & ".xlsx" 'pour enregistrer sans les macros
ThisWorkbook.SaveAs strChemin & strNomFic
Application.DisplayAlerts = True

Remarque: si SAVE_TOTO est le nom du fichier, il faut qu'il soit encadré de guillemets "SAVE_TOTO"
dans le cas contraire, c'est considéré comme variable

après enregistrement, il faudra revenir sur le fichier d'origine

à+
Philippe

 

[Sofy]

Re : Macro Enregistrer automatiquement tous les lundis.

Merci, vraiment merci :-D

J'ai remis le code mais j'ai encore une erreur d'exécution '1004' : La méthode 'SaveAs' de l'objet'_Workbook' a échoué !!

Application.DisplayAlerts = False
strChemin = "Z:\Tata\Titi\Sauvegarde\" ' Le chemin de destination
strFichier = "SAVE_TOTO" & " _ " & Format(Now(), "dd-mm-yy") & ".xslx" 'pour enregistrer sans les macros
ThisWorkbook.SaveAs strChemin & strNomFic
Application.DisplayAlerts = True

Merci d'avance,
Sofy