pb pour copier des données

[Laurent]

Bonjour,

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.

Merci de votre aide

 

[EricS]

Bonjour Laurent

essaie de remplacer le activesheet.paste par la ligne en dessous qui correspond au collage spécial, valeurs

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


A+
Eric

 

[Laurent]

Merci Eric

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.

Merci
Laurent

 

[EricS]

re

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

A+

 

[Laurent]

Merci beaucoup Eric

Tu m'enlève une grosse épine du pied

Ca fait un peu ring' d'écrire ca mais pied

Laurent