Microsoft 365 Code VBA numéro de série

  • Initiateur de la discussion Initiateur de la discussion JiCi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JiCi

XLDnaute Nouveau
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. 🙂
 

Pièces jointes

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

dans l'event du bouton
VB:
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
demo3.gif


pour enregistrer avec ce code tes pdf tu utilise [D13].text et pas .Value
 
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 🙂
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
632
Réponses
29
Affichages
3 K
Retour