boutton parcourir Bug

Le
joseph84
Bonjour tout le monde,

voila j ai un petit probleme avec le boutton parcourir quand le user
ne selectionne aucun fichier et qu'il decide de fermer la fenetre du
dialogue, il y a une erreure qui s'affiche..
est ce que il y a une condition a ajouter pour enlever l erreure:
voila mon code:

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show


txtChemin1.Value = .SelectedItems(1)

End With


Merci.
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #23579281
Bonsoir,
Ajoute ceci peut-être...
'------------
If .SelectedItems.Count = 0 Then Exit Sub
'-----------
--
Salutations
JJ


"joseph84"
Bonjour tout le monde,

voila j ai un petit probleme avec le boutton parcourir quand le user
ne selectionne aucun fichier et qu'il decide de fermer la fenetre du
dialogue, il y a une erreure qui s'affiche..
est ce que il y a une condition a ajouter pour enlever l erreure:
voila mon code:

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show


txtChemin1.Value = .SelectedItems(1)

End With


Merci.
DanielCo
Le #23579391
Bonjour,

If .SelectedItems.Count > 0 Then
txtChemin1.Value = .SelectedItems(1)
End If

Cordialement.
Daniel


Bonjour tout le monde,

voila j ai un petit probleme avec le boutton parcourir quand le user
ne selectionne aucun fichier et qu'il decide de fermer la fenetre du
dialogue, il y a une erreure qui s'affiche..
est ce que il y a une condition a ajouter pour enlever l erreure:
voila mon code:

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show


txtChemin1.Value = .SelectedItems(1)

End With


Merci.



--
Pour plaus de facilité, veuillez préciser votre version d'Excel
Cordialement.
Daniel
Publicité
Poster une réponse
Anonyme