Ouvrir un PDF à partir d'un USERFORM
Bonjour tout le monde
j'ai plusieurs fichier PDF, 10 en total
je les ai nommé 1,2,3,4,5,6,7,8,9 et 10
Dans mon userform j'ai seulement un bouton et un textbox
j'ai affecté le code çi dessous à mon bouton, maintenant quand je clique sur mon bouton le fichier pdf "1" s'ouvre sans problème.
Je me suis dit, au lieu de créer 10 boutons (un bouton pour chaque fichier ), y a t il un moyen de modifier mon code de sorte à ce qu'il suffira d'écrire dans mon textbox1 le numéro du fichier souhaité, puis je clique sur le bouton seul le fichier souhaité s'ouvre.
Exemple je souhaite ouvrir le fichier pdf "5" , j'écris 5 dans mon textbox1, je clique le bouton et et le fichier pdf "5" s'ouvre.
sachant que tout mes fichiers sont dans le me repertoire voici mon code si vous pouvez m'aider à l'améliorer
Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink ("\\SERVEUR\d\1.PDF")
End SubBonjour le forum
Bonjour saber
Peut être avec ceci (chemin à adapter) :
Option Explicit
Dim Files As String, MonFichier As String
Private Sub UserForm_Initialize()
Files = Dir("C:\a\dossier\*.*") '<== A adapter
Do While Files <> ""
ComboBox1.AddItem Files
Files = Dir
Loop
End Sub
Private Sub CommandButton1_Click()
MonFichier = ComboBox1.Value
Workbooks.Open Filename:=MonFichier
Unload Me
End Sub
@+ Ericcool02
Bonjour saber36, Ericcool02, le forum,
Un essai.....
Private Sub CommandButton1_Click()
Dim a As String
a = "\\SERVEUR\d\" & TextBox1.Value & ".pdf"
ThisWorkbook.FollowHyperlink (a)
End SubCordialement,
merci ça marche super bien,
simplement je reçoit un message "certains fichiers peuvent contaminer ou endommager votre ordinateur......voulez vous continuer " comment zapper ce message automatiquement s'il vous plait ?
Re,
Peut-être ainsi....
Private Sub CommandButton1_Click()
Dim a As String
a = "\\SERVEUR\d\" & TextBox1.Value & ".pdf"
Application.DisplayAlerts = False
ThisWorkbook.FollowHyperlink (a)
Application.DisplayAlerts = true
End SubCordialement,