Discussion :

[KwaK56]

Bonjour,

Voici mon problème, j'ai 54 fichier .dbf, tous structurés de la même manière que je souhaiterai intégrer dans Excel pour pouvoir faire des graph.

J'aimerai créer un seul fichier Excel avec 54 feuilles (1 .dbf par feuille).

J'aimerai également forcer l'encodage en UTF-8 pour garder mes accentuations.

Si vous avez une solution je suis preneur.

Merci et bonne journée.

[Marc-L]

Bonjour,

ta version d'Excel peut-elle ouvrir un fichier .dbf ?

Sinon trouver une version plus ancienne (2003) puis avec l'aide du Générateur de macros …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Menhir]

Si tous les fichiers sont dans un même répertoire et qu'il n'y a rien d'autre dans ce répertoire (du moins rien avec le suffixe DBF), tu peux créer une macro en utilisant la fonction Dir() dans une boucle pour scruter tous les fichiers.

Tu l'ouvres avec un Workbooks.Open
Normalement, il ne devrait pas être nécessaire de préciser le format. Excel devrait se contenter de l'extension pour le comprendre.
Par contre, si le veut pouvoir conserver tes accents, il faudra sans doute préciser en paramètre un Origin:=xlMSDOS.

Ensuite tu copies l'intégralité du contenu avec un UsedRange.Offset(1,0).Copy et le coller dans ton fichier de synthèse à la suite de ce qui aura été copier depuis les fichiers précédents.
Le Offset, c'est pour éviter de copier l'entête de tes champs.

Tu fermes le fichier source et tu boucles pour passer au suivant en vérifiant qu'il y a bien un suivant.

trouver une version plus ancienne (2003)

Sur ma 2007, le DBF est encore proposé.

[kiki29]

Salut, en t'inspirant de ceci et en changeant l'extension TXT par DBF ( dans If bType4 Then TypeFichier = "TXT" ) cela devrait fonctionner. Je viens de faire un vague test avec des DBF datant de 2004. Seul hic cela fusionne les DBF dans une seule feuille Excel.

[KwaK56]

j'ai utilisé la méthode de kiki29 pour rapatrier mes .dbf.
Menhir je garde sous le coude tes conseils.

Merci