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.

[Fvandermeulen]

Salut Dead78, Re Paulom,
Dead78 c'est pas que je veux te court-circuiter mais on avait commencé la discussion sur le forum Excel, comme ça me tracassait j'ai un peu cherché et donc je pense avoir une solution et je voudrais pas crever avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub OuvreTousXLS()
 
Const Rep = "C:\Documents\" ' le répertoire contenant les fichiers..
Dim TheFile As String
 
TheFile = Dir(Rep & "*.xls")   'Listing des fichier Excel...
While TheFile <> "" 'Tant que non vide
   Workbooks.Open (Rep & TheFile) 'Ouverture du fichier
   ActiveWorkbook.UpdateLink name:=ActiveWorkbook.LinkSources 'Mise à jour du lien
   TheFile = Dir 'Fichier suivant
Wend
End Sub

Et pour fermer les fichiers...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub FermeFichiers()
 
Dim Wkb As Workbook
 
MyFile = "TonFichier.xls" 'Indique le nom du fichier qui doit rester ouvert
 
For Each Wkb In Application.Workbooks 'Boucle pour chaque fichier
    If Wkb.name <> MyFile Then Wkb.Close 'Vérifie si différent de celui à garder ouvert
 
Next
End Sub

[DeaD78]

Salut Fvandermeulen !

Tu ne me court-circuites pas du tout Je voulais justement arriver à quelque chose du style. En tout cas, j'ai plus rien à faire, c'est ce qu'il fallait faire

[PAULOM]

Dans OuvreTousXLS je dois modifier uniquement le répertoire contenant les fichiers, c'est ça?
Et dans FermeFichiers, je dois juste mon fichier de base ?

C'est ce que j'ai fait et j'ai enregistrer le tout et j'ai toujours ces fameuses alertes dès que j'ouvre mon fichier de base.

J'aimerais que ce code arrive avant les alertes...

En tout cas merci beaucoup pour vos réponses.

[Fvandermeulen]

Si tu as toujours les alertes essaies alors en mettant au début du code, par exemple en dessous de 'Dim TheFile...'

Code :

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

Application.DisplayAlerts = False

Et avant ton End sub

Code :

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

Application.DisplayAlerts = True

Dis moi si ça passe, par contre il faut être bien conscient que c'est une solution de conternement, on n'a toujours pas l'origine du problème.

[PAULOM]

Désolé de répondre si tard, mais en fait j'aimerais ne pas utiliser VBA car franchement je n'y comprend pas grand chose je pensais que mon erreur allait se résoudre via excel seuelement.

Merci à vous.

[Krovax]

Hmmm, si tu veux une solution qui n'utilise pas le VBA mais uniquement Excel il faudrait peut être aller sur le forum Excel et non pas sur le sous forum dédier au VBA.

[PAULOM]

Bonjour à tous,

En fait je pense que je vais me pencher sur le VBA^^

Sur ton code Fvandermeulen, malheureusement la maj ne se fait pas, pourtant il y a aucune erreur dans le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub OuvreTousXLS()
 
Const Rep = "C:\sortie" ' le répertoire contenant les fichiers..
Dim TheFile As String
 
TheFile = Dir(Rep & "*.xls")   'Listing des fichier Excel...
While TheFile <> "" 'Tant que non vide
   Workbooks.Open (Rep & TheFile) 'Ouverture du fichier
   ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 'Mise à jour du lien
   TheFile = Dir 'Fichier suivant
Wend
End Sub

Quelqu'un a une solution?


Merci à vous

[Fvandermeulen]

Salut,
Je pense qu'il te manque un "\" dans la définition par constante de ta variable Rep.

Essaies le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub OuvreTousXLS()
 
Const Rep = "C:\sortie\" ' le répertoire contenant les fichiers..
Dim TheFile As String
 
TheFile = Dir(Rep & "*.xls")   'Listing des fichier Excel...
While TheFile <> "" 'Tant que non vide
   Workbooks.Open (Rep & TheFile) 'Ouverture du fichier
   ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 'Mise à jour du lien
   TheFile = Dir 'Fichier suivant
Wend
End Sub