importer les valeurs de plusieurs classeurs

Re : importer les valeurs de plusieurs classeurs

Salut, tu as le macro recorder même si le code généré sera à optimiser manuellement, sinon peut être RDBMerge Add-in

Re : importer les valeurs de plusieurs classeurs

Merci pour l'info, mais le problème est que sur l'ordi où j'utilise ces classeurs est sécurisé et je ne peux pas installer des applications.

Cordialement

smaret

Re : importer les valeurs de plusieurs classeurs

Bsr Smaret

Voici un bout de code que tu peut adapter

Sub Lire_dans_un_autre_classeur()

Dim cn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim intTblCnt As Integer, intTblFlds As Integer
Dim strTbl As String
Dim rsC As ADODB.Recordset
Dim intColCnt As Integer, intColFlds As Integer
Dim strCol As String
Dim t As Integer, c As Integer, f As Integer
Set cn = New ADODB.Connection

repertoire = ThisWorkbook.Path ' les fichiers doivent etre dans un meme dosier
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
repertoire & "\" & Fichier & ".XLS" 'Fichier est le nom du fichier contenant la feuille
' à importer. au cas où on devais importer par ex PosteA
' dans plusieurs fichiers il faudra creer une variable qui contiendra les noms de fichiers

Set rsT = cn.Execute("SELECT * FROM [Recap$]") 'Rept est le nom de la feuille que
'tu importe, il faut le faire
' suivre du signe $

intTblCnt = rsT.RecordCount
intTblFlds = rsT.Fields.Count

For t = 3 To intTblCnt ' Pour parcourir les lignes

For f = 0 To intTblFlds - 1 ' Pour parcourir les colonnes
Cells(t, f + 1).Value = rsT.Fields(f).Value
Next
rsT.MoveNext
Next
rsT.Close
End Sub

Ferdi

Re : importer les valeurs de plusieurs classeurs

Bonjour le fil,
Voici un petit truc simple
chemin\fichier et A2 a adapter

Re : importer les valeurs de plusieurs classeurs

Je ne comprend pas le code bloque déjà à: Dim cn As ADODB.Connection

Salutations

smaret

Re : importer les valeurs de plusieurs classeurs

Bonjour,

petite réflexion au passage, as tu bien activé la reference "Microsoft ActiveX Data Objects x.x Library". Dans l'éditeur vba => barre de menu => outils => références.

bonne journée
@+