Trouver et ouvrir un fichier pdf qui contient le texte d’une TextBox

**nacereddine.mourad** · 15/07/2016, 12h33

Bonjour et merci à vous tous

Information :
- Dans la feuille (P associer arret), cliquez sur le bouton (Chercher le plan de l'article).
- Dans TextBox2 écrire aa, sélectionner l’item qui apparaîtra

Objectif :
- Avec CommandButton16 (Voir plan article), je voudrai ouvrir le fichier pdf qui contient le texte de la "*" &TextBox8 & "*", si le ficher existe, sinon je joint un fichier pdf dans le dossier ThisWorkbook.Path & "\Article et RDA".

1 Module qui cherche l’existence d’un dossier qui fonctionne bien

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim Afficher As Boolean
 
'Code de J. Boisgontier  (modifié)
Sub arborescence2(dossier, valeur, Resultat)
  Resultat = False
 
  If dossier = "" Then Exit Sub
 
  Dim fs As Object
  Dim dossier_racine As Object
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.GetFolder(dossier)
 
  Afficher = False
  Lit_dossier2 dossier_racine, 1, valeur
  Resultat = Afficher
 
End Sub
 
Sub Lit_dossier2(ByRef dossier, ByVal niveau, valeur)
 
  If Afficher = True Then Exit Sub
 
  If dossier.Name = valeur Then
    Afficher = True
    Shell "explorer /open," & dossier.Path, vbNormalFocus
    Exit Sub
  End If
 
  Dim D As Object
 
  For Each D In dossier.SubFolders
     If Afficher = True Then Exit For
     Lit_dossier2 D, niveau + 1, valeur
  Next
End Sub

2 Module qui cherchent l’existence d’une photo qui fonctionne bien

Code :

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

1
2
3
4
5
6
7
8
9
Public Function FichierExiste(MonFichier As String)
'par Excel-Malin.com ( http://excel-malin.com )
 
   If Len(Dir(MonFichier)) > 0 Then
      FichierExiste = True
   Else
      FichierExiste = False
   End If
End Function