Vous voulez Importer facilement un fichier Texte délimité (CSV) sans conversion des données par Excel.
La solution est ici: Import_CSV (clic-droit, enregistrer sous)
Mode d'emploi:
- Intégrer la source fournie dans votre code
- Faire l'appel à la fonction : Import_CSV (LeFichier, opt. LeSep, opt. LaPage, opt. NbCol, opt. PasdInfo)
- valeur = Import_CSV(LeFichier) :
- L'importation, si elle est possible, sera ouverte dans un fichier et onglet actif
- la tabulation est le caractère séparateur par défaut
- valeur contiendra le nombre de colonnes trouvées, 0 en cas d'erreur
- En cas d'erreur d'ouverture, un message s'affiche.
- valeur = Import_CSV(LeFichier , "|", xlWindows) :
- Se comportera comme attendu;
- mais le caractère "|" est pris comme séparateur
- valeur = Import_CSV(LeFichier , "|", 65001, 25) :
- Se comportera comme attendu, le CSV est ouvert en UTF-8 (65001).
- Mais s'il n'y a pas 25 colonnes, une erreur s'affiche et le fichier n'est pas ouvert.
- valeur = Import_CSV(LeFichier , "|", 65001, PasdInfo:=true) :
- Se comportera comme attendu précédemment;
- En cas d'erreur aucun message d'erreur ne sera affiché.
- valeur = Import_CSV(LeFichier) :
- Où :
- LeFichier = Arborescence complète du fichier CSV à ouvrir
- LeSep = Caractère utilisé pour délimiter le CSV. La Tabulation est la valeur par défaut.
- LaPage = LaPage de code (ex. 65001 pour UTF-8), xlWindows par défaut.
- NbCol = Peut contenir le nombre de colonnes attendues (vérification incluse et plus rapide), automatique par défaut (plus lent)
- PasdInfo = Booléen optionnel devant être à vrai pour qu'une alerte, ou une erreur, rencontrée ne soit pas signalée
- 2009.10.26 (v1.00) : Création initiale, fournit le nombre de colonnes trouvées si différent.
- 2021.12.23 (v1.10) : Rend optionnel l'affichage des messages d'erreur
- 2021.12.24 (v1.11) : Accepte un nombre de colonne inconnu à l'avance (mais plus lent)
Enfin une importation facile (même en UTF-8), sans conversion des données...