Bonjour,
J'ai un fichier qui fait 50 mega et c'est pour cette raison que jveux pas copier-coller les données directement dans mon fichier de travail.
J'ai écrit une macro qui:
-ouvre le fichier concerné
-compte le nombre de ligne du ficheir et l'enregistre dans compteur_ligne
-je parcours la colonne a trier(je commence de AE1 jusqua AE&compteurligne
-si la valeur d'une cellule de la colonne AE - date d'aujourd'hui >0 alors
je copie la ligne entière dans mon fichier
je la copie dans la ligne une en premier ensuite 2eme 3 4 ,....
la variable r m'aide à faire cela.
Mais le code ne fonctionne pas.voici le code:
j'ai l'erreur incompatibilité de type
si quelqu'un a une idée merci d'avance
J'ai un fichier qui fait 50 mega et c'est pour cette raison que jveux pas copier-coller les données directement dans mon fichier de travail.
J'ai écrit une macro qui:
-ouvre le fichier concerné
-compte le nombre de ligne du ficheir et l'enregistre dans compteur_ligne
-je parcours la colonne a trier(je commence de AE1 jusqua AE&compteurligne
-si la valeur d'une cellule de la colonne AE - date d'aujourd'hui >0 alors
je copie la ligne entière dans mon fichier
je la copie dans la ligne une en premier ensuite 2eme 3 4 ,....
la variable r m'aide à faire cela.
Mais le code ne fonctionne pas.voici le code:
Code:
Dim données_Svehic As Workbook
Set données_Svehic = GetObject("C:\Bureau\Svehic.xls")
données_Svehic.Activate
compteur_Ligne = ActiveSheet.UsedRange.Rows.Count
r = 1
For i = 1 To compteur_Ligne
If ActiveSheet.Range("AE" & i) - Date >= 10 Then
données_Svehic.Worksheets(1).Rows(i).Select
Selection.Copy
End If
ThisWorkbook.Worksheets("Feuil1").Activate
Sheets("Feuil1").Range("A" & r).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
r = r + 1
Next i
Close Object
End Sub
si quelqu'un a une idée merci d'avance