Annuler avec : Application.GetOpenFilename

Résolu/Fermé

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 23 févr. 2020 à 13:51
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 26 févr. 2020 à 12:28

Bonjour les amis et bon dimanche à tous,
La macro de mon classeur cijoint me pressente un seul petit problème , une fois ouverte et me demande d'ouvrir un fichier si je clique sur "ouvrir" elle marche sans problème mais lorsque je clique sur "annuler" elle me de propose de fermer le classeur les boites de dialogue s'ouvrent etc.....
je veux ajouter une ligne après ces deux lignes :

Dim Fich As String, CD, ar, nm
Fich = Application.GetOpenFilename

pour que si je clique sur annuler , une msgbox s'ouvre ayant comme text "vous avez annulé l’importation du fichier" et sortir de la macro sans me proposer de fermer le classeur etc.....

le fichier joint
https://www.cjoint.com/c/JBxmE4o11vy

cordialement,

Configuration: Windows / Chrome 79.0.3945.130

A voir également:

Application.getopenfilename
Annuler offre vinted - Guide
Annuler envoi mail gmail - Guide
Annuler fermeture onglet chrome - Guide
Annuler renvoi d'appel ooredoo - Forum telephonie fixe
Annuler une offre sur vinted - Guide

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 23 févr. 2020 à 15:31

Bonjour,

1) Fich doit être typé Variant
2) Tester Fich pour savoir si c'est la touche Annuler

Option Explicit
Sub Test()
Dim Fich As Variant
  Fich = Application.GetOpenFilename
  If Fich = False Then
    MsgBox "Vous avez annulé l’importation du fichier", vbInformation
    Exit Sub
  End If
  MsgBox "Vous allez importer le fichier :" & vbLf & Fich
End Sub

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
23 févr. 2020 à 20:16

Salut Patrice
Comme je ne suis pas trop doué en vba je n'ai pas pu insérer correctement les modifications que vous m'avez proposé
je serai très reconnaissant si vous m'envoyez la macro entière
Merci encore une fois

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023
26 févr. 2020 à 09:10

Il faudrait publier le code entier de la macro pré-existante et expliquer ce qu'elle est sensée réaliser.

Utilises les balises de code avec indication du langage (=coloration syntaxique)
Explications disponibles ici : Comment utiliser les balises de code
Exemple :

Sub UtiliserLesBalises()
  MsgBox "Merci d'utiliser les balises de code"
End Sub

Réponse 2 / 3

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
26 févr. 2020 à 06:33

Le code s’arrête ici :

Réponse 3 / 3

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
26 févr. 2020 à 12:28

Merci infiniment Patrice
j'ai changé le nom de "cd" par un autre nom et le code marche correctement maintenant

Discussions similaires

Comment annuler les Invitations envoyés

Code de renvoi d'appel : Ooredo, Mobilis...

désactiver transfert d'appel

Renvoie code ooredoo

Jm date resiliation