Discussion :

[John Parker]

Bonjour à tous et à toutes,

J'ai un classeur Excel contenant le numéro de semaine en Sommaire'!D10.

Je voudrais qu'à chaque changement de semaine (qu'on rentrera à la main), le fichier se copie en gardant la semaine précédente. Je m'explique, il faudrait que le fichier se copie afin de garder les données de la semaine précédente. Ce classeur sera donc le classeur principal qui sera modifié chaque semaine.
De plus il faudrait que le nom de la copie soit : Suivi production-semaine "numéro de la semaine).

Merci d'avance pour votre précieuse aide

Je viens de faire ce code afin de copier le fichier en mettant le nom + la semaine indiquée en D10.
Cependant il ne se lance que lorsqu'on click sur un bouton et je voudrai que la sauvegarde se face dès que l'on modifie la date.

Je vous copie le code que je viens de faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Option Explicit
 
Public Sub Copie() 'copie sauvegarde classeur
 
Dim nom As String
    nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & " - Semaine " & Range("d10") & ".xlsx"
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
 
End Sub

[Philippe Tulliez]

Bonjour,
Une solution est d'utiliser la procédure événementielle Worksheet_Change de la feuille où se trouve la cellule D10
Exemple :

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim nom As String
 If Target.Address = "$D$10" Then
  nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & " - Semaine " & Target & ".xlsx"
  ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
 End If
End Sub

[John Parker]

Bonjour Corona,

Tout d'abord merci de ta réponse.

Cependant je ne comprends pas ce code. En effet, lorsque mon numéro de semaine change je ne vois aucune copie se faire dans le fichier. Quel est le but de la procédure Worksheet_Change?

Merci

[Philippe Tulliez]

Bonjour,
J'ai simplement recopier ton code qui manifestement fait un Sauver Sous du classeur actif en lui donnant un autre nom.
La procédure événementielle Private Sub Worksheet_Change(ByVal Target As Range) qui doit être placée dans l'objet feuille exécute le code si la valeur de la cellule D10 a été modifiée.
Tu as demandé

Cependant il ne se lance que lorsqu'on click sur un bouton et je voudrai que la sauvegarde se face dès que l'on modifie la date.

Je vois maintenant que c'est quand tu changes la date qu'il faut réagir.
Je suppose que le n° de semaine placé en d10 est le résultat d'une formule. Il y a lieu donc lieu de modifier $D$10 dans le code If Target.Address = "$D$10" Then en le remplacant par l'adresse de la cellule où se trouve la date que tu modifies.

[John Parker]

D'accord ça marche, je me suis arrangé pour que l'utilisateur mette la semaine et que la date se mette automatiquement

Cependant, la copie ne se fait que lorsqu'on sauvegarde. Admettons que l'utilisateur sauvegarde plusieurs fois son travail, il n'aura qu'une copie qui ne contiendra pas le travail "final". Je ne sais pas si c'est compréhensible ce que je demande ?

En tout cas un grand merci pour ton aide!