Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mis à jour liaison entre 2 classeurs

  • Initiateur de la discussion Initiateur de la discussion XceSs
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

XceSs

XLDnaute Nouveau
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
 
Re : Mis à jour liaison entre 2 classeurs

Bonjour,

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

Code:
[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]
 
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 ?
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…