Shell avec une variable??

Signaler
-
 Makabey -
Bonjour,

Je suis bloque depuis un moment sur un petit probleme.
Voici le code que j'ai ecrit:

Private Sub Command20_click()

Dim name As String, fs As Object, i As Variant, path As Variant
Dim appXl As Application
name = [Text0]

Set fs = Application.FileSearch
With fs
.LookIn = "M:\MICHAEL"
.filename = name
If .Execute() > 0 Then
MsgBox "There were " & .foundfiles.Count & " file(s) found."
For i = 1 To .foundfiles.Count
MsgBox .foundfiles(i)
Next i
Dim numb As Variant
numb = [Text0]

Call Shell("C:\MICHAEL" + numb + ".xls", vbNormalFocus)


Else
MsgBox "There were no files found."
End If
End With

End Sub

le probleme c'est que ce fonctionne pas.
Je voudrais pouvoir ouvrir un fichier dont le nom serait specifie par l'utilisateur dans une boite(text0).
Par exemple si on entre 269 dans la boite, le fait de cliquer sur le bouton verifie si un fichier 269.xls existe et si c'est le cas, l'ouvre.
Mais ma commande shell ne fonctionne pas, si quelqu'un pouvait m'aider.....

Merci d'avoir pris le temps de me lire.
Mike

1 réponse

Vas sur http://www.allapi.net et cherche ShellExecute dans leur outil