Userform pour afficher des feuilles et générer des PDF

j'ai fait une petite erreur en renomant le bouton

le bouton vert n'avait pas d'event

donc

ainsi

selon mes hoix je vais me retrouver avec

si je sauve x feuilles dans le même pdf c'est le nom du classeur plus date complete

si je sauve feuille par feuilles j'ai le nom des feuille avec date complete

et je peux le faire 100 fois dans la journée je n'ecrase pas les enregistrement précédents

voilà le luxe c'est d'avoir le choix

C'est reparé

A+ François

#fanfan38

re

je le redonne au cas où

Salut Patrick

Je n'y peux rien Vinzu avait encore changé la function crepdf...

C'est réparé

A+ François

Bonsoir fanfan38 et patrickT que vous dire à part...... MERCI !!!!!!!! franchement vous m'avez gâté car vos versions sont justes parfaites ! Cette fois-ci je peux vraiment faire avancer mon projet ! merci merci merci merci merci......à l'infini !

Rebonjour,

encore une petite question est-ce que je peux faire en sorte que lorsque l'on sélectionne toutes les feuilles, cela occulte une seule feuille (que je vais utiliser pour des formules) - elle s'appelle Référence

re

quel model utilise tu ? le mien ou celui de fanfan38

Le vôtre

ok
remplace tout simplement le activate comme suit

Private Sub UserForm_Activate()
    Dim Sh
    Btprint.Caption = "Imprimer selon le choix" & vbCrLf & "dans la liste"
    For Each Sh In Sheets: If LCase(Sh.Name) <> "référence" Then ListBox1.AddItem Sh.Name
    Next
End Sub

la feuille "Référence" ne sera tout simplement pas dans la liste

Un tout grand MERCI !!!!!!!