Lien entre trois classeurs via macro.

[Hulk]

Bonjour le Forum et tous,🙂

le titre est explicite.

J'ai joins un dossier nommé "Essai" avec 3 fichiers xls, il faut lire le fichier "Test".

Easy pour les pros, mais pas évident pour moi. 😕

Merci à tous.

Hulk.

 

[Compte Supprimé 979]

Re : Lien entre trois classeurs via macro.

Salut Géant vert, heuuu Hulk 😉

Tu trouveras ci-joint ton fichier Test, avec une possibilité, grace à une fonction qui utilise la technique ADO

A+

 

[Hulk]

Re : Lien entre trois classeurs via macro.

Salut le Forum, et BrunoM45,

D'abord merci pour ton aide, désolé de ne pas avoir répondu avant.

Alors j'ai testé vite fait et apparemment ça joue. Je dois dire chapeau, et maintenant faut que je l'adapte sur mon fichier d'origine, et je te tiens au courant.

Je comprends pas grand chose à tout ça, mais juste un truc qui a attiré mon attention : C'est quoi cette phrase, c'est un fichier sur ton PC ??

"S:\CLOTURE 2007 ANNEMASSE - B28 -\DIVERS\Base articles FT 072007.xls"😕😀

Encore merci, Hulk.

 

[JCGL]

Re : Lien entre trois classeurs via macro.

Boinjour à tous,
Salut Bruno,
Salut Hulk,

Le chemin était sur ton fichier Test.xls

Sub lien2fichiers()
For i = 1 To 2000
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 2) = "Dim appxl As Excel.Application"
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application")
   
 
With appxl
    .Workbooks.Open "[B]S:\CLOTURE 2007 ANNEMASSE - B28 -\DIVERS\Base articles FT 072007.xls[/B]"
    .Visible = False
End With

Set fichier = appxl.Windows("Base articles FT 072007.xls")
            fichier.Activate
Set feuille = appxl.Sheets("Base articles FT 072007")
            feuille.Range("A1").Select
   
    Windows("gfg .xls").Activate
     Cells(i, 2).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'Base articles FT 072007.xls'!R8C2:R17165C5,4,FALSE)"
   
appxl.Workbooks("Base articles FT 072007.xls").Close
Set appxl = Nothing
Else
Cells(i, 2) = ""
End If
Next i
End Sub

A+

 

[Hulk]

Re : Lien entre trois classeurs via macro.

Salut à tous,

Désolé de ne pas avoir répondu avant.

A vrai dire, je ne capte rien à ce code 🙂 mais j'vais persévérer.

Merci encore à tous.

Hulk.

 

[Hulk]

Re : Lien entre trois classeurs via macro.

Bonjour à tous,

J'ai donc laissé tomber le code que vous m'avez proposé, merci encore mais désolé trop complexe pour moi 😀
Mais on m'a proposé, sur un autre Forum, une autre solution, qui pour moi, est plus simple. Merci à la personne.

Je joins le zip pour ceux que ça interresse.

A bientôt et encore merci à tous.

Hulk.