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

cathodique

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Consolidation.xlsm
    25.5 KB · Affichages: 29

Jacky67

XLDnaute Barbatruc
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 Barbatruc
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 Barbatruc
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/thr...ename-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 Barbatruc
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é ?
 

Pièces jointes

  • Consolidation.xlsm
    20.2 KB · Affichages: 34

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 970
Membres
101 852
dernier inscrit
dthi16088