Problème import dbf

Bonjour,
j'ai un soucis d'import d'une base de données dbf codée en utf-8 vers excel.
J'ai trouvé un macro sur le net qui me permet d'importer les données de ma base vers le classeur Excel sans ouvrir le dbf:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub importer_champDBF() 'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library (dans VBE outils-référence) Dim source As ADODB.Connection Dim Requete As ADODB.Recordset Dim Chemin As String, fichier As String, texte_SQL As String   Chemin = "C:\........." 'Chemin = ThisWorkbook.Path si ta base est dans le m^répertoire fichier = "xxx.dbf """   Set source = New ADODB.Connection source.Open _ "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _ Chemin & ";"     texte_SQL = "SELECT * FROM " & fichier & ";" 'si tu importe tout met * au lieu de tonchamp   Set Requete = New Recordset Requete.Open texte_SQL, source, adOpenKeyset, adLockOptimistic   If Requete.EOF Then MsgBox "Table vide..." Exit Sub End If   Application.ScreenUpdating = False Range("A2").CopyFromRecordset Requete   Requete.Close source.Close   End Sub

---

Cela fonctionne très bien sauf que les accents ne passent pas. Par exemple, au lieu d'avoir "Propriétaire" j'ai "Propri+®taire".
Y aurait t'il un moyen d'indiquer dans la macro que la base est en utf-8 et de demander à excel de convertir ?

Merci.

Bonjour,

avec l'objet ADODB.Stream et sa propriété Charset il y aurait une possibilité (voir sur MSDN)
sinon il faut intégrer une fonction de conversion (rechercher sur ce forum) …

Normalement un caractère accentué est codé sur 2 caractères dont le premier est "Å" ou "Ã" …

Je suis vraiment un débutant dans les macro et je ne sait pas comment fonctionne

Code:

---

ADODB.Stream

---

et sa propriété

Code:

---

Charset

---

.

Et pour ce qui est de la fonction de conversion je n'ai rien trouvé sur le forum. Les seuls cas ou il en est question c'est pour des CSV et non des DBF.

Dans ce cas, comment sais-tu qu'il est question d'UTF-8 ? Par défaut le dbf c'est plutôt du PC-8 DOS …

Pour le vérifier, ouvrir directement le fichier via Excel (menu Fichier, Ouvrir);
s'il n'y a pas de souci avec les caractères accentués, ce n'est pas de l'UTF-8 !

Quant aux fonctions de conversion présentes sur le forum, que ce soit du texte importé de .csv ou de .dbf, c'est pareil !

Je sait sur c'est du UTF-8 car la base de donnée vient d'une couche de SIG.
Lorsque la couche est créée, la base de donnée liée est codée en UTF-8.
Il est possible de choisir le codage mais j'ai quasiment tout essayé et lorsque j'importe dans Excel les accents ne passent jamais.
J'ai essayé le codage ISO 8859-1, 8859-15, le windows 1252 et l'utf-8 notamment.

Ce que je ne comprend pas c'est que normalement excel fonctionne avec le codage windows 1252, alors pourquoi même quand mon dbf est codé comme excel les accents ne passent pas ?

Je remonte mon topic car je n'ai toujours pas résolu mon problème et cela devient urgent de trouver une solution.
Je suis obligé d'ouvrir mon dbf avec libreoffice pour pouvoir choisir le codage du fichier. Mais j'aimerai mettre mes données dans un xls pour y associer un publipostage.
Actuellement je suis obligé d'ouvrir mon dbf avec libreoffice, en parallele ouvrir mon xls et de faire un copier-coller à la main car même une simple macro copier-coller avec les deux fichiers ouverts ne fonctionne pas.

Pour tes problèmes de visualisation de caractère, il peut y avoir une autre solution que de remplacer les caractères (mais je ne sais pas si elle te satisfera) : Utiliser une police de caractère qui fait les mêmes liaisons que celles d'origine.

Une police de caractère, en gros, se contente d'afficher un signe (le plus souvent une lettre) à un code.
Mais, en créant la police, on place un B dans la cas où se place habituellement le A, dans tous les textes où cette police sera utilisée, il y aura cette substitution à l'affichage.

Il faut bien comprendre que c'est uniquement une question d'affichage. Dans mon exemple précédent, les B ne sont pas substitués aux A. C'est simplement que les A apparaissent sous forme de B.

Si ton problème est seulement d'afficher ou d'imprimer un document pour qu'il soit lisible, ça peut être une solution simple à mettre en oeuvre.

Il y a dans Windows des polices standard qui font cette conversion.

Citation:

---

Envoyé par johand

Je remonte mon topic car je n'ai toujours pas résolu mon problème et cela devient urgent de trouver une solution.

---

Tu peux le remonter autant que tu veux, mais si tu ne fais pas ce que l'on te demande …

Citation:

---

Envoyé par Marc-L

Dans ce cas, comment sais-tu qu'il est question d'UTF-8 ? Par défaut le dbf c'est plutôt du PC-8 DOS …

Pour le vérifier, ouvrir directement le fichier via Excel (menu Fichier, Ouvrir);
s'il n'y a pas de souci avec les caractères accentués, ce n'est pas de l'UTF-8 !

Quant aux fonctions de conversion présentes sur le forum, que ce soit du texte importé de .csv ou de .dbf, c'est pareil !

---

J'ai essayé d'ouvrir sous excel en faisant fichier -> ouvrir. Ca me met les mêmes caractères à la place des accents que lorsque j'utilise la macro.

Ensuite, j'ai passé au moins une heure à rechercher avec tout les mots clé possible une solution sur le forum et je n'ai pas trouvé.
Les solutions données concernent en fait l'inverse, c'est à dire exporter un fichier excel vers un csv UTF-8.

Et pourtant il a plusieurs codes convertissant l'UTF-8 dans ce forum, notamment un récent de rdurupt (Robert Durupt) ! …

Sinon un exemple d'un texte source et de sa version dans Excel ?

Exemple de texte source :

"Pas détecté"

Lorsque j'ouvre sous excel :

"Pas dÚtectÚ"

J'ai peut être trouvé une solution finalement.
Je pense qu'a la suite du code vba que j'ai déjà je vais rajouter du code pour remplacer tout les caractères mal affichés.

Par exemple :

Code:

---

1 2	Cells.Replace What:="Ú", Replacement:="é", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

---

Citation:

---

Envoyé par Marc-L

Normalement un caractère accentué est codé sur 2 caractères dont le premier est "Å" ou "Ã" …

---

Comme indiqué dès mon premier message, ce n'est pas codé en UTF-8 ‼ :roll:

D'après mes souvenirs, Excel - en tout cas une version ancienne - n'avait pas de souci
pour afficher les accents d'un fichier .dbf codé au format DOS …

Donc soit tu continues sur ta voie d'une table de conversion soit en t'inspirant des fonctions de conversion de ce forum
en analysant les codes de caractères pour trouver un algorithme …

Je viens de percuter comme ce n'est pas de l'UTF-8 mais bien codé en DOS
il y a une solution trop simple fonctionnant de mon côté sous Excel 2003 - tiens une version identique à la tienne ! - :

• Enregistrer sous… au format CSV (DOS).

• Fermer le classeur puis depuis l'Explorateur Windows effectuer un double clic sur le fichier, c'est tout !

Et en utilisant l'Enregistreur de macros, le code est livré sur un plateau !

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

La conversion fonctionne nikel.
Et maintenant si je veut importer les données du fichier csv dans mon fichier xls existant avec mon vba de départ, à la place de :

Code:

---

1 2 3 4

Set source = New ADODB.Connection source.Open _ "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _ Chemin & ";"

---

Faut que je mette quoi ?

Non, finalement c'est bon j'ai trouvé.
Merci à tous et surtout à toi Marc-L de m'avoir sorti de mon impasse ;)