extraire colonne C de fichier dbf fermé vers excel

[carlos]

Bonsoir

j'ai trouvé pas mal de code pour récolter des infos d'un classeur excel fermé vers une feuille ,mais rien d'un .dbf vers .xls.

Comment copier par exemple la colonne B d'un fichier "f_ele.dbf " vers un fichier excel "f_ele.xls" onglet "Classe"?

Merci

 

[Paritec]

Re : extraire colonne C de fichier dbf fermé vers excel

Bonjour Carlos,
Il suffit de créer une requête, Données, Données externe, créer une requête et là tu suis les demandes et à la fin tu fais enregistrer et ta requête fera partie de ta feuille excel et à chaque ouverture tu auras tes données qui se mettrons à jour, pour cela il te faudra paramètrer propriété de ta feuille
a+
bonne soirée
Papou

 

[carlos]

Re : extraire colonne C de fichier dbf fermé vers excel

Bonsoir Papou , le forum

En faite je travaille sur plusieurs postes et l'utilisation de données externes obligerai l'installation de Microsoft querry sur tous les postes.Donc pas facile...

Ce code suivant fonctionne d'excel vers excel.

comment le faire passer de dbf vers excel?.
CheminFichier = Left(ThisWorkbook.path, 1) & ":\eps1\f_ele.xls"
deviendrai
CheminFichier = Left(ThisWorkbook.path, 1) & ":\eps1\f_ele.dbf" ????????????????????

Sub importerGEPeleve()
Dim cell As Range
Dim nomdest As String
Dim n As Long
Dim CheminFichier As String
nomdest = ActiveWorkbook.Name
CheminFichier = Left(ThisWorkbook.path, 1) & ":\eps1\f_ele.xls"
Workbooks(nomdest).Worksheets("Classe1").Range("a4:b" & Range("b65536").End(xlUp).Row + 1).ClearContents

Workbooks.Open Filename:=CheminFichier
For Each cell In Range("b1:b" & Range("b65536").End(xlUp).Row)
If cell.Offset(0, 38) = Workbooks(nomdest).Worksheets("Classe1").Range("b1") Then
n = n + 1
Workbooks(nomdest).Worksheets("Classe1").Range("b" & n + 3) = cell & " " & cell.Offset(0, 1)
Workbooks(nomdest).Worksheets("Classe1").Range("a" & n + 3) = n
Else
End If
Next
Workbooks(nomdest).Worksheets("Classe1").Activate
End Sub

merci

 

[carlos]

Re : extraire colonne C de fichier dbf fermé vers excel

Bonjour Papou , le forum

J'ai trouvé.

Il suffisait de remplacer xls par dbf

Carlos

 

[Paritec]

Re : extraire colonne C de fichier dbf fermé vers excel

Bonsoir Carlos, bonsoir le forum
Excuses moi j'avais pas vu tes réponses en fait je n'étais pas venu ma connecter.
Oui si c'est pour plusieurs poste là c'est pas pareil
L'important c'est que tu ai trouvé c'est ec qui compte
bonne journée
Papou