'BOUTON XLSX
Private Sub CommandButton3_Click()
Dim classeur_rmf
ChDir ActiveWorkbook.Path
Set classeur_rmf = Workbooks.Open(ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".xlsx")
UserForm1.Hide
End Sub
'BOUTON PDF
Private Sub CommandButton7_Click()
Dim Chemin_FichierPDF$, hwndSim
Chemin_FichierPDF = ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".pdf"
hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierPDF, 0, 0, 1)
End Sub
'BOUTON JPG
Private Sub CommandButton8_Click()
Dim Chemin_FichierJPG$, hwndSim
Chemin_FichierJPG = ActiveWorkbook.Path & "\Contrat\" & TextBox26 & ".jpg"
hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierJPG, 0, 0, 1)
' BOUTON JPG (2)
Dim Chemin_FichierJPG2$, hwndSim2
Chemin_FichierJPG2 = ActiveWorkbook.Path & "\Contrat\" & TextBox26 & " (2)" & ".jpg"
hwndSim2 = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierJPG2, 0, 0, 1)
End Sub