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

job75

XLDnaute Barbatruc

• 3 Avril 2023

• #2

Bonjour telemarrk,

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

A+

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 3 Avril 2023

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Avril 2023

• #4

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

Et choisissez l'option.

 

Vote positif 1 Vote négatif

Solution

T

telemarrk

XLDnaute Occasionnel

• 3 Avril 2023

• #5

Merci job75, cela fonctionne.

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Avril 2023

• #6

Nombreux exemples sur le forum.

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 4 Avril 2023

• #7

Bonjour job75,

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

Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2023

• #8

Bonjour telemarrk, le forum,

Quelle solution choisissez-vous ?

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

VB:

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+

 

Pièces jointes

• TEST1.xlsx

  8.7 KB · Affichages: 3
• TEST2.xlsm

  15.6 KB · Affichages: 4

Vote positif 0 Vote négatif