Fonction Work_Book Open (créer une référence unique à chaque ouverture d'un template)

Bonjour,

Je suis complètement novice par rapport aux macro et je dois créer un modèle de document excel de type request ayant une référence unique qui devra s'incrémenter automatiquement à chaque ouverture avec l'année en cours associée.

E gros je voudrais avoir une référence construite sous ce format :

"Label ValeurIncrémentée/AnnéeEnCours"

Par exemple "Toto 001/2016"

Pour le moment j'en suis arrivée à ce stade :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Workbook_Open() Sheets("Feuil1").Activate Dim Annee As Integer   Range("B1") = Range("B1") + 1 Annee = Year(Now()) Range("B2") = Annee   End Sub

---

Avec ce code j'ai une valeur et une année.

Par contre la valeur ne s'incrémente qu'une seule fois si je ne sauvegarde pas le fichier à chaque fois.
L'ojectif étant de garder le template vide ce n'est pas terrible.
Et je ne sais pas comment faire pour les associer à un Label et à les rassembler dans une seule cellule.

Merci d'avance,

Bonjour BlueWolf9,

La seule manière que tu as d'incrémenter correctement ton nouveau fichier est de savoir combien d'anciens fichiers ont été créés.
Et la seule manière que tu saches cela serait qu'ils soient tous enregistrés dans un répertoire commun.

Ainsi, est-ce le cas ?

Cordialement,
Kimy

Bonjour

Afin que la valeur s'incrémente il est obligatoire de "sauvegarder" la dernière valeur utilisée.
Pour cela il faut enregistrer le template après son ouverture avec les nouvelle valeurs. Comme ça si tu travailles dessus et que quelqu'un d'autre créé un document à partir de ce template pendant ce temps là, le numéro sera incrémenté.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Workbook_Open()   Const TempPath As String = "C:\Template.xltm" 'ici le chemin et le nom du template   With ThisWorkbook.Worksheets(1) If .Range("B2") = Year(Now()) Then .Range("B1") = Range("B1") + 1 Else .Range("B1") = 1 .Range("B2") = Year(Now()) End If End With ThisWorkbook.SaveAs Filename:=TempPath, FileFormat:=xlOpenXMLTemplateMacroEnabled   End Sub

---

EDIT : Le gros défaut de cette approche c'est que si quelqu'un fait une fausse manip, et que le fichier n'est pas enregistré ensuite, il risque d'y avoir des trous dans les indices.

Bonjour,
Avec de si on mettrait Paris en bouteille!

Alors je vais y aller avec mes Si!

Si tu travail en location,
Si tu es administrateur de la machine,

Utilises la base de registre pour incrémenter dz valeur!

Si tu est en réseau stock ta valeur dans un fichier texte!

Rdurupt
Je n'ai pas completement compris ce que tu as expliqué. Mais ça pourrait peut-être être la solution au problème d'incrémentation.

letienne
Le souci c'est que je dois sauvergarder mon fichier sous un nouveau nom à chaque fois.

Par exemple j'ai un fichier Template (sur lequel je génére une référence)
Les utilisateurs le remplissent comme ils le souhaitent et le sauvent sous un autre nom. Et je ne peux pas maitriser le nom qu'ils vont donner au fichier.

Kimy_Ire
Comme je dois sauvergarder mon fichier sous un nouveau nom à chaque fois je perd ce lien de "valeur précédente"

En effet les utilisateurs ouvrent incrémentent un fichier sur le réseau et le tout par programme.

Peut importe ou quand comment il sauvegarde leur fichier Excel le code est dedans de toutes le façons!

J'ai pu modifier un peu le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Workbook_Open() Range("B1") = Range("B1") + 1 Range("B2") = Year(Now()) ActiveWorkbook.Save End Sub   Sub Workbook_BeforeClose(Cancel As Boolean) Dim Ref As Integer   Chemin = ActiveWorkbook.Path Ref = Range("B1") Annee = Range("B2") Application.DisplayAlerts = False   Range("B4") = "Toto" & " " & Ref & "/" & Annee   End Sub

---

De cette manière la valeur de référence continue de s'incrémenter et je peux sauvergarder chaque fichier sous un nom différent. Et je peux dans une autre cellule (B4) associer les différentes partie de ma référence.

Le dernier point qui me dérange c'est que je souhaiterai avoir écrit "001" et non "1" dans la valeur de référence. J'ai essayé de changer la déclaration de variable mais ça ne fonctionne pas.

Citation:

---

Envoyé par BlueWolf9

letienne
Le souci c'est que je dois sauvergarder mon fichier sous un nouveau nom à chaque fois.

Par exemple j'ai un fichier Template (sur lequel je génére une référence)
Les utilisateurs le remplissent comme ils le souhaitent et le sauvent sous un autre nom. Et je ne peux pas maitriser le nom qu'ils vont donner au fichier.

---

Avec la solution que je t'ai donné, l'utilisateur peut enregistrer son fichier où il le souhaite et sous le nom qu'il veut. La référence s'incrémente à chaque fois que le template est ouvert, c'est tout.

Pour changer le format des nombres, utilise NumberFormat :

Code:

---

1 2	ActiveCell.NumberFormat = "000"

---

Pour le faire à partir d'une variable :

Code:

---

1 2 3 4 5

Dim num As Long Dim reference As String num = 1 reference = "totot2016/" & Format(num, "000")

---

C'est nickel.
Merci pour tous vos conseils.

Voici le résultat pour information :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Workbook_Open() Range("B1") = Range("B1") + 1 Range("B2") = Year(Now()) ActiveWorkbook.Save End Sub   Sub Workbook_BeforeClose(Cancel As Boolean) Dim Ref As String   Chemin = ActiveWorkbook.Path Ref = Format(Range("B1"), "000") Annee = Range("B2") Application.DisplayAlerts = False   Range("B4") = "Toto" & " " & Ref & "/" & Annee   End Sub

---