copie classeur Excel

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:

---

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

---

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

Code:

---

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

---

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

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é

Citation:

---

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.

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!

Bonjour,
La procédure événementielle Worksheet_Change réagit lorsque l'on modifie une valeur dans une cellule.
Comme tu as placé le code pour enregistrer ton classeur au moment où l'utilisateur modifie la cellule $D$10 ou une autre, l'enregistrement ne s'opère qu'à ce moment là.
Utilise éventuellement la procédure événementielle Workbook_BeforeClose. Dans ce cas là l'enregistrement se fera au moment où l'utilisateur ferme le fichier.
Attention de veiller à ce que la date soit placée dans la cellule dont on a parlé puisque de cette date dépends le nom du classeur.
Un peu de lecture sur les évènements du classeur et des feuilles

Bonjour,
Tout d'abord, merci de ton aide corona.
Mon code est le suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Private Sub Workbook_BeforeClose(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

---

En théorie, si l'utilisateur modifie la date de la semaine et ferme son fichier, il y aura une copie?
De plus, je n'arrive pas ouvrir cette copie...

Cordialement

Bonjour,
As-tu jeté un coup d'oeil aux didacticiels que je t'ai suggéré de lire. La procédure événementielle Workbook_BeforeClose, voir ci-dessous

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)

---

n'a pas l'argument Target. De plus c'est à placer dans l'objet ThisWorkbook.
Pour programmer en VBA, un minimum de lecture est indispensable pour évoluer, sinon on se contente de faire du copier/coller.

Bonjour,

Je viens de lire les procédures événementielles que tu m’as conseillé. Je comprends l’exemple donné pour la procédure Private Sub Workbook_BeforeClose(Cancel As Boolean) cependant je n’arrive pas l’adapter dans mon cas. Dans l’exemple donné, si la cellule est vide un message s’affiche pour dire à l’utilisateur de la remplir. Dans mon cas la cellule sera toujours remplie par un nombre correspondant au numéro de semaine. Ce qu’il faudrait serait que la copie se fasse quand cette cellule est modifiée (et que le nom du fichier change également en modifiant le numéro de semaine). Voila, j’ai déjà eu des cours de VBA mais j’avoue ne pas être forcément très doué….

Merci de toujours prendre le temps de me répondre

Bonjour,
J'avoue que c'est moi maintenant qui ne comprends plus rien, mais peut-être ne suis-je pas clair assez dans mes réponses
Quand faut-il sauver le classeur ?
Au moment où l'utilisateur a entré la date dans une cellule précise ?
- Utilise la procédure événementielle Worksheet_Change
Problème : Si après avoir été enregistré l'utilisateur modifie des données dans ce même classeur, il ne faut pas qu'il oublie de sauver en quittant sinon les modifications ne seront pas prise en compte.
Tu souhaites que l'utilisateur ne soit pas "tracassé" par ce travail de sauvetage s'il est ditrait par exemple. Alors tu utilises EN PLUS la procédure événementielle Workbook_BeforeClose.
Tu peux aussi décider que dès que l'utilisateur a encoder la date, on enregistre le classeur et on ferme le classeur pour éviter qu'il ne fasse des modifications.
Tu écris le code adéquat dans la procédure Worksheet_Change et c'est tout.

Citation:

---

Voila, j’ai déjà eu des cours de VBA mais j’avoue ne pas être forcément très doué….

---

Il ne s'agit pas vraiment de problème de VBA mais de logique.

En réalité l'utilisateur doit changer le numéro de semaine dans la première feuille de ce classeur appelé "Sommaire". Il va ensuite apporter ses modifications dans les autres feuilles. Ce que je voudrais serait qu'une fois qu'il ait fini de faire toutes ses modifications, la copie se fasse automatiquement en changeant le nom du fichier. De la sorte, il aura une copie du fichier par semaine de sorte à garder des archives.

Je pensais que le plus logique serait de se baser sur la modification du numéro de semaine pour réaliser la copie.

Suis-je plus clair? :lol:

Bonjour,
C'est toi qui prends la décision de quand tu voudras sauver ce fichier.
Que ce soit quand il tape le n° de semaine dans (exemple attention !) E10 ou une date en A4, ou son nom dans la cellule F80 ou quand il change de feuille, de classeur ne change rien.
TU prends la décision en choisissant la bonne procédure événementielle.

Oui mais ce n'est pas possible de décider de sauvegarder une fois le classeur fermé, tout en comparant le numéro de la semaine de la cellule au numéro de la semaine indiqué dans le nom du fichier afin d'éviter une copie du fichier avant que toutes les mises à jours soient faites?