bonjour,

je suis confronté a un probleme d'importation de données de fichiers excel. Le but etant de recuperer des données contenue dans une plage q10:q56 de chaques fichiers et dans faire une compilation dans un autre jusque là pas de probleme.
Si la plage q10:q56 est pleine pas de probleme mais si la plage n'a que 10 ou 20 valeurs la macro n'importe rien je joins un bout du code vba

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
connect = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
      "ReadOnly=1;DBQ=" & Fichier
 
 
    Set données = New ADODB.Recordset
    données.Open Source:="SELECT * FROM [" & onglet & "Q10:Q56]", ActiveConnection:=connect
 
    If Not données.EOF Then
    ' pour etre synchro avec les colonnes
    p = X
        Cells(1, 2 + p) = Tableau(X)
        Cells(2 + N, 2 + p).CopyFromRecordset données
        p = p + 2
    N = N + 1
voila si quelqu'un à une idée je suis preneur

merci