Ouvrir un autre fichier excel en utilisant un userform

Bonjour a tous et merci d avance pour votre aide

ma problématique est la suivante;

je souhaiterai en ouvrant mon fichier excel qu un userform s'ouvre avec 3 possibilités a cocher (3 checkbox) la première se nommant "5L" la deuxième "20L" et la troisième "1000L" et que la solution cocher ouvre le fichier associé apres avoir validé.
Le fichier associé au "5L" se nomme fichierexp5L dans "c/bureau/fer/"
Le fichier associé au "20L" se nomme fichierexp20L dans "c/bureau/fer/"
Le fichier associé au "1000L" se nomme fichierexp1000L dans "c/bureau/fer/"

Je ne peux pas mettre de fichier en exemple car il s agit d un fichier vierge auquel une macro va s ouvrir des l ouverture d excel.

en vous remerciant et en esperant avoir était assez clair.

Cordialement

Bonjour,

Utilise

Code:

---

workbook.open(chemin)

---

Bonjour,

Citation:

---

Envoyé par pasdechances

Bonjour,

Utilise

Code:

---

workbook.open(chemin)

---

---

Enfin, presque ;)

Code:

---

workbookS.open(chemin)

---

Bonjour,

Je ne suis pas un crac mais j'ai pu avoir quelque chose qui puisse t'interresser.
Tu trouveras en annexe la feuille excel avec l'exemple.

Voici le code du formulaire.
Il te faudra avant d'utiliser le code et même le fichier, de changer dans le code du formulaire "RastaBomboclat" par ton nom d'utilisateur.

Un autre contributeur du site pourra aider a trouver un moyen de réécrire le code de sorte qu'il fonctionne sur les poste de tout utilisateur.:D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Private Sub CommandButton1_Click() Me.Hide 'CommandeButton1 c'est le bouton Annuler. Ici Me represente le formulaire. On demande que le formulaire soit caché. End Sub   Private Sub CommandButton2_Click() 'C'est le bouton OK If OptionButton1.Value = True Then 'Teste si l'option1 est choisi alors... Workbooks.Open Filename:="C:\Users\RastaBomboclat\Desktop\fichierexp5L.xls " 'Ouvre la feuil fichierexp5L ElseIf OptionButton2.Value = True Then Workbooks.Open Filename:="C:\Users\RastaBomboclat\Desktop\fichierexp5L.xls " 'Ouvre la feuil fichierexp20L ElseIf OptionButton3.Value = True Then Workbooks.Open Filename:="C:\Users\RastaBomboclat\Desktop\fichierexp5L.xls " 'Ouvre la feuil fichierexp1000L Else: MsgBox Application.UserName & "," & vbCr & "Il faut faire un choix!", vbInformation, "Pas de choix fait" 'Au cas contraire un message est afficher demandant de faire un choix End If   End Sub

---

Rasta Bomboclat

Merci de mettre un :ccool: si c'est bon et de cliquer sur :resolu: quand le sujet est résolu ;)

Citation:

---

Envoyé par clementmarcotte

Bonjour,
Enfin, presque ;)

Code:

---

workbookS.open(chemin)

---

---

Héhé le "s" a fillé et je ne l'avais pas remarqué:aie: