Bonjour à tous
J'ai une macro très intéressante que l'on m'a développé sur un autre post mais j'ai quelques améliorations à y apporter.
Actuellement un bouton prend les données sur une feuille pour les archiver dans un tableau sur une autre dans le même fichier / classeur.
Je souhaiterai modifier cette dernière partie pour l'envoyer dans un autre fichier situé ailleurs sur le réseau ....
Je vous mets la macro en question :
Sub Archivage()
With Sheets("Historique_BC")
For L = 1 To 5
If Cells(L + 5, "D") <> "" Then
DL = .Range("A65500").End(xlUp).Row + 1
.Cells(DL, "A") = [A14]
.Cells(DL, "B") = [A2]
.Cells(DL, "C") = Cells(L + 5, "A")
.Cells(DL, "D") = Cells(L + 5, "B")
.Cells(DL, "E") = Cells(L + 5, "C")
.Cells(DL, "F") = Cells(L + 5, "D")
End If
Next L
End With
[A6😀10].ClearContents: [A13] = "": [A2] = [A2] + 1
End Sub
La partie en bleu soulignée est celle que je souhaite modifier pour pointer sur l'autre fichier.
Merci à tous
J'ai une macro très intéressante que l'on m'a développé sur un autre post mais j'ai quelques améliorations à y apporter.
Actuellement un bouton prend les données sur une feuille pour les archiver dans un tableau sur une autre dans le même fichier / classeur.
Je souhaiterai modifier cette dernière partie pour l'envoyer dans un autre fichier situé ailleurs sur le réseau ....
Je vous mets la macro en question :
Sub Archivage()
With Sheets("Historique_BC")
For L = 1 To 5
If Cells(L + 5, "D") <> "" Then
DL = .Range("A65500").End(xlUp).Row + 1
.Cells(DL, "A") = [A14]
.Cells(DL, "B") = [A2]
.Cells(DL, "C") = Cells(L + 5, "A")
.Cells(DL, "D") = Cells(L + 5, "B")
.Cells(DL, "E") = Cells(L + 5, "C")
.Cells(DL, "F") = Cells(L + 5, "D")
End If
Next L
End With
[A6😀10].ClearContents: [A13] = "": [A2] = [A2] + 1
End Sub
La partie en bleu soulignée est celle que je souhaite modifier pour pointer sur l'autre fichier.
Merci à tous