Mis à jour liaison entre 2 classeurs

[XceSs]

Bonjour, j'ai un classeur dans lequel se trouve le planning de base "la source" et un deuxième qui prend les données ds le premier. Il aurait il une macro qui permettrait d'ouvrir fermer un fichier juste pour mettre a jour svp ?

De plus j'ai un autre problème le premier tableau a les couleurs mais le deuxième n'arrive pas à prendre les paramètres(couleur de fond, police...) des cellules en lien :s

Merci du coup de main

 

[nat54]

Re : Mis à jour liaison entre 2 classeurs

Bonjour,

J'ai dans ma "bible" excel , ce code dont tu pourrais t'inspirer

[FONT=Arial]Sub MAJ_GC_Centre()[/FONT]
 
[FONT=Arial]' MAJ Groupement Centre[/FONT]
[FONT=Arial]Workbooks.OpenFileName:="U:\PUBLIC\DOTC\COCKPIT\Alimenter Cockpit\Centre\GC_Centre Cadre_Organisation.xls", _[/FONT]
[FONT=Arial]      UpdateLinks:=3[/FONT]
[FONT=Arial]Workbooks("GC_Centre Cadre_Organisation.xls").Save[/FONT]
[FONT=Arial]Workbooks("GC_Centre Cadre_Organisation.xls").Close[/FONT]
 
[FONT=Arial]Workbooks.OpenFileName:="U:\PUBLIC\DOTC\COCKPIT\Alimenter Cockpit\Centre\GC_Centre OBJECTIF.xls", _[/FONT]
[FONT=Arial]UpdateLinks:=3[/FONT]
[FONT=Arial]Workbooks("GC_Centre OBJECTIF.xls").Save[/FONT]
[FONT=Arial]Workbooks("GC_Centre OBJECTIF.xls").Close[/FONT]
 
[FONT=Arial]Workbooks.OpenFileName:="U:\PUBLIC\DOTC\COCKPIT\Alimenter Cockpit\Centre\GC_Centre REALISE.xls", _[/FONT]
[FONT=Arial]UpdateLinks:=3[/FONT]
[FONT=Arial]Workbooks("GC_Centre REALISE.xls").Save[/FONT]
[FONT=Arial]Workbooks("GC_Centre REALISE.xls").Close[/FONT]
 
[FONT=Arial]Workbooks.OpenFileName:="U:\PUBLIC\DOTC\COCKPIT\Alimenter Cockpit\Centre\GC_Centre TENDANCE.xls", _[/FONT]
[FONT=Arial]UpdateLinks:=3[/FONT]
[FONT=Arial]Workbooks("GC_Centre TENDANCE.xls").Save[/FONT]
[FONT=Arial]Workbooks("GC_Centre TENDANCE.xls").Close[/FONT]
 
[FONT=Arial]End Sub[/FONT]

 

[XceSs]

Re : Mis à jour liaison entre 2 classeurs

Merci

Ouaou bcp de chose là dedans je connais pas grand chose en VBA ça va être chaud ça peut ouvrir la source à l'ouverture du deuxième classeur ?

 

[nat54]

Re : Mis à jour liaison entre 2 classeurs

Oups ça a tout copié-collé, je voulais juste coller ça

Workbooks.OpenFileName:="U:\PUBLIC\DOTC\COCKPIT\Alimenter Cockpit\Centre\GC_Centre Cadre_Organisation.xls", _
UpdateLinks:=3
Workbooks("GC_Centre Cadre_Organisation.xls").Save
Workbooks("GC_Centre Cadre_Organisation.xls").Close

 

[XceSs]

Re : Mis à jour liaison entre 2 classeurs

Sauvegarde ca na ?> Workbooks("GC_Centre Cadre_Organisation.xls").Save ?

Donc si j'ai bien comprit je mets ca dans thisworkbook :
ca ouvre et referme le fichier source et permet la mis a jour sans sauvegarde de la source na ?

Workbooks.OpenFileName:="C:\Source\CB.xlsm", _
UpdateLinks:=3
Workbooks("CB.xlsm").Close

 

[XceSs]

Re : Mis à jour liaison entre 2 classeurs

Workbooks.OpenFileName:="C:\Source\CB.xlsm", _UpdateLinks:=3
Workbooks("CB.xlsm").Close