L
lgrcar0
Guest
Bonjour,
Suite à de nombreuse recherche sur internet, je me permet de vous demander votre aide.
J'ai trouvé beaucoup d'élément de réponse sur votre forum mais je n'arrive pas à les assembler.
Je voudrais donc tout d'abord coller une ligne d'un classeur sur un autre classeur (sans l'ouvrir si possible)
Sur ce second classeur je voudrais donc que les données se collent à la suite sans superpositions.
Pour la superposition j'ai trouvé cela :
Sub Feuil2Paste()
Col = "A"
With Sheets("Feuil2")
DerLig = .Range(Col & "65536").End(xlUp).Row + 1
.Range(Col & DerLig) = Sheets("Feuil1").Range("C10")
End With
End Sub
Mai je n'arrive pas à le fusionner avec cela
Range("E47:AF47").Select
Selection.Copy
Windows("Analyse.xls").Activate
Range("A3").Select
ActiveSheet.Paste Link:=True
Merci d'avance pour votre aide !!!
Suite à de nombreuse recherche sur internet, je me permet de vous demander votre aide.
J'ai trouvé beaucoup d'élément de réponse sur votre forum mais je n'arrive pas à les assembler.
Je voudrais donc tout d'abord coller une ligne d'un classeur sur un autre classeur (sans l'ouvrir si possible)
Sur ce second classeur je voudrais donc que les données se collent à la suite sans superpositions.
Pour la superposition j'ai trouvé cela :
Sub Feuil2Paste()
Col = "A"
With Sheets("Feuil2")
DerLig = .Range(Col & "65536").End(xlUp).Row + 1
.Range(Col & DerLig) = Sheets("Feuil1").Range("C10")
End With
End Sub
Mai je n'arrive pas à le fusionner avec cela
Range("E47:AF47").Select
Selection.Copy
Windows("Analyse.xls").Activate
Range("A3").Select
ActiveSheet.Paste Link:=True
Merci d'avance pour votre aide !!!
Dernière modification par un modérateur:
