PB POUR COPIER DONNEES

[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
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

 

[Bernard]

Bonsoir le forum et bonjour Laurent

J'ai repris ta macro :

Sub Transfert()
Dim Cell As Range

Set Cell = Sheets("Feuil2").Range("A65536").End(xlUp)
If Cell.Value <> 1 Then
Sheets("Feuil2").Range(Cell, "B2").Copy
Workbooks.Open Filename:="C:\Documents and Settings\rfossaer\Bureau\recueil.xls"
Sheets("Feuil1").Select
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

Cordialement

Bernard

 

[Greglebreton]

Bonjour a tous,

Laurent, peux tu m aider?
Je souhaite faire la meme chose que toi, c est a dire transferer des datas d une feuille excel a une autre, sachant que la feuille initiale sera effacee, et donc tous liens ne renverra a rien dans ce cas.

en fait ca reviendrait a copier des datas dune feuille A a B, les enregistrer dans B et ensuite effacer A.

Merci.