améliorer un code, merci de votre aide

[emp06]

Le fichier joint permet de sauvegarder une feuille calcul avec un numéro
a chaque ouverture du fichier le numéro s'incremente avec +1
je souhaiterais qu'en plus du numéro du fichier le texte inscrit en F11 se mette à coté du numéro sauvegardé
merci de votre aide

 

[jp14]

Re : améliorer un code, merci de votre aide

Bonjour

Pour ajouter des informations au nom du classeur il faut modifier cette ligne et déplacer le controle de F11

NumFacture = Format([a2], "0000") & " du " & Format(Date, "dd mm yyyy")

       With .Sheets("facture")
      If .[f11] = "" Then
        MsgBox "Saisir un nom!"
        .[f11].Select
        Exit Sub
      End If

NumFacture = Format([a2], "0000") &  [F11]  & "  du " & Format(Date, "dd mm yyyy")

A tester

JP

 

[emp06]

Re : améliorer un code, merci de votre aide

Merci pour ta prompt réponse. Cela fonctionne sur le modèle que je t'ai envoyé. Mais lorsque je le transpose sur mon modèle de travail il bloque a A3.
Pourtant les cellules sont mises au même endroite.
Puis je t'envoyer mon modèle pour que tu puisse y jeter un oeil. Cela m'aiderais beaucoup
Avec mes remerciements