Bonjour le Forum,
La codification ci-dessous me permet, dans un même répertoire actif, de copier des lignes sélectionnées d'un fichier maître vers la première feuille ("Base") et à la suite de la première ligne rencontrée dans tous les autres fichiers du répertoire (quelque soit leurs noms).
A la réouverture de chaque fichier, les lignes souhaitées sont effectivement collées où il faut mais elles ne sont plus sélectionnées et il faudrait que ces lignes collées conservent leur sélection. Cela est important car une autre codification va venir traiter, dans chaque fichier du répertoire, ces lignes sélectionnées et uniquement celles-ci.
En clair, lorsque manuellement on fait un copier/coller de lignes et qu'on ferme le fichier après enregistrement, à la réouverture de ce dernier, les lignes collées restent en bleu.
Quelqu'un aurait une idée de la modification à apporter à la codification ci-dessous pour obtenir le résultat souhaité ?
En fichiers joints le résultat obtenu actuellement et le résultat souhaité pour une mise à jour de données du 10/02/2019.
Merci pour votre éclairage.
Sub CopieLignesDonnées()
Dim CS As Workbook
Dim PL As Range
Dim CA As String
Dim F As String
Dim CD As Workbook
Dim OD As Worksheet
Dim DEST As Range
Set CS = ThisWorkbook
CS.Worksheets(1).Activate
Set PL = Selection
CA = ThisWorkbook.Path & "\"
F = Dir(CA & "*.xlsm")
Do While F <> ""
If Not F = CS.Name Then
Set CD = Application.Workbooks.Open(CA & F)
Set OD = CD.Worksheets("Base")
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
PL.Copy DEST
CD.Close True
End If
F = Dir
End Sub
La codification ci-dessous me permet, dans un même répertoire actif, de copier des lignes sélectionnées d'un fichier maître vers la première feuille ("Base") et à la suite de la première ligne rencontrée dans tous les autres fichiers du répertoire (quelque soit leurs noms).
A la réouverture de chaque fichier, les lignes souhaitées sont effectivement collées où il faut mais elles ne sont plus sélectionnées et il faudrait que ces lignes collées conservent leur sélection. Cela est important car une autre codification va venir traiter, dans chaque fichier du répertoire, ces lignes sélectionnées et uniquement celles-ci.
En clair, lorsque manuellement on fait un copier/coller de lignes et qu'on ferme le fichier après enregistrement, à la réouverture de ce dernier, les lignes collées restent en bleu.
Quelqu'un aurait une idée de la modification à apporter à la codification ci-dessous pour obtenir le résultat souhaité ?
En fichiers joints le résultat obtenu actuellement et le résultat souhaité pour une mise à jour de données du 10/02/2019.
Merci pour votre éclairage.
Sub CopieLignesDonnées()
Dim CS As Workbook
Dim PL As Range
Dim CA As String
Dim F As String
Dim CD As Workbook
Dim OD As Worksheet
Dim DEST As Range
Set CS = ThisWorkbook
CS.Worksheets(1).Activate
Set PL = Selection
CA = ThisWorkbook.Path & "\"
F = Dir(CA & "*.xlsm")
Do While F <> ""
If Not F = CS.Name Then
Set CD = Application.Workbooks.Open(CA & F)
Set OD = CD.Worksheets("Base")
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
PL.Copy DEST
CD.Close True
End If
F = Dir
End Sub
