ouvrir un fichierRésolu

Question

bonjours, 

je voudrais utiliser la valeur de inputbox pour ouvrir un fichier excel.

pour l'instant j'utilise:
Set xl = GetObject _
("c:	oto.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!!!  8-)

cs_ITALIA · Accepted Answer

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

CheminSelectionne =CommonDialog1.FileName ? Récupération du Chemin

Exit Sub
ErrHandler:
  'L'utilisateur a cliqué sur Annuler
Exit Sub

End Sub

It@li@

ShadowMaster · Answer

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

snoopcool · Answer

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!!!  8-)

cs_ITALIA · Answer

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@

snoopcool · Answer

merci à tous les deux!
MMMMooouuuaaaahhhhhh!!!  8-)

snoopcool · Answer

dernier probleme il ne peux pas ouvrir le document sur lequel je clique.

MMMMooouuuaaaahhhhhh!!!  8-)

cs_ITALIA · Answer

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

cs_ITALIA · Answer

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@

Ouvrir un fichier

8 réponses

Discussions similaires