Macro : Chercher les bons fichiers de liaisons.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro : Chercher les bons fichiers de liaisons.

PAULOM

Bonjour à tous,

J'ai un fichier Excel avec plusieurs fichiers en liaisons situés dans un répertoire bien distinct.
Voici ma macro :

Code :

Private Sub Workbook_Open()
Const Rep = "C:\Mon dossier\" ' le répertoire contenant les fichiers..
Dim TheFile As String
Application.DisplayAlerts = False
TheFile = Dir(Rep & "*.xls" ) 'Listing des fichiers 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
Application.DisplayAlerts = True
End Sub

Elle se lance à chaque fois que j'ouvre mon fichier a actualisé, mais malheureusement ici elle ouvre tous les fichiers du répertoire "C:\Mon dossier\ " or je voudrais qu'elle ouvre seulement les fichiers dont j'ai besoin pour actualisé mon fichier Excel.

Est-ce que c'est possible?

Merci à vous

Publicité

Deamon

Dans le While tu fais un

If(InStr(TheFile,"toto" )<>0) Then
Workbooks.Open (Rep & TheFile)
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Endif
TheFile = Dir

Pour par exemple ouvrir tous les fichiers dont le nom contient "toto".
Mais tu fais ce que tu veux dans le If.

Message édité par Deamon le 17-06-2009 à 08:18:27

PAULOM

Merci beaucoup Deamon, ça marche du tonnerre avec ton code, manque plus qu'à fermer les fichiers juste après...

Message cité 1 fois

produvba

PAULOM a écrit :

Merci beaucoup Deamon, ça marche du tonnerre avec ton code, manque plus qu'à fermer les fichiers juste après...

Workbook.close devrait être suffisant...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro : Chercher les bons fichiers de liaisons.

Sujets relatifs
chercher dossier en asp	Tableaux - Fichiers - Fonctions - Procédures
dépot de fichiers dans une bdd free	[résolu] Regex pour identifier les bons couples span /span
Optimisation de macro	Regrouper des fichiers excel en un seul par bouton vba
[Résolu]Ouverture de fichiers et fonctions	copie d'un répertoire avec filtrage par extension de fichiers
[Divers] Les fichiers *.DMF LG KP500	[C] Bus error, arbre et fichiers
Plus de sujets relatifs à : Macro : Chercher les bons fichiers de liaisons.

Page générée en 0.035 secondes