XL 2013 aide avec userform

robich · 28 Février 2016

bonsoir le forum,

je viens vers vous afin de vous demander de m'aidez, j'ai créer un userform avec une combobox et CommandButton1,
je souhaite une fois sélectionner le nom sur le combobox il m'ouvre le PDF qui correspond au nom choisi.
je souhaite mettre plus de CommandButton1 est je ne sais pas comment procéder

Code:

Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim i As Integer
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For i = 1 To 20
   
  Next i
End Sub

Private Sub CommandButton1_Click()
Application.Visible = True
UserForm1.Hide

End Sub

Public Sub openPDF(ByVal cheminPDF As String)
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
If Dir(cheminPDF) = "" Then
    MsgBox "Fichier suivant non trouvé:" & vbCr & cheminPDF
Else
    Shex.Open (cheminPDF)
End If
End Sub

Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim i As Integer

  If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'On sort si pas de sélection
Ligne = Me.ComboBox1.ListIndex + 2
openPDF Sheets("Données").Cells(Ligne, 3).Value

End Sub

merci encore

Lone-wolf · 29 Février 2016

Re : aide avec userform

Bonjour robich

Dans un Module place ceci

Code:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Sub Afficher_PDF()
Dim Fichier As String
Dim Chemin As String
Dim Nom As String
Dim hwnd As Long

Chemin = "C:\User\robich\Documents PDF\"     'A changer
Nom = UserForm1.ComboBox1.Text & ".pdf"

    Fichier = Chemin & Nom
    ShellExecute hwnd, "Open", Fichier, 0&, 0&, SW_SHOWNORMAL
    
End Sub

Et dans l'évenement du bouton: Run "Afficher_PDF"

A+ 😎

XL 2013 aide avec userform

robich

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

XL 2013 aide avec userform

robich

XLDnaute Occasionnel

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency