Discussion :

[Menhir]

Maintenant que j'ai rajouté "Application.WorksheetFunction." il ne me souligne plus "WeekNum" en jaune, mais l'enregistrement ne fonctionne toujours pas, mais je vais bientôt trouver je message d'erreur n'ai plus le même.

Euh... le "Application.WorksheetFunction.", il faut le mettre avant la fonction concernée.
C'est-à-dire remplacer WeekNum(Now) par Application.WorksheetFunction.WeekNum(Now)
Le plus simple serait que tu utilises plutôt ce que je t'ai proposé ensuite avec le jour et le mois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Application.WorksheetFunction.WeekNum

Ca, tout seul sur une ligne, ça ne sert à rien.
Je me demande même comment le débugueur peut le laisser passer.

l'enregistrement ne fonctionne toujours pas,

Workbook_Open() est une fonction qui se déclenche à l'ouverture.
Est-ce que tu as essayé de fermer puis d'ouvrir ce fichier ?

A ta place, je ferait des essais en remplaçant la ligne du SaveCopy par un simple Debug.Print envoyant un message (par exemple le nom de fichier, comme ça tu testes les deux en même temps) et en mettant l'heure d'échéance 10 min après pour savoir si la fonction se déclenche bien.

[DimitriALL]

Maintenant j'ai un message d'erreur "Erreur de compilation, Sub ou Function non définie"

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Sauve()
   Application.WorksheetFunction.WeekNum (Date)
     If WeekNum(Date) = vbTuesday Then
      ThisWorkbook.SaveCopyAs "C:\Users\Vince\Documents\Sauve_" & Year(Now) & "_" & WeekNum(Now) & ".XLSM"
   End If
   Application.Wait "18:11:01"
   Application.OnTime TimeValue("18:11:00"), "Sauve"
End Sub

Puis j'ai essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
   Application.WorksheetFunction.WeekNum (Date)
    If Weekday(Now) = vbTuesday Then
      ThisWorkbook.SaveCopyAs "C:\Users\Vince\Documents\Sauve_" & Year(Now) & "_" & WeekNum(Now) & ".XLSM"
   End If
   Application.Wait "18:11:01"
   Application.OnTime TimeValue("18:11:00"), "Sauve"
End Sub

[Menhir]

C'est vraiment difficile de se faire comprendre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Application.WorksheetFunction.WeekNum (Date)

Ca, ça ne sert à rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      ThisWorkbook.SaveCopyAs "C:\Users\Vince\Documents\Sauve_" & Year(Now) & "_" & WeekNum(Now) & ".XLSM"

Ca doit être remplacé par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      ThisWorkbook.SaveCopyAs "C:\Users\Vince\Documents\Sauve_" & Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".XLSM"

[DimitriALL]

Désolé Menhir je n'avais pas vue dans message à 18H02

Ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.SaveCopyAs "C:\Users\Vince\Documents\Sauve_" & Year(Now) & "_" & Application.WorksheetFunction.WeekNum(Now) & ".XLSM"

J'avais déjà essayé et ça ne fonctionner pas.

J'ai fais un deuxième test en "rangeant" un peu les codes tout remis au propres et ça fonctionne

Maintenant j'ai ça dans ThisWorkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Application.OnTime TimeValue("09:56:00"), "Sauve"
End Sub

Et j'ai ça dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Sauve()
   If Weekday(Date) = vbWednesday Then
      ThisWorkbook.SaveCopyAs "C:\Users\Vince\Documents\Sauve_" & Year(Now) & "_" & Application.WorksheetFunction.WeekNum(Now) & ".XLSM"
   End If
   Application.Wait "09:56:01"
   Application.OnTime TimeValue("09:56:00"), "Sauve"
End Sub

Et tout fonctionne.

Merci à casefayere pour l'idée du module.

Et un grand MERCI à Menhir pour m'avoir suivi tout au long de cette discussion et pour sa patience