Discussion :

[nicroq]

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

[pasdechances]

Bonjour,

Utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbook.open(chemin)

[clementmarcotte]

Bonjour,

Bonjour,

Utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbook.open(chemin)

Enfin, presque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbookS.open(chemin)

[RastaBomboclat]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 si c'est bon et de cliquer sur quand le sujet est résolu

[pasdechances]

Bonjour,
Enfin, presque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbookS.open(chemin)

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