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

[cathodique]

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.

 

[Jacky67]

Bonjour,
Ceci devrait régler le premier souci

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"

 

[cathodique]

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.

 

[cathodique]

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

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

 

[Jacky67]

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é ?

 

[cathodique]

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 et j'avoue ne rien comprendre.
En effet, dans le fichier que tu m'as joint, ça fonctionne parfaitement.
Toutes mes remerciements.
Bon après-midi.