code VBA existant juste besoin d'une petite amélioration.

[hellocarioca]

Bonjour Forum,

J'utilise le code suivant (voir en rouge plus bas) pour sauvegarder des lignes répondant à un certain critère sur un autre onglet de mon fichier.
J'aimerai bcp pouvoir executer la même commande mais en sauvant les lignes specifiées sur un autre fichier excel.
Mon problème c que je ne sais pas comment ajouter à: "NumLigne2 = Sheets("Closed Disputes").Range("R65536").End(xlUp).Row" le fait que l'onglet soit sur autre fichier.

Merci bcp

Maud



Dim NumLigne1 As Long, NumLigne2 As Long
Dim I As Long, J As Long
NumLigne1 = Sheets("Dispute_DB").Range("R65536").End(xlUp).Row
NumLigne2 = Sheets("Closed Disputes").Range("R65536").End(xlUp).Row

I = 2
Do While I <= NumLigne1
If Sheets("Dispute_DB").Range("R" & I) = "Closed" Then
NumLigne2 = NumLigne2 + 1
For J = 2 To 19
Sheets("Closed Disputes").Cells(NumLigne2, J) = Sheets("Dispute_DB").Cells(I, J)
Next
Sheets("Dispute_DB").Range("R" & I).EntireRow.Delete
Else
I = I + 1
End If
Loop

 

[Catrice]

Re : code VBA existant juste besoin d'une petite amélioration.

Bonjour,


NumLigne2 = Workbooks("MonClasseur.xls").Sheets("Closed Disputes").Range("R65536").End(xlUp).Row

 

[hellocarioca]

Re : code VBA existant juste besoin d'une petite amélioration.

Génial merci bcp Catrice 😀.

Bonne journée

Maud