Changer de destination...

[olibelle0101]

Bonjour à tous.
Je vient de trouver une macro qui fonctionne à merveille.
Mais seulement sur la meme feuille.
Comment faire pour que la ligne se recopie
sur un autre classeur automatiquement ??? (Calcul1;Feuil1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 9 And LCase(Target.Value) = "olivier" Then
Set dest = [N65536].End(xlUp).Offset(1, 0)
Range("A" & Target.Row & ":L" & Target.Row).Copy dest
dest.Value = Val(dest.Offset(-1, 0).Value) + 1
End If
Application.EnableEvents = True
End Sub

Je vous souhaite une bonne journée.
A+

 

[PascalXLD]

Re : Changer de destination...

Bonjour

essaies

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Column = 9 And LCase(Target.Value) = "olivier" Then
Set dest = workbooks("calcul1").sheets("feuil1").range("N65536").End(xlUp).Offset(1, 0)
Range("A" & Target.Row & ":L" & Target.Row).Copy dest
dest.Value = Val(dest.Offset(-1, 0).Value) + 1
End If
Application.EnableEvents = True
End Sub

 

[olibelle0101]

Re : Changer de destination...

Merçi
J'ai mis le temps, mais j'ai réussi.
Encore merçi.
Cordialement.