Sujet Précédent Sujet Suivant

Mise en place d'un compteur et enregistrement automatique

Fermé
cyndie - 20 janv. 2022 à 17:23
yg_be Messages postés 23481 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 5 mars 2025 - 21 janv. 2022 à 14:26
Bonjour,

Je suis débutante en VBA. Je dois créer un document avec un compteur qui augmente à chaque ouverture du dossier et également un enregistrement en pdf(si possible) à la fermeture du dossier sous un nom incluant le numéro du compteur.
Pouvez-vous m'aider?
Bien à vous
Cyndie

Configuration: Windows / Chrome 91.0.4472.101
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23481 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 5 mars 2025 Ambassadeur 1 568
20 janv. 2022 à 19:23
bonjour,
quel logiciel utilises-tu?
0
Cyndie
21 janv. 2022 à 08:42
Bonjour
Je suis sur Excel 2013
0
yg_be Messages postés 23481 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 5 mars 2025 1 568 > Cyndie
21 janv. 2022 à 10:44
Tu peux mettre ce code dans la page de code "thisworkbook": 
Private Sub Workbook_Open()
Sheets("cyndie").[c5] = Sheets("cyndie").[c5] + 1
End Sub

Cela incrémentera le compteur qui est en cellule C5 de la feuille nommée cyndie.

Que devrait contenir le fichier pdf créé à chaque fermeture?
0
Cyndie > yg_be Messages postés 23481 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 5 mars 2025
21 janv. 2022 à 11:06
Je suis vraiment très nulle : ça ne marche pas
0
yg_be Messages postés 23481 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 5 mars 2025 1 568 > Cyndie
21 janv. 2022 à 14:26
As-tu pu mettre le code dans la bonne page?
As-tu un message d'erreur?
0
Réponse 2 / 2
Cyndie
21 janv. 2022 à 10:54
Ok!!
J’étais vraiment à côté de la plaque : je n’utilisais pas du tout la bonne formule. Merci !

Il s’agit d’un bon de commande, donc à chaque utilisation il est possible de remplacer le contenu de beaucoup de case. Le principe voulant que le bon de commande ainsi modifié soit sauvegardé en format pdf (pas de modification possible, et contrôle possible pour les comptables)
0
yg_be Messages postés 23481 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 5 mars 2025 1 568
21 janv. 2022 à 14:25
Ce code-ci fera, je pense, ce que tu souhaites. 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path + "\ccm20220121_" + CStr(Sheets("cyndie").[c5]) + ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

Private Sub Workbook_Open()
Sheets("cyndie").[c5] = Sheets("cyndie").[c5] + 1
End Sub
0

Discussions similaires

Que veut dire " in da place " ?
westcoastDJ -
fyu -

9 réponses
Les meilleurs places bercy / accor hotel arena
sisi -
baladur13 -

8 réponses