VBA pour coller avec liaison

Bonjour,

J'ai un fichier "Maitre" et un fichier "Esclave".
Le fichier "Maitre" (ceci est évidemment un exemple...) contient la fonction SOMME en A3 qui additionne A1 et A2... jusque là rien de transcendant... :D

Le fichier "Esclave" récupère la valeur de A3 en B1 (par exemple) via l'option "Coller avec liaison", cela fonctionne très bien jusqu'au moment ou les fichiers sont déplacés... les liaisons sautent...

Est-il possible de gérer cette liaison en VBA et régler le problème des changements de répertoire ?

Ps : l' "Esclave" peut être déplacé, mais pas le "Maitre" et là est mon problème...

Raison de cette demande
Je fais partie d'un club de tennis de table, et nous devons encoder des feuilles de matchs pendant les rencontres, nous utilisons pour cela un fichier Excel (aucun problème), une des feuilles du classeur, récapitule les scores des équipes en cours, et j'aimerais pouvoir afficher sur un écran (TV) cette feuille, pour cela j'ai imaginé créer un autre classeur à afficher sur la TV qui reprendrait les résultats de cette feuille (récapitulatif)... et cela fonctionne très bien, le problème est que d'une semaine à l'autre le nom du répertoire de la feuille XL change... J'aimerais donc pouvoir dire au fichier "Esclave" qu'il doit aller chercher obligatoirement le fichier "Maitre" se trouvant dans son répertoire. Il y aurait donc dans chaque répertoire un ficher "Maitre" et "Esclave".


Ps : LE TOP serait de créer un fichier HTML avec mise en page de cette feuille et de l'envoyer sur le Web via FTP, et de l'afficher via l'explorateur de la TV, mais là je cale aussi pour créer le fichier HTML et pour l'envoyer via FTP, j'ai trouvé des codes, mais rien ne fonctionne... :roll:

Merci d'avance pour votre aide :-)

Bonjour,

le chemin du fichier de la macro est :

Code:

---

chemin=ThisWorkbook.Path

---

Sinon au plus simple. Tu ouvres tes 2 fichiers et tu fais enregistrer sous... dans le nouveau répertoire en finissant par celui avec les liens qui se seront mis à jour.
eric

Bonjour,
Merci pour votre réponse, mais cela ne fonctionne pas...

J'ai opté pour une autre approche, qui est de simplement recopier les données d'un fichier vers un autre, mais cela ne fonctionne pas non plus... voici mes codes

Le 1er test

Code:

---

1 2 3 4 5 6 7

Workbooks("maitre.xlsm").Activate Sheets("Feuil1").Range("C4").Copy   Workbooks("esclave.xlsm").Activate Worksheets("Feuil1").Paste Destination:=Range("B6")   Application.CutCopyMode = False

---

Le 2ème

Code:

---

1 2	Workbooks(maitre.xlsm).Worksheets("Feuil1").Range("C4").Copy _ Workbooks(esclave.xlsm).Worksheets("Feuil1").Range("B6")

---

Rien ne fonctionne... :(

Ps : J'aimerais aussi trouvé le code qui ouvrirait le fichier "esclave.xlsm" si il n'est pas ouvert et il l'ouvrirait dans une fenêtre indépendante.

Pouvez-vous m'aider ?

Bonjour,

Code:

---

mais cela ne fonctionne pas...

---

la 2nde technique sans vba ne peut pas ne pas fonctionner.
Et je ne te vois pas utiliser ThisWorkbook.Path

Met-toi en enregistrement de macro et fait 'Données / Connexions', bouton 'Modifier la source...'
Tu auras la ligne essentielle.

Citation:

---

Ps : J'aimerais aussi trouvé le code qui ouvrirait le fichier "esclave.xlsm"

---

Idem, utiliise l'enregistreur de macro et épure le code.
Tu as aussi 'Affichage / Fenêtres / Enregistrer l'espace de travail'. Il te crée un fichier spécifique qui ouvrira tous les fichiers actuellement ouverts.
eric

J'utilise bien du VBA...