Discussion :

[PAULOM]

Bonjour à tous,

J'ai un fichier Excel : test.xls qui est composé d'au moins 30 feuilles (feuille1 ... feuille30). Dans ces feuilles, il y a un tableau qui renvoit à une table unique (table1 ... table30) conserver dans un répertoire. Ces données doivent être MAJ tous les mois.

Malheureusement je fais la MAJ moi-même et c'est très long car quand j'arrive sur Excel :

- Mettre à jour les liaisons
- Modifier les liaisons

Quand j'arrive sur "modifier les liaisons" il y a toutes les tables sources d'afficher donc je dois toutes les sélectionner pour les ouvrir (donc ça m'ouvre une trentaine de fichier excel ) et ainsi faire la MAJ.

Est-ce qu'il ya une possibilité de faire cette démarche automatiquement soit sur Excel sur VBA?

Merci à vous.

[DeaD78]

Bonjour,

En VBA c'est possible ! Je te propose d'utiliser l'enregistreur de macros afin de le faire pour une des feuilles. Une fois cela fait, tu adaptes le code obtenu afin de le faire pour toutes les feuilles avec une petite boucle maison.

Cela te convient-il ?

[PAULOM]

En fait j'avais penser à faire une micro mais ça me convient, car j'ai pas trop envie de répeter l'ouverture de mes 30 fichiers Excel, tu vois ce que je veux dire?

[DeaD78]

Ben oui je vois ce que tu veux dire. C'est sûr que le but du VBA c'est d'éviter de faire des tâches longues et/ou répétitives manuellement. D'ailleurs, ce que je te propose, c'est bien de faire une macro.

Par l'enregistreur de macros, tu vas faire une macro en VBA pour une seule de tes feuilles. Une fois cela fait, il faudra l'adapter pour que cela le fasse sur toutes tes feuilles.

Ce que je te propose est donc d'ouvrir l'enregistreur dans Outils/Macro/Nouvelle Macro. Fais ce que tu souhaites pour l'une de tes feuilles manuellement puis arrête l'enregistreur. Une fois cela fait, ALT + F11 et copie le code obtenu ici : je t'aiderai alors à l'adapter pour toutes tes feuilles histoire d'automatiser le processus.

En fait j'avais penser à faire une micro mais ça me convient

C'est la même chose VBA, macros et ce que je t'ai proposé

[PAULOM]

Voici le code une feuille avec une table:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MAJ()
'
' MAJ Macro
' 
'
 
'
    Workbooks.Open Filename:= _
        "C:\test1.xls"
    Windows("Tableau.xls").Activate
End Sub

Il faut que je rentre une par une les différentes tables?
Merci à toi

[DeaD78]

Oula, c'est tout ?

Je ne comprends pas bien, quel est ton fichier de base, celui où doit être ta macro ? Quel est son nom ? Après avoir lancé l'enregistreur, as-tu mis à jour et modifié les liaisons pour une feuille ? Ca n'a pas l'air d'être le cas vu le code. Fais TOUT ce que tu dois faire pour l'une des feuilles.