Discussion :

[Nico820]

Bonjour à tous,

je suis face à un problème difficile à résoudre car il ne marche que si le fichier appelé ne contient pas d'espaces.

L'objectif est de créer une formule INDEX/EQUIV générée automatiquement avec un for.

Code :

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

1
2
3
sTempFormula = "=INDEX([" & sPeopleFileName & "]Feuil1!$B$12:$D$55;EQUIV(B" & iCurrentRow & ";[" & sPeopleFileName & "]Feuil1!$D$12:$D$55;0);1)"
 
wsResults.Cells(iCurrentRow, 1).FormulaLocal = sTempFormula

Si sPeopleFileName contient un espace(exemple: "fichier entree.xlsx") alors il y a un message d'erreur "erreur d'exécution '1004'"

Si sPeopleFileName ne contient pas d'espace(exemple: "fichierentree.xlsx") alors ça marche.

Comment faire pour que ça marche avec des espaces??

[joe.levrai]

Bonjour,

il faut encadrer le nom du fichier par des apostrophes '

[Nico820]

Déjà testé.

Voici la liste des tests qui n'ont pas marché:

Code :

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

1
2
3
4
5
6
 
sTempFormula = "=INDEX(['" & sPeopleFileName & "']Feuil1!$B$12:$D$55;EQUIV(B" & iCurrentRow & ";['" & sPeopleFileName & "']Feuil1!$D$12:$D$55;0);1)"
 
sTempFormula = "=INDEX('[" & sPeopleFileName & "]'Feuil1!$B$12:$D$55;EQUIV(B" & iCurrentRow & ";'[" & sPeopleFileName & "]'Feuil1!$D$12:$D$55;0);1)"
 
sTempFormula = "=INDEX('[" & sPeopleFileName & "]Feuil1'!$B$12:$D$55;EQUIV(B" & iCurrentRow & ";'[" & sPeopleFileName & "']Feuil1'!$D$12:$D$55;0);1)"

[joe.levrai]

Si l'on s'en réfère à Excel, voici ce que ça donne dans la barre de formule

='[Nom Du fichier.Extension]Nom De La Feuille'!$C$30

Je conçois que ta troisième proposition s'en approche, mais il me semble qu'il y a un ' parasite

n'hésite pas à faire un debug.print sur la chaine avant de l'insérer dans le .FormulaLocal

[Philippe Tulliez]

Bonjour,
Pour des raisons évidente de compatibilité quelle que soit l'interface linguistique d'excel (on n'est jamais à l'abri d'une reprise par une société étrangère), je privilégie la propriété Formula.
La lecture de ce billet Comment écrire une formule plus complexe dans une cellule ? qui est la suite de Ecrire une formule dans Excel à l'aide d'une procédure VBA te permettra de mieux appréhender la construction d'une formule avec paramètres.

[unparia]

Bonjour
J'ai mis un à la remarque très justifiée de Philippe Tulliez