Discussion :

[salent9]

Bonjour,

J'ai mis dans un userform:

* 1 textbox
* 1 combobox
* 1 bouton

Ce que j'aimerai c'est que l'utilisateur rentre dans le textbox le titre du fichier qu'il veut ouvrir , dans la combobox j'ai rentré des exemple de type de fichier ( .pdf , .txt , .xls etc... ) (pour laisser l'utilisateur préciser le type de fichier qu'il veut )

voila le code que j'ai pour l'instant :

Code :

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

1
2
3
4
5
6
7
8
sub prog1()
 
    Dim str_debut As String
    Dim str_fin As String
 
 
    str_debut = UserForm1.TextBox1.Value
    str_fin = UserForm1.ComboBox1.Value

[salent9]

excusez moi j'ai fait une fausse manipulation et envoyer le message précédent incomplet ...


donc faut rajouter cette ligne de code:

Code :

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

Shell "L:\mes documents\DATA\" & str_debut & str_fin, vbNormalFocus

d'ailleurs la ligne qui cause problème.
( j'ai un peu de mal avec l'utilisation du "Shell" )

[salent9]

Bonjour,

j'ai un peu avancé dans l'outil de recherche que je désire mais j'ai un problème pour l'ouverture de fichier pdf ... adobe se lance mais un message d'erreur s'affiche et me dit que le chemin d'accès n'est pas bon .. alors qu'il l'est

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub prog()
 
    Dim str_debut As String
    Dim str_fin As String
    Dim str_tot As String
    Dim val As String
 
 
    Dim texte As String
    Dim adobe As String
    Dim words As String
 
 
 
    Dim b As String
    Dim stAppName As String
 
 
 
 
    str_debut = UserForm1.TextBox1.Value
    str_fin = UserForm1.ComboBox1.Value
    str_tot = " L:\mes documents\DATA\" & str_debut & str_fin  ' sans l'espace avant le "L:\mes doc..." ca marche pas
    str_tot2 = "L:\mes documents\DATA\" & str_debut & str_fin
 
 
 
    texte = "C:\WINDOWS\system32\notepad.exe"
    adobe = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"
 
    b = str_debut & str_fin
    val = UserForm1.ComboBox1.Value
 
 
 
    Select Case val
 
    Case ".txt"
 
            stAppName = texte & str_tot
            Call Shell(stAppName, 1)
 
 
    Case ".pdf"                         :cry: c'est dans ce case le problème
 
            stAppName = adobe & str_tot
            Call Shell(stAppName, 1)
 
 
    Case ".doc"
 
 
            Set pwpt = CreateObject("Word.Application")
            pwpt.Visible = True
            Word.Application.Documents.Open (str_tot)
 
 
    Case ".xls"
 
            fileToOpen = str_tot2
            Workbooks.Open Filename:=fileToOpen
 
    End Select
 
 
 
End Sub

[salent9]

bonjour,


j'ai finalement résolu le problème en combiant les propriétées d'un objet filesearch et des hyperliens

donc mon problème est résolue