Discussion :

[thomas67]

Bonjour,

Je suis assez novice en VBA et me heurte à un problème de syntaxe (probablement tout bête pour certains...)
Je souhaite remplacer le nom du fichier source d'un filtre élaboré par une variable, mais ma macro ne fonctionne plus lorsque le chemin n'est pas indiqué en dur après CriteriaRange:=Workbooks(...)

Code :

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

Range("tableau").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Workbooks("M:\Scoring_2011_axe1.xls").Sheets("zones choix").Range("crit"), Unique:=False

>>> ok tout fonctionne

Code :

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

1
2
3
Dim fichier_scoring As String
fichier_scoring = "M:\detail_resultats\Scoring_2011_axe1.xls"
Range("tableau").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Workbooks(fichier_scoring).Sheets("zones choix").Range("crit"), Unique:=False

>>> erreur! message "L'indice n'appartient pas à la sélection"


J'ai aussi essayé en mettant "fichier_scoring", et en enlevant Workbooks(), mais cela ne fonctionne pas non plus.

Quelqu'un saurait-il comment écrire ma variable correctement?

Merci d'avance pour vos suggestions.
Bonne journée

[L'Albatros]

Bonjour,

Le chemin d'accès change entre tes 2 bouts de code... c'est normal ?
As-tu vérifié à la main où tes chemins pointaient ?

[thomas67]

Désolé,
Faute de frappe en tentant de m'expliquer ici... dans mon fichier le chemin est bien identique, M:\detail_resultats\Scoring_2011_axe1.xls

[L'Albatros]

Ce bout de code ne viendrait pas de l'enregistreur de macro par hasard ?

Qu'est-ce-que tu veux faire en fait ?

[thomas67]

Aucune idée de la provenance du code, je reprends un fichier existant, dans lequel il y a beaucoup de macros qui font toutes appel aux mêmes fichiers sources.
Sauf que les noms des fichiers de base changent régulièrement, et je voulais m'éviter d'avoir à modifier tous les chemins d'accès. Si j'arrivais à les mettre une seule fois en variables, ça me simplifierait la vie.

Sinon, le fichier source est bien ouvert au lancement de la macro...
Merci beaucoup pour le lien, je m'en vais fouiner de suite!