XL 2016 copier le contenu d'une colonne vers un autre classeur

[telemarrk]

Bonjour,

Peux-t'on à l'aide d'un code VBA copier le contenu de la colonne F du fichier Test1 dans la colonne F du fichier Test2 ?

J'ai essayer de le faire en enregistrant une macro mais cela ne fonctionne pas.

Merci.

 

[job75]

Bonjour telemarrk,

Pourquoi du VBA ? A priori des formules de liaison font l'affaire.

A+

 

[telemarrk]

Bonjour job75,

Le problème avec les formules de liaison, dès fois j'ai un message qui me dit de mettre à jour la liaison.

 

[job75]

Menu Données => Modifier les liaisons => Invite de démarrage.

Et choisissez l'option.

 

[telemarrk]

Merci job75, cela fonctionne.

Mais par curiosité on pouvait faire cela par code VBA.

 

[job75]

Nombreux exemples sur le forum.

 

[telemarrk]

Bonjour job75,

C'était juste une question, mais effectivement tu as raison une simple recherche suffisait pour avoir la réponse.

Merci

 

[job75]

Bonjour telemarrk, le forum,

Quelle solution choisissez-vous ?

La plus simple est d'ouvrir le fichier source, dans le ThisWorkbook du fichier de destination :

Private Sub Workbook_Activate()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\"
fichier = "TEST1.xlsx"
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next
Workbooks(fichier).Close False 'ferme le fichier s'il est ouvert
Err = 0
Workbooks.Open(chemin & fichier).Worksheets(1).[F:F].Copy Me.Worksheets(1).[F1] 'ouvre et copie le fichier
If Err Then MsgBox "Fichier ou feuille source introuvable !", 48 Else ActiveWorkbook.Close False
Application.EnableEvents = True 'réactive les évènements
End Sub

La macro se déclenche quand on ouvre ou active le classeur.

A+