Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Click on the Cancel button
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Click on the Cancel button
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" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Click on the Cancel button
Bob,
I don't understand how this If oDialog.Show can tell me that the user clicked on the Cancel button ? "Bob Phillips" a écrit dans le message de news: ... 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" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Click on the Cancel button
Woody,
Try it and see. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Woody" wrote in message ... Bob, I don't understand how this If oDialog.Show can tell me that the user clicked on the Cancel button ? "Bob Phillips" a écrit dans le message de news: ... 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" wrote in message ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Click on the Cancel button
I did it. That works fine!
Thanks Bob "Bob Phillips" a écrit dans le message de news: ... Woody, Try it and see. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Woody" wrote in message ... Bob, I don't understand how this If oDialog.Show can tell me that the user clicked on the Cancel button ? "Bob Phillips" a écrit dans le message de news: ... 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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cannot seem to Cancel EXCEL App Right Click Event using C# | Excel Programming | |||
Cancel Hyperlink Click | Excel Programming | |||
VBScript to prompt Save on Cancel click | Excel Programming | |||
Cancel button to cancel the whole macro | Excel Programming | |||
how to stop program with loop by click "Cancel" button | Excel Programming |