transférer certaine cellule d'un classeur ves un autre

[Mimi]

Bonjour à tous et toutes,
voila je recherche le moyen de transférer certaines cellules d'un classeur vers un autre sachant que ces classeeur sont ouvert, j'essaie d'utiliser cette macro mais sa coince :


Sub PriseRV()

Dim L As Integer

Windows("Prise de rendez-vous.xls").Activate

L = Range("D65536").End(xlUp).Row + 1
Range("D" & L) = Sheets("Fiches1").Range("C7")
Range("J" & L) = Sheets("Fiches1").Range("F9")
Range("V" & L) = Sheets("Fiches1").Range("D35")
Range("AB" & L) = Sheets("Fiches1").Range("H35")
Range("AH" & L) = Sheets("Fiches1").Range("H2")
Sheets("Fiches1").Select

End Sub

Si quelqu'un avait une idée ?
D'avance merci
Michel

 

[Catrice]

Re : transférer certaine cellule d'un classeur ves un autre

Bonjour,

Je crois qu'il y a une feuille qui n'est pas adressée :
Sub PriseRV()
With Workbooks("Prise de rendez-vous.xls").Sheets("Data")
L = .Range("D65536").End(xlUp).Row + 1
.Range("D" & L) = Sheets("Fiches1").Range("C7")
.Range("J" & L) = Sheets("Fiches1").Range("F9")
.Range("V" & L) = Sheets("Fiches1").Range("D35")
.Range("AB" & L) = Sheets("Fiches1").Range("H35")
.Range("AH" & L) = Sheets("Fiches1").Range("H2")
End With
'Sheets("Fiches1").Activate
End Sub

Voir fichier joint

 

[Mimi]

Re : transférer certaine cellule d'un classeur ves un autre

Salut Catrice,
Impect ça marche nickel avec la déclaration du L
Encore merci
Michel