VBA double actualisation
Bonjour à tous,
J'ai bien vu que la question a été posé plusieurs fois, mais je n'ai pas trouvé la bonne caractéristique à ce dont je souhaite faire à mon classeur EXCEL. Voici pourquoi je vous contact aujourd'hui.
J'ai un fichier Excel avec plusieurs feuilles :
= > La première est une feuille de synthèse.
= > Et les 28 autres sont à la suite un listing de référence avec leurs caractéristiques et leurs quantité et sur la feuille suivante le tableau dynamique qui me permet de réaliser la synthèse.
Classeur : Synthèse, listing magasin1, TCD magasin1, listing magasin2, TCD magasin2, ..... , listing magasin14, TCD magasin14.
Je voudrais créer une matrice qui actualise toutes mes données externes afin de pouvoir ensuite actualisé tous mes TCD, mais je ne m'y connais pas assez pour pouvoir réaliser cela.
Pensiez-vous pouvoir m'aider à créer cette macro ?
Merci d'avance d'utiliser votre temps à fin de m'aider.
Cordialement,
Fyou.
Voici pour le moment le code que j'ai créé, mais le soucis dans celui si c'est que les macros sont séparées et que j'aimerai un seul bouton pour tout déclencher à la suite...
Sub débloquer()
'Enlever le blocage des feuilles du classeur
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="121093"
Next
End Sub
Sub Ouverture_fichier_source()
'Ouverture du Fichier "FS FW19.xlsm" pour lancer l'actualisation de sa macro (qui est préprogrammé pour s'executer à son ouverture
Dim NomClasseur As String
ChDir "C:\Users\Nitro\OneDrive\Documents\Taff\SOLDES"
NomClasseur = Dir("C:\Users\Nitro\OneDrive\Documents\Taff\SOLDES\full stock\FS FW19.xlsm")
Workbooks.Open NomClasseur
Workbooks.Save NomClasseur
Workbooks.Close NomClasseur
End Sub
Sub Actualisation_données_externes()
'Actualiser toutes les données externes du classeur
ActiveWorkbook.RefreshAll
End Sub
Sub actialisation_TCD()
'Actualiser tous les TCD du classeur
Sheets("MATRICE AEROVILLE").Select
ActiveWorkbook.RefreshAll
End Sub
Sub bloquer()
'Vérouiller de nouveau toutes les feuilles du classeur
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="121093"
Next
End Sub
Cordialement,
Fyou