XL 2013 Ouvrir fichier source

[coline741]

Bonjour le forum,

Fort mari de ne pas trouver de solution simple par une petite macro sympa. Honteux et confus je vous soumets ici le problème.

Le fichier joint comporte une liste de jazzmen avec un lien pour chacun (en l'occurence, colone G ici)

Si par exemple, je sélectionne Bill Evans en G5, le lien apparait: ='E:\music1\bill evans\[Bill Evans Discography.xls]Feuil3'!$C$4574

Le but de la macro est d'ouvrir le fichier "Bill Evans Discography.xls" , à l'emplacement Feuil3'!$C$4574

C'est tout.

La feuille Macro1(non active) fonctionne toujours mais rame sur des disques externes de 3 téras ou plus.

Thank you in advance for your assistance.

 

[Deadpool_CC]

Bonsoir,
désolé, le taf me laisse que peu de temps ...
Donc j'ai pas chargé ton fichier mais dans le code précédent (remis ci-dessous) tu "select" une plage d'un onglet sur d'une destination.

Peut-être est-ce là qu'il faut voir pour sélectionner la bonne plage au bon endroit 🙂

Sub test()
Dim Fichier$, Fich, Plage$, Onglet$, Destination As Workbook
    strQuote = Chr(34)
    Fichier = ThisWorkbook.Sheets("Feuil1").Range("G5").FormulaLocal
    Fich = Split(Fichier, "'")
    Plage = Right(Fich(1), Len(Fich(1)) - InStr(1, Fich(1), "]", vbTextCompare))
    Fich(1) = Replace(Left(Fich(1), InStr(1, Fich(1), "]", vbTextCompare) - 1), "[", "")
    Plage = Plage & Fich(2)
    Onglet = Left(Plage, InStr(1, Plage, "!", vbTextCompare) - 1)
    Plage = Right(Fich(2), Len(Fich(2)) - 1)
    Set Destination = Workbooks.Open(Fich(1))
    With Destination
        .Sheets(Onglet).Range(Plage).Select
    End With
End Sub

A+

 

[coline741]

Bonsoir L'Ami

C'était tout à fait celà

Au plaisir peutêtre, en tout cas un grand merci.

 

[Deadpool_CC]

Bonjour,
De rien !
Après le "résolu" d'habitude on le met sur le post le plus pertinent d'une personne qui t'a aidé et non pas à soi même sauf quand on trouve tout seul et qu'on post la solution pour le reste de la communauté
🙂
A+