Microsoft 365 mise a jour entre 2 fichiers VBA

[cmdavid]

Bonjour, je cherche une macro pour mettre a jour automatiquement des données entre 2 fichiers excel!
si je change les données du fichier A, celles ci-doivent se mettre a jour dans le fichier B sans ouvrir le fichier B.
j'ai testé avec la macro ci-dessous, mais cela ne fonctionne pas!!!
Sub Macro1ty()
'
' Macro1ty Macro
'

'
Range("C4:TB1997").Select
End Sub

 

[laurent3372]

Bonjour,

Mettre à jour un classeur sans l'ouvrir n'est pas possible.
Le contraire serait possible: mettre à jour le classeur B sans ouvrir le classeur A.

Cordialement,
--
LR

 

[cmdavid]

Bonjour,
et comment?
Merci

 

[job75]

Bonjour cmdavid, laurent3372,

Le problème posé n'est pas clair.

S'il s'agit simplement de remplacer les données du fichier B par celles du fichier A il suffit de copier le fichier A sur le fichier B avec cette macro dans le fichier pilote Copier fichier :

Sub Modifier_B()
CreateObject("Scripting.FileSystemObject").CopyFile ThisWorkbook.Path & "\A.xlsx", ThisWorkbook.Path & "\B.xlsx"
End Sub

Téléchargez les fichiers joints dans le même dossier (le bureau).

A+

 

[laurent3372]

Pour le faire facilement:

• ouvrir les deux classeurs A et B
• dans le classeur A, copier les données désirées
• dans le classeur B Coller > collage spécial > cliquer sur "coller avec liaison"
• fermer le classeur A

Maintenant, dans le classeur B, on peut faire Données > Actualiser tout. Cela recopie les valeurs de A vers B

 

[sylvanu]

Bonjour Cmdavid, Job, Laurent,

En PJ un exemple d'écriture dans un fichier fermé via une requête SQL.
( Il faut les deux fichiers dont le nom est ... explicite )
L'exemple ne fait qu'enregistrer la dernière ligne du tableau. C'est juste un exemple de faisabilité.

Librement inspiré du bon exemple de :

Probleme d'écriture avec ADODB

Je viens vers vous car je rencontre un problème très agassant. Je souhaite lire et écrire dans un fichier excel fermé. J'utilse donc la méthode ADODB.records...

forum.excel-pratique.com

 

[job75]

Autre solution avec écrasement du fichier Destination.xlsx chaque fois qu'on modifie Source(1).xlsm :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Workbooks("Destination.xlsx").Close 'si le fichier est ouvert
Me.Copy 'nouveau document
With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\Destination.xlsx", 51
    .Close
End With
End Sub

Bonjour sylvanu.

 

[job75]

Avec ce code dans ThisWorkbook ça me paraît mieux :

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim fn$
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
Workbooks("Destination.xlsx").Close 'si le fichier est ouvert
With ThisWorkbook
    fn = .FullName
    .SaveAs .Path & "\Destination.xlsx", 51 '51 => .xlsx
    .SaveAs fn, 52 '52 => .xlsm
End With
Application.EnableEvents = True
End Sub

Le fichier Destination.xlsx est mis à jour chaque fois qu'on enregistre le fichier Source(2).xlsm.