Microsoft 365 Code VBA numéro de série

[JiCi]

Bonsoir à tous,

Je suis coincé un peut là, ce que je voudrais c’est une macro qui afficherait un numéro de certificat (incrémenté à une cellule vide) lettre et chiffre. En pressent chaque fois sur le bouton New Certificat un numéro de certificat s’affiche sous ce model C20220316-0020040, C20220316-0020041, C20220316-0020043……. C20220316 = C + date d'aujourd’hui.
Puis les second chiffres 0020040, 0020041, 0020042 numéro de certificat. Pour conclure un bouton Enregistrement afin d’enregistrement en PDF dans un dossier externe D:\Certificat

Merci de votre aide. 🙂

 

[patricktoulon]

bonjour
essaie simplement avec numberformat
un bouton sur ta feuille et par exemple en D13

dans l'event du bouton

Private Sub CommandButton1_Click()
    With [d13]
        .Value = .Value + 1
        .NumberFormat = "C" & Chr(34) & Format(Date, "yyyymmdd-") & Chr(34) & "0000000"
    End With
End Sub

démo

pour enregistrer avec ce code tes pdf tu utilise [D13].text et pas .Value

 

[JiCi]

Bonjour Patrick,

Désolé de ne pas avoir donner des nouvelles plutôt. Actuellement je suis en mode transfert de département a mon travail et préparatif pour formation extérieur du pays bientôt, donc je n'est malheureusement pas ue le temps de faire des essaies. Par contre c'est ce que je cherchais comme macro. Je te remercie énormément et d'ici quelques jours je te revient avec mes assaies sur ce macro.

À bientôt 🙂

 

[JiCi]

Bonjour Patrick,
Ca fonctionne bien pour la partie du numéro de série. Le seul bémol est au niveau de la date elle ne se met pas en date du jour.

Aurais-tu une idée de quoi que ca dépend ?

 

[patricktoulon]

Bonjour JiCi
et comment pourrait il en être autrement 🙄

Private Sub CommandButton1_Click()
With [d13]
.Value = .Value + 1
.NumberFormat = "C" & Chr(34) & Format(Date, "yyyymmdd-") & Chr(34) & "0000000"
End With
End Sub

 

[JiCi]

Voici mon GIF qui démontre que la date ne ce met a la date d'aujourd'hui. Pour le numéro de certificat aucun problème de création d'un nouveau.

C20220320-0020054​

 

[patricktoulon]

Bonjour JiCi
et comment voudrais tu qu'elle change quand tu clique une fois un 36 le jour c'est toujours le même
il faut tester plusieurs jours pour voir la différence

 

[JiCi]

Salut Patrick,

Cela fonctionne bien dans une feuille qui ne contient pas l'ensemble de la feuille.
Je vais devoir vérifier ce qui cause la non compatibilité avec mon VBA de recherche; nom entreprise, adresse, code postal, téléphone.