Discussion :

[christ-94]

Bonjour

Voila j'aimerais ouvrir un Pdf mais je ne connais qu'une partie du nom du fichier


Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
 
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 Sub Commande2_Click()
Dim CheminduFichier As String
 
CheminduFichier = "c:\tmp\" & [Rrech_ordre] & ".pdf"
ShellExecute Me.hwnd, "open", CheminduFichier, "", "", 1
 
End Sub

[Rrech_ordre] est une zone de liste modifiable
Cette zone n'a qu'une partie du nom du fichier
Exemple : 2006-07
le fichier lui s'appelle 2006-07 test.pdf
et je ne vois pas comment tronque la partie test

j'ai bien essayer avec une *

Code :

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

CheminduFichier = "c:\tmp\" & [Rrech_ordre] & "*" & ".pdf"

Mais ne fonctionne pas

Merci pour votre aide

[LedZeppII]

Bonsoir,

tu peux essayer avec Dir(...)

L'exemple ci-dessous ouvre tous les fichiers répondant au critère:

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim CheminduFichier As String,  RechercheFichier As String
 
CheminduFichier = "c:\tmp\" & [Rrech_ordre] & "*.pdf"
RechercheFichier = Dir(CheminduFichier, vbNormal)
If RechercheFichier <> "" Then
   Do
      ShellExecute Me.hwnd, "open", "c:\tmp\" & RechercheFichier , "", "", 1
      RechercheFichier = Dir()
   Loop Until RechercheFichier = ""
Else
   MsgBox "Aucun fichier trouvé"
End If

A+

[christ-94]

Bonjour


Merci , tout juste se que je veux