Ouvrir un fichier avec une macro excel.

Version imprimable

10/05/2011, 15h12
salent9

Ouvrir un fichier avec une macro excel.
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:

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
10/05/2011, 15h14
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:

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" )

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:

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

11/05/2011, 12h51
salent9

bonjour,

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

donc mon problème est résolue :ccool: