L
Laurent
Guest
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
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
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
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
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
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