Bonsoir à toutes et à tous,
J'ai un tableau vide excel ("7251.xls") que j'utilise pour des saisies.
A chaque fois que je l'ouvre, un numéro d'ordre s'incrémente, numéro qui devient la nouvelle identité du tableau quand je le sauvegarde (exemple : 17.xls).
Jusque là, ça marche...mais du coup, si j'ouvre à nouveau un tableau déjà réidentifié, il change encore de nom, et là ça ne me va plus.
En résumé, lorsqu'un tableau a été documenté, il doit garder son identité.
Voilà la procédure que j'ai pondu dans ThisWorkbook avec la partie If...then qui ne fonctionne pas
(en même temps il y a une ligne qui affiche l'heure)
Private Sub Workbook_Open()
'Affichage de l'heure courante
Application.OnTime Now + TimeValue("00:00:01"), "Horloge"
'Numérotation des classeurs dans la cellule AM5
If ActiveWorkbookName = ("7251.xls") Then
Worksheets(1).[AM5].Value = Worksheets(1).[AM5].Value + 1
End If
End Sub
Pour info, je suis pire que novice en VB et je découvre tout en fouillant sur internet et en essayant, mais bon, ça ne solutionne pas tout... quoique !
Merci beaucoup pour votre aide précieuse
J'ai un tableau vide excel ("7251.xls") que j'utilise pour des saisies.
A chaque fois que je l'ouvre, un numéro d'ordre s'incrémente, numéro qui devient la nouvelle identité du tableau quand je le sauvegarde (exemple : 17.xls).
Jusque là, ça marche...mais du coup, si j'ouvre à nouveau un tableau déjà réidentifié, il change encore de nom, et là ça ne me va plus.
En résumé, lorsqu'un tableau a été documenté, il doit garder son identité.
Voilà la procédure que j'ai pondu dans ThisWorkbook avec la partie If...then qui ne fonctionne pas
(en même temps il y a une ligne qui affiche l'heure)
Private Sub Workbook_Open()
'Affichage de l'heure courante
Application.OnTime Now + TimeValue("00:00:01"), "Horloge"
'Numérotation des classeurs dans la cellule AM5
If ActiveWorkbookName = ("7251.xls") Then
Worksheets(1).[AM5].Value = Worksheets(1).[AM5].Value + 1
End If
End Sub
Pour info, je suis pire que novice en VB et je découvre tout en fouillant sur internet et en essayant, mais bon, ça ne solutionne pas tout... quoique !
Merci beaucoup pour votre aide précieuse