Récupérer valeur d'un combobox

Bonjour,

J'ai un fichier avec un userform avec combobox. J'aimerais récupérer le choix de l'userform et l'attribuer a une variable.

Le fichier que j'ai joint est minimal.

Une fois que j'ai pu récupéré le choix qui est en réalité le nom d'un client, je peux sélectionner la feuille en question et la sauver en pdf.

La première feuille contient les noms des clients (noms) et les feuilles suivantes sont les feuilles des clients en question.

Merci de votre aide

Claire

Bonjour !

Private Sub CommandButton1_Click()

Dim client As String

client = ComboBox1.Value

Sheets(client).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        nofacture & " " & client& ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Feuil1").Range("A1:A4").Value

End Sub

Dites moi si cela vous convient !

Bonne soirée.

Bonjour starnain,

Cela fonctionne très bien après une petite adaptation.

J'ai déja un bouton de commande (non activex), est-ce que je peux affecter ce que tu m'as écrit a ce bouton. Sinon, pourrais-tu me dire comment ?

Merci beaucoup

Claire

J'ai utilisé le nom du bouton de votre USF. Si ce n'est pas celui-ci, envoyé le fichier que je regarde.

Bonne soirée.

Sinon pour être plus précis :

Private Sub CommandButton1_Click()

Dim client As String

client = ComboBox1.Value

If client = "" then Exit Sub 'Si la valeur n'est pas le nom du client alors ne fait rien

Sheets(client).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        nofacture & " " & client& ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Feuil1").Range("A1:A4").Value

End Sub

Bonjour Starnain,

J'ai joint le même fichier mais je lui ai mis un bouton (fait avec les formes et non en vba). C'est a ce bouton que j'aimerais affecter la macro qui déclenche l'useform. J'ai essayé avec le clic droit mais la macro n'apparait pas.

J'ai aussi essayé avec un bouton activex ou non, et toujours pas de macro a attribuer.

Je suis un peu perdue.

Claire

Rebonjour Starnain,

J'ai trouvé la solution. J'ai mis dans un module ce code-ci.

Sub AppelerUserForm()
Load UserForm1
UserForm1.Show
End Sub

Et ça marche.

Merci beaucoup de ton aide

Claire