XL 2016 Ouverture des fichiers en lien dans un fichier excel

[maxwellou]

Bonjour à tous,

Je souhaiterais ouvrir l'ensemble des fichiers qui sont en lien dans un fichier Excel (en un seul Click).

Pensez-vous que cela soit possible svp ?

Merci beaucoup.

 

[job75]

Bonjour maxwellou,

Avec VBA c'est possible mais vous devez préciser la nature des liens (liens hypertextes ou formules de liaison).

A+

 

[maxwellou]

Bonjour maxwellou,

Avec VBA c'est possible mais vous devez préciser la nature des liens (liens hypertextes ou formules de liaison).

A+

Bonjour Job75,

Je ne comprends pas votre remarque. Pourriez-vous m'éclairer d'avantage svp ?

En fait, mes liens sont tous des formules de liaison qui sont visibles dans (Données>Modifier les liens)

 

[job75]

Alors mettez cette macro dans un module (Alt+F11) et exécutez-la (Alt+F8) :

Sub Ouvrir_Liens()
Dim F As Worksheet, a, i&
Set F = ActiveSheet
a = ThisWorkbook.LinkSources
If Not IsArray(a) Then Exit Sub
For i = 1 To UBound(a)
    Workbooks.Open a(i)
Next
Application.Goto F.[A1]
End Sub

 

[maxwellou]

Alors mettez cette macro dans un module (Alt+F11) et exécutez-la (Alt+F8) :

Sub Ouvrir_Liens()
Dim F As Worksheet, a, i&
Set F = ActiveSheet
a = ThisWorkbook.LinkSources
If Not IsArray(a) Then Exit Sub
For i = 1 To UBound(a)
    Workbooks.Open a(i)
Next
Application.Goto F.[A1]
End Sub

Mille mercis

 

[maxwellou]

Mille mercis

Dernière question, peut-on ajouter à cette macro une ligne qui automatiserait le click systématique "ne pas mettre à jour les liaisons" pour chaque fichier qui va s'ouvrir svp ? merci

 

[job75]

Menu Fichier => Options => Options avancées => décocher la case "Confirmer la mise à jour automatique des liens".