begin process at 2012 02 15 21:09:30
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

ouvrir un fichier


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

ouvrir un fichier

mardi 24 août 2004 à 12:11:15 | ouvrir un fichier

snoopcool

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!!!
mardi 24 août 2004 à 12:26:05 | Re : ouvrir un fichier

ShadowMaster

et bien fait ta propre input box:
form + textbox + commandbox + Microsoft common Dialog control 6.0 (pour la recherche du fichier)
mardi 24 août 2004 à 12:30:22 | Re : ouvrir un fichier

ITALIA

Membre Club
Réponse acceptée !
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@
mardi 24 août 2004 à 13:25:05 | Re : ouvrir un fichier

snoopcool

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!!!
mardi 24 août 2004 à 13:34:24 | Re : ouvrir un fichier

ITALIA

Membre Club
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@
mardi 24 août 2004 à 13:41:05 | Re : ouvrir un fichier

snoopcool

merci à tous les deux!
MMMMooouuuaaaahhhhhh!!!
mardi 24 août 2004 à 13:46:49 | Re : ouvrir un fichier

snoopcool

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


MMMMooouuuaaaahhhhhh!!!
mardi 24 août 2004 à 13:47:21 | Re : ouvrir un fichier

ITALIA

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

It@li@
mardi 24 août 2004 à 13:59:21 | Re : ouvrir un fichier

ITALIA

Membre Club
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@


Cette discussion est classée dans : fichier, ouvrir, utiliser, inputbox


Répondre à ce message

Sujets en rapport avec ce message

inputbox [ par snoopcool ] bonjours, c'est encore moije voudrais utiliser la valeur de inputbox pour ouvrir un fichier excel.pour l'instant j'utilise:Set xl = GetObject _("c:\to Ouvrir un fichier avec un InputBox sous VBA Excel [ par thanatos67 ] Salut, Je cherche à utiliser un InputBox pour y entrer le chemin d'un fichier dans sa totalité(avec le nom du fichier avec son extention bien entendu Ouvrir des fichiers WORD via une INPUTBOX [ par ticrain ] Bonjour j'aimerai ouvrir des fichiers words via une INPUTBOX. Mes fichiers word se trouvent sur C: et j'aimerai  par exemple taper le nom du fichier w Enregistrement automatique d'un fichier excel sur un réseau via une macro [ par BAUHAUS44 ] Bonjour, j'ai créé une macro VB que je fais tourner sur un fichier excel. A la fin de la macro, j'ouvre une InputBox pour demander à l'utilisateur sou Ouvrir fichier CSV en présisant le type des colonnes [ par Syphou ] Bonjour, Je cree un fichier CSV par programmation et une foi crée j'aimerai louvrir avec Excel mais dans certaine colonne j'ai des identifiants du gen Ouvrir un fichier texte dans un RichTextBox [ par Fyerrblad ] J'ai besoin d'aide pour créer un programme qui ouvre un fichier texte dans un richtextbox. mercisvp: envoyer le code.- Fyerrblad - Ouvrir un fichier word d'un fichier excel [ par Bretagne35 ] Bonjour,Je souhaiterais ouvrir un fichier word à partir d'un fichier excel à l'aide du langage VBA. La macro est executée à l'aide d'un bouton présent Ouvrir un fichier xls au démarrage [ par jamelie ] Bonjour à tous.J'essaye d'ouvrir un fichier excel au démarrage de mon ordinateur. Pour le moment j'ai mis un raccourcis dans le menu demarrer de mon o Comment enregistrer le contenu d'une "textbox" sans passez par l'intermédiare d'un autre fichier? [ par hadri1 ] Bonjour a tous,J'ai un formulaire windows avec 15 textbox dedans et un bouton "enregistrer", je voulais tout d'abord savoir s'il est possible d'enregi Ouvrir un fichier à l'aide d'une textBox [ par Morrissey35 ] Bonjour, voila, j'aimerais pouvoir ouvrir un fichier, juste en entrant le chemin de celui ci (C:/MesDocuments/..etc) dans une textBox. MOn code appell


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,201 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales