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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir, Ajoute ceci peut-être... '------------ If .SelectedItems.Count = 0 Then Exit Sub '----------- -- Salutations JJ
"joseph84" a écrit dans le message de news:
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.
Bonsoir,
Ajoute ceci peut-être...
'------------
If .SelectedItems.Count = 0 Then Exit Sub
'-----------
--
Salutations
JJ
"joseph84" <youwangsoft@gmail.com> a écrit dans le message de news:
cf7cb93c-1477-4c07-a325-52c589066fd4@e20g2000prf.googlegroups.com...
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
Bonsoir, Ajoute ceci peut-être... '------------ If .SelectedItems.Count = 0 Then Exit Sub '----------- -- Salutations JJ
"joseph84" a écrit dans le message de news:
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
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
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
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