eviter de récupérer 0 si cellule vide avec ExecuteExcel4Macro

Bonjour,

J'utilise la fonction

Code:

---

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:

---

sierreur mais cela ne semble pas fonctionner

---

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

Code:

---

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

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

Code:

---

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

---

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. :koi:

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

Code:

---

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

---

Finalement je supprime le o dans la foulée.

Code:

---

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

Citation:

---

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

Citation:

---

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.

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.