[RESOLU] Comment gérer annuler de la fênetre ouvrir fichier

cathodique

XLDnaute Accro
Bonsoir:),

J'ai suivi ce tuto afin de l'adapter à mes besoins. Je voudrais récupérer des fichiers csv se trouvant dans différents dossiers, utilisant une listbox.

Cette listbox se remplira du chemin complet de chaque fichier sélectionné, afin de récupérer les données.

Le premier souci rencontré, est l'inscription
du mot "FAUX" dans la listbox si je clique sur le bouton 'Annuler' de la fenêtre 'Ouvrir'.

Je ne sais pas comment gérer cette situation, c'est à dire éviter cette inscription dans la listbox.

En vous remerciant.
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour,
Ceci devrait régler le premier souci ;)
Code:
Private Sub importer_Click()
  Dim Fichier_choisi As Variant
  Fichier_choisi = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Sélectionner le fichier CSV")
  If Fichier_choisi <> False Then Liste_Fichiers.AddItem Fichier_choisi
End Sub
Ps: Ne pas oublier la touche F1, ici sur "GetOpenFilename"
Et pour le prochain souci sur "fileSaveName":D
 
Dernière édition:

cathodique

XLDnaute Accro
Bonjour JJ:),

Merci pour ton aide et ton conseil (touche F1) que j'avais visité.
Mais le code plante pile poil sur If fichier_choisi <> False, et ce lorsqu'on sélectionne un fichier.
Message: Erreur 13, incompatibilité de type

Encore merci. Je te souhaite une très bonne journée.:)
 
Dernière édition:

cathodique

XLDnaute Accro
Merci, j'ai résolu le probléme grâce au code de Pierrot93 que je salue;)
de ce fil: https://www.excel-downloads.com/threads/sortie-propre-dun-getopenfilename-avec-bouton-annuler.66341/#post-1049977
VB:
Private Sub importer_Click()
  Dim fichier_choisi As Variant
  fichier_choisi = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Sélectionner le fichier CSV")
  If VarType(fichier_choisi) = vbBoolean Then
    Exit Sub
  Else
    Liste_Fichiers.AddItem fichier_choisi
  End If
End Sub
Bonne journée:D
 

Jacky67

XLDnaute Accro
Bonjour JJ:),

Merci pour ton aide et ton conseil (touche F1) que j'avais visité.
Mais le code plante pile poil sur If fichier_choisi <> False, et ce lorsqu'on sélectionne un fichier.
Message: Erreur 13, incompatibilité de type

Encore merci. Je te souhaite une très bonne journée.:)
Re..
Tu es certain d'utiliser le code proposé ?
 

Fichiers joints

cathodique

XLDnaute Accro
Re..
Tu es certain d'utiliser le code proposé ?
Je te confirme que j'ai utilisé le code que tu m'as proposé.
J'ai fait un copier/coller et j'ai supprimé le précédent code.
Je suis confus:oops: et j'avoue ne rien comprendre.
En effet, dans le fichier que tu m'as joint, ça fonctionne parfaitement.:D
Toutes mes remerciements.
Bon après-midi.:);)
 

Discussions similaires


Haut Bas