Discussion :

[Denis_67]

Bonjour,

J'utilise la fonction

Code :

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

ExecuteExcel4Macro

Pour lire des datas dans des classeurs fermés.

Peut-on éviter de récupérer un 0 s'il n'y a pas de valeur.

J'ai tenté un

Code :

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

sierreur mais cela ne semble pas fonctionner

Le but est de reconstituer une bdd à partir de classeurs existants dans un répertoire

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
    MaFormule(2) = "DTE&MET'!r8c5"             'Technicen
' j'ai tenté sans susccès
 MaFormule(2) = "SIERREUR(DTE&MET'!r8c5,""""')"             'Technicen
...
 
For La_Colon = 2 To 20
ThisWorkbook.Sheets("Liste_de_base").Cells(Ligne, La_Colon) = ExecuteExcel4Macro("'" & Mon_Rep & "[" & Fich & "]" & MaFormule(La_Colon))
Next

Merci
Denis

[Valtrase]

Salut le fil...
Tu as essayé cela :

Code :

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

1
2
 
MaFormule(2) = SI("DTE&MET'!r8c5"=0;"";"DTE&MET'!r8c5")

[Menhir]

Je ne comprends pas pourquoi tu utilises ExecuteExcel4Macro alors qu'il n'y a visiblement (je peux me tromper) pas de macro dans ta formule mais juste la valeur d'une cellule.

[Denis_67]

Merci Valrase, même après correction de la syntaxe, ça ne fonctionne pas, je récupère toujours 0

Code :

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

    MaFormule(2) = "SI(DTE&MET'!r8c5=0;"""";DTE&MET'!r8c5)"

Finalement je supprime le o dans la foulée.

Code :

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

1
2
3
4
For La_Colon = 2 To 28
ThisWorkbook.Sheets("Liste_de_base").Cells(Ligne, La_Colon) = ExecuteExcel4Macro("'" & Mon_Rep & "[" & Fich & "]" & MaFormule(La_Colon))
If ThisWorkbook.Sheets("Liste_de_base").Cells(Ligne, La_Colon) = 0 Then ThisWorkbook.Sheets("Liste_de_base").Cells(Ligne, La_Colon) = ""  ' <<== supprime les 0
Next

Bonjour Menhir,
je disais

J'utilise la fonction .. Pour lire des datas dans des classeurs fermés.

je boucle sur un répertoire de classeurs de résultats formatés pour collecter des informations dans une base.

Mon problème étant résolu, je cloture.

Merci

[Menhir]

J'utilise la fonction .. Pour lire des datas dans des classeurs fermés.

ExecuteExcel4Macro sert à exécuter les macro Excel "à l'ancienne", celles qui étaient constitués (en gros) d'une série de formules et qui, aujourd'hui, ne sont plus du tout utilisées, sauf pour faire tourner de très anciennes applications.
Mais pour évaluer une simple formule, il est préférable d'utiliser la méthode Evaluate.
Lire ça : https://docs.microsoft.com/fr-fr/off...ation.evaluate

Petite remarque finale : Excel ne sait pas lire dans les fichiers "fermés".
En fait, ton fichier source est ouvert par le fichier destination par une connexion externe.

[Denis_67]

Merci Menhir,

Evaluate ne fonctionne que sur les classeurs ouverts.

Je me doute bien que Excel ne lit pas les classeurs "réellement" fermés mais la macro ancienne me parait plus rapide que d'ouvir chaque chaque classeur avec workbooks.open.

Sinon il faudra que je me décide à passer à la gestion OLE
https://silkyroad.developpez.com/VBA...eursFermes/#LV

En tout cas merci.
à bientôt.