ouvrir un fichier

bonjours,

je voudrais utiliser la valeur de inputbox pour ouvrir un fichier excel.

pour l'instant j'utilise:
Set xl = GetObject _
("c:\toto.xls")

mais je voudrais utiliser quelque chose comme
affaire = InputBox("Quelle est le fichier que vous voulez ouvrir?")
faire une recherche si c'est possible puis l'ouvrir

merci
MMMMooouuuaaaahhhhhh!!!

et bien fait ta propre input box:
form + textbox + commandbox + Microsoft common Dialog control 6.0 (pour la recherche du fichier)

je ne comprend pas tout je debute mais j'ai essai ce que m'a donné italia, je n'arrive pas à le faire marcher il bloc des la premiere ligne
MMMMooouuuaaaahhhhhh!!!

Comme te l'as dit ShadowMaster...vas dans Projet...Composants...coches Microsoft common Dialog control 6.0


Poses un composant common Dialog sur ta feuille ...places aussi un bouton et mets mon code..

It@li@

merci à tous les deux!
MMMMooouuuaaaahhhhhh!!!

dernier probleme il ne peux pas ouvrir le document sur lequel je clique.


MMMMooouuuaaaahhhhhh!!!

de rien c normal on a tous été NEWBIIII un jour

It@li@

C'est normal je t'ai donné juste le code pour la selection d' un Fichier.

Por l'ouvrir revoila le code

Private Sub Command1_Click ()

' Attribue à CancelError la valeur True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler

' Définit le titre de la fenêtre
CommonDialog1.DialogTitle = "Emplacement du Fichier Excel"

' Définit la propriété Flags
CommonDialog1.Flags = cdlOFNHideReadOnly

' Chemin Initial
CommonDialog1.InitDir = "C:\"

' Définit les filtres
CommonDialog1.Filter = "Fichier EXCEL (*.xls)|*.xls"

' Définit le filtre par défaut
CommonDialog1.FilterIndex = 2

' Affiche la boîte de dialogue Ouverture
CommonDialog1.ShowOpen

Set AppExcel = CreateObject("excel.application") 'Active Excel
AppExcel.Workbooks.Open CommonDialog1.FileName 'Ouvre le fichier
AppExcel.Visible = False

Exit Sub
ErrHandler:
'L'utilisateur a cliqué sur Annuler
Exit Sub

End Sub

It@li@