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

cathodique · 29 Janvier 2018

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 · 29 Janvier 2018

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"

cathodique · 30 Janvier 2018

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 · 30 Janvier 2018

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

Jacky67 · 30 Janvier 2018

cathodique à dit:
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 · 30 Janvier 2018

Jacky67 à dit:
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.

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

cathodique

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

cathodique

XLDnaute Barbatruc

Discussions similaires