[VBA Word]Un bouton parcourir pour vos UserForm
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
End Sub
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
If .Show <> -1 Then
Else
UserForm1.TextBox1.Text = .SelectedItems(1)
End If
End With
End Sub
Similaires
Category: VBA
