Getopenfilename et annulation

[Rapheux]

Bonjour à tous,

j'utilise actuellement ce petit bout de code :

Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Open(Application.GetOpenFilename)

Pour aller chercher un fichier excel à exporter vers une autre application. Ma macro fonctionne très bien, seul hic ! Je ne sait pas comment gérer le bouton annuler (en fait, je voudrais que si l'utilisateur clique sur annuler ou ferme la boite de dialogue, que cela mette fin à la macro).

Merci d'avance pour vos conseil,
Cdlt
Rapheux

 

[gilbert_RGI]

Re : Getopenfilename et annulation

Bonjour

un essai

Sub test()

    'Application.GetOpenFilename ' affiche la boîte de dialogue sans ouvrir
   
Dim DocChoisi
     DocChoisi = Application.GetOpenFilename(("Tous les fichiers Excel (*.xls),*.xls"), 2, "Fichiers à rechercher")

             If DocChoisi = False Then
                 ' Traitement si le bouton Annuler a été choisi
                 MsgBox "Annulé"
             Else
                 ' Vérification éventuelle que le fichier choisi est conforme à ce qui est attendu
                     '
                 ' Ouverture
                 Workbooks.Open DocChoisi
                 'MsgBox DocChoisi
             End If

End Sub

 

[Rapheux]

Re : Getopenfilename et annulation

J'avais remarqué un code identique déjà mais cela s'intègre pas dans ma macro. J'ai besoin de respecter mon code

 

[gilbert_RGI]

Re : Getopenfilename et annulation

Alors essayez ceci

Sub test()
Dim xlbook
On Error GoTo fin
Set xlApp = CreateObject("Excel.application")
Set xlbook = xlApp.Workbooks.Open(Application.GetOpenFilename)
MsgBox "le nom choisi est : " & Chr(34) & xlbook.Name & Chr(34)
Exit Sub
fin:
MsgBox "vous êtes sorti par cancel"

End Sub

 

[Rapheux]

Re : Getopenfilename et annulation

Ha sa fonctionne très bien !

Merci beaucoup

 

[gilbert_RGI]

Re : Getopenfilename et annulation

Ha sa fonctionne très bien !

Merci beaucoup

l'inconvénient de cette méthode c'est que le processus reste en fonction et c'est peut-être ce que vous désirez