Discussion :

[oasisllc]

Bonjour,

Je souhaite faire effectuer par de nombreux projet-workbooks , à leur ouverture, la macro suivante, placée dans ThisWorkbook de chaque projet-workbook:

Code :

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

1
2
3
Private Sub Workbook_Open()
exportCurrentYearChart (Me)
End Sub

La fonction exportCurrentYearChart est définie dans le module du projet Personal.xlsb par:

Code :

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

1
2
3
4
5
6
7
Public Sub exportCurrentYearChart(ByRef wbk As Workbook)
Dim sh As Worksheet
Set sh = wbk.Sheets(1)
 
.........
mychart.Export Filename:=Fname, FilterName:="GIF"
End Sub

J'ai bien ajouté dans chaque projet qui effectue le Sub Workbook_Open() une référence à Personal.xlsb

Le problème que j'ai est que exportCurrentYearChart (Me) plante à son appel:
"Erreur 438 Propriété ou méthode non gérée par cet objet"

Pourquoi?

Comment puis-je passer à la fonction exportCurrentYearChart placée dans Personal.xlsb une référence au workbook d'où se fait l'appel de cette fonction?

Merci

[Invité]

Bonjour

As-tu essayé tout simplement

Code :

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

exportCurrentYearChart (ThisWorkbook)

A+