Discussion :

[lisamano]

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 :

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

    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 :

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

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

[joe.levrai]

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 :

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

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

dans une autre application

Code :

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

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

[lisamano]

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

[unparia]

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)

[lisamano]

Bonjour,

J'ai des valeurs de test :

Code :

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

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.

[lisamano]

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