Discussion :

[guidav]

Bonjour
J'ai un fichier "fichier.xls" dans lequel est référencé un XLA "fichierXLA.xla".
Dans ce fichier XLA, il y a une feuille "dataXLA" qui contient un range "rangeXLA".
Comment faire pour que
- en lançant une fonction du XLA depuis le XLS
- le XLA modifie les données contenues dans "rangeXLA"

La fonction dans le XLA a cette tête, elle marche très bien si on la met directement dans un XLS.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub fonctionXLA()
Dim db As Database
Dim rcd As Recordset
Dim str_query As String
 
str_query = "SELECT * from toto"
Set db = OpenDatabase(str_db)
Set rcd = db.OpenRecordset(str_query)
rcd.MoveLast
rcd.MoveFirst
With Application.ThisWorkbook.Sheets("dataXLA")
    Range("A1:A" & rcd.RecordCount) = Application.WorksheetFunction.Transpose(rcd.GetRows(rcd.RecordCount))
End With
 
 
End Sub

Merci d'avance

[Daniel.C]

Bonjour,

Pour afficher les feuilles d'un classeur xla, affiche la fenêtre VBA, positionne sur le module "ThisWorkbook" et appuie sur F4. Mets la propriété "IsAddin" à "False".

[SfJ5Rpw8]

Bonjour,

il manque un point devant Range..

Code :

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

1
2
With Application.ThisWorkbook.Sheets("dataXLA")
 .Range("A1

sans ce pont l'instruction With ne sert à rien ..

[guidav]

Bonjour
Merci pour vos réponses, mais ça ne résout rien.
Ma fonction plante sur la ligne

Code :

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

.Range("A1:A" & rcd.RecordCount) = Application.WorksheetFunction.Transpose(rcd.GetRows(rcd.RecordCount))

car je pense qu'on ne se trouve pas dans le XLA à ce moment, mais dans le XLS. Comment faire pour que

Code :

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

With Application.ThisWorkbook.Sheets("dataXLA")

pointe vers le XLA ?

[SfJ5Rpw8]

et elle pante quoi ta fonction ?

[guidav]

et elle pante quoi ta fonction ?

Justement, c'est là le problème : elle s'arrête sans message.
Ceci dit, dans une fenêtre de debug je fais

Code :

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

?Application.ThisWorkbook.Sheets("dataXLA").cells(1,3)

il me renvoie bien la donnée correspondante de la feuille du XLA.
Cependant, il semble que ces données sont en lecture seule. Si j'essaie de modifier la valeur, j'ai un "erreur définie par l'application ou par l'objet".