Discussion :

[Border_xls]

Bonsoir à tous !
J'essaye actuellement de mettre au point un classeur excel (DP) réparti en plusieurs onglets (1-2-3-4-5-6) avec une macro qui serait à même d'aller chercher les données liées (également sur des classeurs excel) au classeur (DP). Il y a environ 30-40 liens à mettre à jour pour les onglets 2-3-4.
J'avais pu mettre en oeuvre une solution il y a quelques mois, mais lorsque j'ai voulu la réactiver, celle-ci provoque une erreur que je n'arrive pas à solutionner...
N.B. Le classeur est au préalable déprotégé par une macro, c'est la deuxième étape où les choses se gâtent...
A la fin de ma mise à jour, j'aimerais que l'affichage revienne sur un onglet défini (2), mais actuellement je sèche...
Si quelqu'un a la solution miracle, je suis preneur... (J'ai déjà des cheveux en moins...).
Bonne soirée à tous !
Didier

[pgz]

Bonjour.

Voici qq idées pour simplifier ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub MiseAJour()
Dim wbk As Excel.Workbook
 
'instanciation
Set wbk = Application.ThisWorkbook
 
' Déprotection
    wbk.Unprotect
    For i = 1 To 5
        wbk.Sheets(i).Activate
        wbk.Sheets(i).Unprotect
    Next i
 
' Mise à jour
    wbk.UpdateLink wbk.LinkSources
 
' Reprotection
    For i = 1 To 5
        wbk.Sheets(i).Activate
        wbk.Sheets(i).Protect
    Next i
    wbk.Protect
 
'activation feuille 2
    wbk.Sheets(2).Activate
 
'libération
Set wbk = Nothing
 
End Sub

Bon courage,

PGZ

[Border_xls]

Salut Pgz,
Merci pour le tuyau, nickel chrome !
Didier