XL 2019 Aide macro on error resume

[netparty]

Bonjour à tous

Avec mon bout de code suivant, j'ouvre l'interface pour choisir un fichier jusque la par de problème, mais je ne sait pas ou je dois placer le ON ERROR RESUME car si j'annule ou ne choisi pas de fichier mon classeur se fermer.

Dim NOM$, WB As Workbook
With Application.FileDialog(msoFileDialogOpen)
    If .Show = -1 Then
        .Execute
        Else
        MsgBox "Aucun classeur sélectionné", vbCritical
    End If
End With
Set WB = ActiveWorkbook
Application.ScreenUpdating = False
With WB.ActiveSheet

    

'*************************************************
'   Choix des colonnes à importer
'   F2 à T2 feuille Extraction
'*************************************************
    
    .Range("F2:T" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
    'ThisWorkbook.Worksheets("IMPORT").[A2].PasteSpecial xlPasteValues
    '''Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues
    ThisWorkbook.Worksheets("IMPORT").Cells(.Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues





Application.CutCopyMode = False '   Vide le presse papier après l'importation
    
End With
WB.Close Savechanges:=False
MsgBox "Import terminé", vbInformation
Application.ScreenUpdating = True

Pourriez-vous me dire comment je peux procéder.

Merci d'avance

Bonne journée à tous

 

[haonv]

Bonjour,

Ton code ne déclenche pas d'erreur si tu n'as pas sélectionné de fichier.
Tu ne peux donc pas utilisé on error...
As-tu essayé de sortir de la sub avec un "exit sub" ?
Ce qui donnerait:

......
MsgBox "Aucun classeur sélectionné", vbCritical
Exit sub
......

Cordialement

 

[Phil69970]

Bonjour @netparty
Edit Bonjour @haonv pb de rafraichissement

Je mettrais plutôt ceci

Dim NOM$, WB As Workbook
With Application.FileDialog(msoFileDialogOpen)
    If .Show = -1 Then
        .Execute
        Else
        MsgBox "Aucun classeur sélectionné", vbCritical
     
        '*****
        Exit Sub ' <=  A rajouter
        '*****
     
    End If
End With

'**** Le reste de ton code

Merci de ton retour

@Phil69970

 

[netparty]

Bonjour @netparty
Edit Bonjour @haonv pb de rafraichissement

Je mettrais plutôt ceci

Dim NOM$, WB As Workbook
With Application.FileDialog(msoFileDialogOpen)
    If .Show = -1 Then
        .Execute
        Else
        MsgBox "Aucun classeur sélectionné", vbCritical
    
        '*****
        Exit Sub ' <=  A rajouter
        '*****
    
    End If
End With

'**** Le reste de ton code

Merci de ton retour

@Phil69970

Super cela fonctionne

Un tout grand merci

Bonne journée