|
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 |
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 |
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 |
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 |
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 |
| All times are GMT +1. The time now is 07:21 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com