Bouton Parcourir sous VBA pour Excel

Question

Salut,

je travaille sous VBA pour Excel(XP), et je voudrais mettre un bouton parcourir dans une boite de dialogue afin de travailler ensuite sur le fichier ainsi atteint.

Je sais qu'un tel bouton n'existe pas et qu'il faut le creer, mais je ne sais pas comment faire(j'ai entendu parler de Common Dialog, mais je ne sais pas ce que c'est et ou trouver ca...)

J'ai donc grandement besoin d'aide ca sans ca je ne peux pas avancer.

Merci d'avance

Surfurax · Answer

POur utiliser l'objet Common dialog, il faut aller dans
Projet\composants, l&#224; tu cherches "Microsoft Common Dialog Control",
lorsque tu l'as ajout&#233;, il appara&#238;tra dans ta barre d'outils (l&#224; o&#249; se
trouve les boutons, textbox, ...), tu le s&#233;lectionnes et tu en ajoutes
un sur la fen&#234;tre qui t'int&#233;resse, il te suffit ensuite de te r&#233;f&#233;rer &#224;
l'aide MSDN (elle est  bien faite), sinon voici un exemple de code
:



With CommonDialog

    .DialogTitle = "File to execute ..."

    .DefaultExt = "*.*"

    .Filter = "All files (*.*)|*.*|Executable files (*.exe)|*.exe|"

    .ShowOpen

    If Trim$(.FileName) <> vbNullString Then

        Call SaveEntry(.FileName, Liste)

    End If

End With


Bonne chance, 






[%22%20mailto:paulferrand@yahoo.fr%22%20 " mailto:paulferrand@yahoo.fr" ]Surfurax[/url

stageei2 · Answer

super, merci beaucoup, j'espere que je vais m'en sortir avec ca

stageei2 · Answer

Le probleme c'est que je trouve pas Projet\composants   
ca se trouve ou?   

Merci

jpleroisse · Answer

Bonsoir,

Si tu n'as pas Visual Studio 6.0, je ne pense pas que tu puisses avoir
le contr&#244;le CommonDialog. Le plus simple pour toi c'est de cr&#233;er un
UserForm qui servirait pour ouvrir et visionner des fichier .txt.

Je vais pr&#233;parer un code,je le posterai et lu verras si &#231;a te convient.



jpleroisse

jpleroisse · Answer

Bonsoir,

Je viens de me rappeler que pour remplacer le CommonDialog de VB tu as dans Excel la collection Dialogs.



Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogOpen).Show

End Sub



jpleroisse

stageei2 · Answer

En fait ce que je cherche a faire c'est pas vraiment ouvrir le fichier.
Je voudrais juste r&#233;cuperer le nom du fichier pour pouvoir executer une procedure dessus.
Pour l'instant j'ai une InputBox, et je dois rentrer a la main le nom du fichier(avec l'emplacement pr&#233;cis sur le disque), ce qui est assez p&#233;nible d&#232;s qu'il faut le faire plusieurs fois de suite.
C'est pourquoi je prefererais avoir un bouton parcourir.

Comment je peux faire ca ?

Merci d'avance.

stageei2 · Answer

C'est bon en fait j'ai reussi a faire ce que je voulais, seulement la fenetre UserForm o&#249; il y a mon bouton parcourir ne se ferme pas toute seule.
Comment faire pour que la boite de dialogue se ferme une fois que j'ai cliqu&#233; sur le bouton?

Merci 

Julien

jpleroisse · Answer

Bonjour,

Tu ajoutes &#224; la fin de la proc&#233;dure Unload Me.



Pour information, voici un code qui permet de lire les nom des dossiers et fichiers d'un r&#233;pertoire.



Option Explicit

Public oFs As Object



Sub Main()

Set oFs = CreateObject("Scripting.FileSystemObject")

Dossiers_Fichiers ("C:\Temp")

End Sub



Sub Dossiers_Fichiers(sNomDossier As String)

Dim oDossier As Object

Dim oSousDossier As Object

Dim oSousDossiers As Object

Dim oFichier As Object

Dim oFichiers As Object

Dim sDossiers As String

Dim sFichiers As String

sNomDossier = "C:"

Set oDossier = oFs.GetFolder("C:")

Set oSousDossiers = oDossier.SubFolders

For Each oSousDossier In oSousDossiers

sDossiers = sDossiers & oSousDossier.Name & vbCrLf

Next

MsgBox "Liste des sous-dossiers dans " & sNomDossier & vbCrLf & sDossiers

Set oFichiers = oDossier.Files

For Each oFichier In oFichiers

sFichiers = sFichiers & oFichier.Name & vbCrLf

Next

MsgBox "Liste des fichiers dans " & sNomDossier & vbCrLf & sFichiers

End Sub



Private Sub CommandButton1_Click()

Main

End Sub



jpleroisse

Bouton Parcourir sous VBA pour Excel

8 réponses

Discussions similaires