j'appel une boite de dialog pour charger un fichier comme ceci
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.AllowMultiSelect = False
.Title = "Fichier"
'.Filters.Add "Base de Donnée Access", "*.mdb"
.Show
End With
comment faire pour voir la difference si l'utilisateur à "appuyer sur le
bouton annuler" ou "appuer sur le bouton OK sans avoir selectionner de
fichier" ?
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
Michel Pierron
Bonjour Emcy;
Set Dlg = Application.FileDialog(msoFileDialogFilePicker) With Dlg .AllowMultiSelect = False .Title = "Fichier" '.Filters.Add "Base de Donnée Access", "*.mdb" If Not .Show Then Exit Sub MsgBox .SelectedItems(1) End With
MP
"Emcy" a écrit dans le message de news:
j'appel une boite de dialog pour charger un fichier comme ceci
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg .AllowMultiSelect = False .Title = "Fichier" '.Filters.Add "Base de Donnée Access", "*.mdb" .Show End With
comment faire pour voir la difference si l'utilisateur à "appuyer sur le bouton annuler" ou "appuer sur le bouton OK sans avoir selectionner de fichier" ?
Bonjour Emcy;
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.AllowMultiSelect = False
.Title = "Fichier"
'.Filters.Add "Base de Donnée Access", "*.mdb"
If Not .Show Then Exit Sub
MsgBox .SelectedItems(1)
End With
MP
"Emcy" <toto@bla.com> a écrit dans le message de news:
uBKq4WdaGHA.5088@TK2MSFTNGP03.phx.gbl...
j'appel une boite de dialog pour charger un fichier comme ceci
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.AllowMultiSelect = False
.Title = "Fichier"
'.Filters.Add "Base de Donnée Access", "*.mdb"
.Show
End With
comment faire pour voir la difference si l'utilisateur à "appuyer sur le
bouton annuler" ou "appuer sur le bouton OK sans avoir selectionner de
fichier" ?
Set Dlg = Application.FileDialog(msoFileDialogFilePicker) With Dlg .AllowMultiSelect = False .Title = "Fichier" '.Filters.Add "Base de Donnée Access", "*.mdb" If Not .Show Then Exit Sub MsgBox .SelectedItems(1) End With
MP
"Emcy" a écrit dans le message de news:
j'appel une boite de dialog pour charger un fichier comme ceci
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg .AllowMultiSelect = False .Title = "Fichier" '.Filters.Add "Base de Donnée Access", "*.mdb" .Show End With
comment faire pour voir la difference si l'utilisateur à "appuyer sur le bouton annuler" ou "appuer sur le bouton OK sans avoir selectionner de fichier" ?
