Problème avec Application.WorksheetFunction

Bonjour,

J'ai passé un bon moment à rechercher pourquoi cela ne fonctionnait pas, mais je n'y arrive pas. Sous Excel, il n'y a aucun problème avec cette écriture (pour transférer dans une plage, la colonne d'un Array(T)):

Code:

---

FL1.[AG3].Resize(UBound(T, 1)) = Application.Index(T, , 5)

---

Mais je suis sous Access, d'où je manipule des fichiers Excel.
Et même si j'y arrive autrement (plus lent), je souhaiterai le faire comme ceci :

Code:

---

1 2 3 4 5

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim FL1 As Excel.Worksheet   FL1.[AG3].Resize(UBound(T, 1)) = xlApp.WorksheetFunction.Index(T, , 5)

---

Erreur : "Argument not optional"

En vous remerciant de m'aider à résoudre mon problème.
Cordialement,
J-Michel

bonjour,

si tu enlève justement .worksheetFunction ?

Car dans Excel : Application = l'application Excel

donc quand tu es dans Access, normalement si tu remplaces Application par la variable Objet représentant l'application Excel ...

dans excel

Code:

---

FL1.[AG3].Resize(UBound(T, 1)) = Application.Index(T, , 5)

---

dans une autre application

Code:

---

FL1.[AG3].Resize(UBound(T, 1)) = xlApp.Index(T, , 5)

---

Bonjour,

je te remercie pour ta réponse. J'ai déjà essyé et erreur : "type mismatch". Je vais, à nouveau, y passer un moment aujourd'hui et tenter de trouver une solution.
Bien entendu, je reste connecté pour vous lire.
Bien cordialement,
Jean-Michel

Bonjour
Montre-nous s'il te plait où et comment tu as affecté une valeur à tes variables FLI, T, etc ... (toutes celles qui pointent vers des variables VBA/Excel)

Bonjour,

J'ai des valeurs de test :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\Temp\Book1.xlsx", 0, True) xlApp.Visible = True xlBook.Activate Set FL1 = xlBook.Worksheets("Sheet1") FL1.Activate ReDim T(1 To 2, 1 To 2) T(1, 1) = "1" T(1, 2) = "#N/A" T(2, 1) = "Pierre" T(2, 2) = ""

---

Mais je ne comprends toujours pas.
En vous remerciant pour votre aide.
Cordialement.

J'ai enfin trouvé. Cela semble prvenir d'une incompatibilité avec la feuille Excel sur laquelle je travaillais. En effet, sous Office 2010 cela fonctionne, mais pas sous 2016.
Je suis donc reparti avec une feuille vierge crée sous 2016 et j’ai recopié l’ancienne. Maintenant, ça marche.
En vous remerciant pour votre patience.
Cordialement.
Jean-michel