Resalut
Autre petit bout de code
Option Explicit
Private Sub Form_Load()
Dim stFichier As String
Dim NomFichier As String
NomFichier = InputBox("Entrer nom de fichier")
'Détermine le répertoire ainsi que les fichiers à récupérer
stFichier = Dir("c:\Mes documents\RechercheFichiers2\Fichiers\" & NomFichier & ".*.xls")
'Ajoute les noms de fichier à la liste
List1.AddItem stFichier
While stFichier <> ""
stFichier = Dir
List1.AddItem stFichier
Wend
End Sub
Private Sub List1_Click()
Static a As New Application
a.Visible = True
a.Workbooks.Open ("c:\Mes documents\RechercheFichiers2\Fichiers\" & List1.List(List1.ListIndex))
End Sub
a+
-------------------------------
Réponse au message :
-------------------------------
Je sui vraiement étonné de la rapidité de réponse.Merci beaucoup pour votre aide ca marche.
Mais alors pour terminer mon projet,j'aimerais en cliquant sur le fichier trouvé qui se trouve dans le listox ouvrir celui-ci dans une session excell qui est déja ouverte auparavant.
Mille merci!!!
-------------------------------
Réponse au message :
-------------------------------
Salut
petit bout de code (il faut mettre sur la feuille un listbox) :
Private Sub Form_Load()
Dim stFichier As String
Dim NomFichier As String
NomFichier = InputBox("Entrer le nom du fichier")
'Détermine le répertoire ainsi que les fichiers à récupérer
stFichier = Dir("c:\Mes documents\Recherchefichiers2\Fichiers\" & NomFichier & ".*.xls")
'Ajoute les noms de fichier à la liste
List1.AddItem stFichier
While stFichier <> ""
stFichier = Dir
List1.AddItem stFichier
Wend
'Sélectionne le premier fichier
List1.Text = List1.List(0)
End Sub
'Ensuite sur l'événement click de la listbox il faut mettre l'ouverture du fichier excel correspondant
a+
-------------------------------
Réponse au message :
-------------------------------
J'aimerais ouvrir un fichier excell que j'ai préalablement introduit dans un inputbox.Mais comment faire si il y a plusieurs fichiers qui se ressemblent comme
123456.0.xls
123456.1.xls
123456.2.xls,etc....
et que j'introduit seulement 123456 dans l'inputbox.
Y aurait'il moyen si il y en a plusieurs de les afficher dans une forme ou autre afin que je puisse sélectionner le bon fichier.
Ce serait mon cadeau de noel si quelqu'un le trouve!
Merci à tous..elenao@hotmail.com[/url]