[VBA Word]Un bouton parcourir pour vos UserForm

| 4 avril 2011

Je partage avec vous un petit bout de code que j'ai longtemps cherché. J'espère que ça vous évitera de longue recherche à travers la jungle d'internet.

Mon bouton parcourir est un simple bouton que j'ai renommé en « parcourir », je n'ai pas rajouté de paramètres supplémentaires. Le chemin du fichier sélectionné se copie dans la TextBox1. Voila à quoi ça ressemble :

Et le code du bouton :

Private Sub parcourir_Click()
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
       
        If .Show <> -1 Then
            Else
                UserForm1.TextBox1.Text = .SelectedItems(1)
        End If
    End With<div style="display: none"><a href='http://reverse-lookup-cell-phone.net/' title='reverse lookup cell phone free'>reverse lookup cell phone free</a></div>
End Sub

Tags: , , , ,

Category: Programmation

Commentaires (3)

URL de Trackback | Commentaires RSS

  1. zap dit :

    Merci pour ce partage !
    Grande débutante en vba (merci les stages), j’ai tenté de l’utiliser, mais quand je compile, il m’indique que selecteditems n’est pas défini …
    où dois-je le définir, et comment ?
    d’avance, merci !

  2. Zax dit :

    Merci pour ce partage.
    J’ai toutefois quelques difficultés à l’utiliser : je fais systématiquement apparaitre un message d’erreur sur le « selecteditems »,l’objet n’est pas défini… Je ne vois pas comment le définir. J’ai pensé à :

    Dim selected items as worksheets

    mais le résultat est le même.

    Question subsidiaire : lorsque « selecteditems » fonctionnera, comment faire pour appeler le fichier ouvert (« parcouru »), et le différencier du fichier de départ ?

    Merci d’avance de tes réponses… et de ton indulgence pour quelqu’un qui commence tout juste et qui a du mal à comprendre.

  3. Alexandre dit :

    @Zax : Avec quoi développes-tu ?

    Pour le fichier sélectionné, il apparaîtra dans la textbox, tu pourra donc le récupérer sans problèmes.