pj31
Messages postés4Date d'inscriptionmardi 28 mars 2006StatutMembreDernière intervention29 mars 2006
-
28 mars 2006 à 14:22
rvblog
Messages postés792Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention12 juin 2012
-
28 mars 2006 à 23:20
Bonjour,
Je cherche un code pour créer une boite de dialogue (style importation fichier) afin d'importer un fichier texte dans un classeur excel
rvblog
Messages postés792Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention12 juin 20127 28 mars 2006 à 23:20
Salut pj, salut julien,
il existe, dans Excel, des boites de dialogues communes propres à Excel. De plus, lorsqu'on les ouvre, elle exécutent le job pour lequel elles sont prévues.
Il existe donc une boite pour Importer un Fichier Texte, mets ça dans ton code :
Sub ImporterFichier()
On Error GoTo ImporterFichierErr
Dim dTemp As Dialog
'instancie la boite de dialogue import fichier texte
Set dTemp = Application.Dialogs(xlDialogImportTextFile)
'affiche la boite de dialogue
dTemp.Show
Exit Sub
ImporterFichierErr:
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & "ImporterFichier()"
End Sub
et exécutes la procédure ImporterFichier
à+,
rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais
</SUP>
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 28 mars 2006 à 15:00
Re,
Message :
salut,
j'ai bien recu ta réponse (merci) mais je ne sais pas ce que c'est que le common dialog Control
En réponse à ce message privé. je te dirai: Essaie de répondre directement dans le Forum, après tout ta question y a été posée...
Pour en revenir à ton problème, je crois que je me suis un peu trompé, tu ne trouveras pas le Common Dialog Control a cet endroit là dans Excel. Mais plutot dans le Menu Outils Controle Suplémentaires.
Ensuite je te dirais d'effectuer une petite recherche sur le site pour apprendre a te servir de se controle qui n est vraiment simple.
Mais si tu coince sur un endroit n'hesite pas a faire signe.
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée