M
michael
Guest
Bonjour,
je relance un nouveau fil alors que j'ai deja posé la question hier soir mais je pense apres reflexion ' et re-lecture de charte ' qu'il faut mieux ne pas melanger les questions dans le meme fil
donc
dans la masse de fichiers a traiter variable de 1 à 200,ma macro zappe quelques fichiers et dans d'autres elle ne voit pas les valeurs comme si elles etaient transparente
ci joint un bout du code, je pense que le probleme est là
avez deja rencontré ce genre de probleme et comme avez vous resolu le probleme
bonne journée a tous je pars au taf a ce soir
@+
je relance un nouveau fil alors que j'ai deja posé la question hier soir mais je pense apres reflexion ' et re-lecture de charte ' qu'il faut mieux ne pas melanger les questions dans le meme fil
donc
dans la masse de fichiers a traiter variable de 1 à 200,ma macro zappe quelques fichiers et dans d'autres elle ne voit pas les valeurs comme si elles etaient transparente
ci joint un bout du code, je pense que le probleme est là
Code:
If Tableau(X) <> ThisWorkbook.Name Then
Fichier = ActiveWorkbook.Path & '\\' & Tableau(X)
N = 0
connect = 'Provider = Microsoft.Jet.OLEDB.4.0;' & _
'data source=' & Fichier & ';' & _
'extended properties=Excel 8.0;'
'ici la zone a copier dans la feuille
Sql = 'SELECT * FROM [' & onglet & '$t9:t55]'
Set données = New ADODB.Recordset
données.Open Sql, connect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
Do While Not données.EOF
' pour etre synchro avec les colonnes
p = X - 1
Cells(3, 2 + p) = Tableau(X)
Cells(N + 4, 2 + p).CopyFromRecordset données
N = N + 1
Loop
End If
avez deja rencontré ce genre de probleme et comme avez vous resolu le probleme
bonne journée a tous je pars au taf a ce soir
@+