OVH Cloud OVH Cloud

Incrémentation automatique

2 réponses
Avatar
Karamasof
Salut à tous,

Je vous explique mon problème. J'ai créer une fiche de commande standard qui
va être utilisé par une dizaine d'utilisateurs différents. Ce que j'aimerais
faire c'est qu'a chaque fois qu'un utilisateur imprime le document, le numéro
du document s'incrémente.
On m'avais donner ce code mais le problème c'est que ca marche mais
uniquement si on sauve le document:

Private Sub Workbook_Open()

With Range("Feuil1!A1")
.Value = .Value + 1
End With

End Sub

Quelqu'un pourrait-il m'aider??? je suis loin d'être un crac avec les macros

Merci d'avance

2 réponses

Avatar
poy-poy
Bonjour Karamasof,

Comme indiqué dans ton dernier message sur l'incrémentation, il faut sauver
le fichier juste aprés :

Private Sub Workbook_Open()

With Range("Feuil1!A1")
.Value = .Value + 1
End With
activeworkbook.save

End Sub

Cordialement
Benjamin


Salut à tous,

Je vous explique mon problème. J'ai créer une fiche de commande standard qui
va être utilisé par une dizaine d'utilisateurs différents. Ce que j'aimerais
faire c'est qu'a chaque fois qu'un utilisateur imprime le document, le numéro
du document s'incrémente.
On m'avais donner ce code mais le problème c'est que ca marche mais
uniquement si on sauve le document:

Private Sub Workbook_Open()

With Range("Feuil1!A1")
.Value = .Value + 1
End With

End Sub

Quelqu'un pourrait-il m'aider??? je suis loin d'être un crac avec les macros

Merci d'avance



Avatar
docm
Bonjour Karamasof.

Si tu tiens absolument à ce que la valeur incrémentée soit sauvegardée sans
avoir à sauvegarder le fichier, regarde du côté des instructions
SaveSetting, GetSetting, DeleteSetting.

Amicalement.

"Karamasof" wrote in message
news:
Salut à tous,

Je vous explique mon problème. J'ai créer une fiche de commande standard
qui

va être utilisé par une dizaine d'utilisateurs différents. Ce que
j'aimerais

faire c'est qu'a chaque fois qu'un utilisateur imprime le document, le
numéro

du document s'incrémente.
On m'avais donner ce code mais le problème c'est que ca marche mais
uniquement si on sauve le document:

Private Sub Workbook_Open()

With Range("Feuil1!A1")
.Value = .Value + 1
End With

End Sub

Quelqu'un pourrait-il m'aider??? je suis loin d'être un crac avec les
macros


Merci d'avance