mon pb est le suivant:
je cherche à copier des données d'excel à excel. Ma macro est la suivante:
Sheets("Feuil2").Select
Range("a65536").Select
Selection.End(xlUp).Select
If ActiveCell.Value <> 1 Then
ligne = ActiveCell.Row
Range("A2:B" & ligne).Select
Selection.Copy
Workbooks.Open Filename:="C:\Documents and Settings\rfossaer\Bureau\recueil.xls"
Sheets("Feuil1").Select
Range("a65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
J'ai plusieurs fichiers contenant des données et je veux les envoyer dans un fichier récup en les mettant à la suite. Je souhaiterai ne copier que les valeurs contenues dans les cellules.
Mon autre problème est que les données que je copie dépendent d'un SI. Alors quand je veux faire la macro mais que certaines cases sont vides, la macro me copie quand même les cases vides.
Je souhaiterai que les cases vides n'apparaissent pas. Et que seules les valeurs entrées se mettent à la suite.
essaie en remplaçant de if activecell..... à Selection.copy par
If ActiveCell.Value < 2 Then Exit Sub
ligne = ActiveCell.Row
zone = ""
For i = 2 To ligne
Range("a" & i).Select
If ActiveCell.Value <> "" Then
If zone <> "" Then zone = zone & ", "
zone = zone & ActiveCell.Row & ":" & ActiveCell.Row
End If
Next i
If zone = "" Then Exit Sub
Range(zone).Select
Selection.Copy