Woody,
Try it and see.
--
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Woody" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Bob,
> I don't understand how this If oDialog.Show can tell me that the user
> clicked on the Cancel button ?
>
>
> "Bob Phillips" <(E-Mail Removed)> a écrit dans le message de news:
> %(E-Mail Removed)...
>> Dim oDialog As Office.FileDialog
>> Dim XLApp
>> Set XLApp = Application
>>
>> Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker) 'Opens a
>> dialog MS Office FilePicker
>> oDialog.Filters.Add "Fichiers Excel", "*.xls" 'Select
>> Workbook .XLS
>> oDialog.Title = "Sélectionnez le fichier Excel" 'Title of
>> Dialog
>> oDialog.AllowMultiSelect = False 'No
>> multiple Selection
>> If oDialog.Show Then 'Display
>> the Dialog
>> MsgBox "yes"
>> If oDialog.SelectedItems.Count > 0 Then
>> NomClasseurXL = oDialog.SelectedItems(1)
>> MsgBox "Le classeur Excel sélectionné est : " & NomClasseurXL
>> End If
>> End If
>> Set oDialog = Nothing
>>
>>
>> --
>> ---
>> HTH
>>
>> Bob
>>
>> (there's no email, no snail mail, but somewhere should be gmail in my
>> addy)
>>
>>
>>
>> "Woody" <(E-Mail Removed)> wrote in message
>> news:e$w%(E-Mail Removed)...
>>> Hello,
>>>
>>> The following procédure opens a dialog box which allows to select a
>>> file.
>>> I would like to capture the Click on the Cancel button to stop the
>>> procedure.
>>> How can I do that?
>>> Thanks for your help
>>>
>>> Woody
>>>
>>> Dim oDialog As Office.FileDialog
>>>
>>> Set oDialog = XLApp.FileDialog(msoFileDialogFilePicker) 'Opens a
>>> dialog MS Office FilePicker
>>> oDialog.Filters.Add "Fichiers Excel", "*.xls" 'Select
>>> workbook .XLS
>>> oDialog.Title = "Sélectionnez le fichier Excel" 'Title of
>>> dialog
>>> oDialog.AllowMultiSelect = False 'No
>>> multiple selection
>>> oDialog.Show 'Display
>>> the dialog
>>> If oDialog.SelectedItems.Count > 0 Then
>>> NomClasseurXL = oDialog.SelectedItems(1)
>>> MsgBox "Le classeur Excel sélectionné est : " & NomClasseurXL
>>> End If
>>> Set oDialog = Nothing
>>>
>>
>>
>
>
|
Similar Threads
