OVH Cloud OVH Cloud

Problème de nom de fichier

2 réponses
Avatar
GuyM
Bonjour,
J'ai un souci : je dispose d'un fichier nommé xxxx0.xls, comment faire pour
que à chaque fois que je sauve ce classeur, le nom du fichier soit du style
xxxx1.xls. Ensuite, en ouvrant encore xxxx0.xls, à la sauvegarde, le nom
soit xxxx2.xls. En rouvrant xxxx0.xls, en le sauvegardant son nom soit
xxxx3.xls, etc.

Dois-je y inclure une macro à l'ouverture, ou à la fermeture?

Merci. Guy.

2 réponses

Avatar
ru-th
Salut

supposons un compteur dans la feuille2 cellule A2 (pour faire preuve
d'originalité)
dans le module thisworkbook, à la fermeture
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[FEUIL2!A2] = [FEUIL2!A2] + 1
ThisWorkbook.SaveCopyAs "C:TEMPXXXX" & [FEUIL2!A2] & ".XLS"
'si tu veux sauvegarder le XXXX0, vires l'apostrophe
'devant la ligne ci-dessous
'thisworkbook.save
'sinon même chose pour la ligne d'en-dessous
'ThisWorkbook.Saved = True
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"GuyM" a écrit dans le message de news:
3fb3bd11$0$256$
Bonjour,
J'ai un souci : je dispose d'un fichier nommé xxxx0.xls, comment faire
pour

que à chaque fois que je sauve ce classeur, le nom du fichier soit du
style

xxxx1.xls. Ensuite, en ouvrant encore xxxx0.xls, à la sauvegarde, le nom
soit xxxx2.xls. En rouvrant xxxx0.xls, en le sauvegardant son nom soit
xxxx3.xls, etc.

Dois-je y inclure une macro à l'ouverture, ou à la fermeture?

Merci. Guy.




Avatar
gb
Bonjour.

Oui, tu dois inclure une macro à la fermeture de préférence.

"GuyM" a écrit:
Bonjour,
J'ai un souci : je dispose d'un fichier nommé xxxx0.xls, comment faire
pour

que à chaque fois que je sauve ce classeur, le nom du fichier soit du
style

xxxx1.xls. Ensuite, en ouvrant encore xxxx0.xls, à la sauvegarde, le nom
soit xxxx2.xls. En rouvrant xxxx0.xls, en le sauvegardant son nom soit
xxxx3.xls, etc.

Dois-je y inclure une macro à l'ouverture, ou à la fermeture?

Merci. Guy.