Printout et Add-in custom

[Pylt]

Bonjour à tous,

Voilà, j'ai évidemment un autre problème: j'ai créé un Userform que j'ai transformé en Add-in (avec extension .xla) parce que je ne veux pas que les worksheets soient disponibles aux utilisateurs et/ou apparaissent à l'écran.

J'ai testé mon Userform avant de sauvegarder en .xla et tout fonctionnait bien.

J'ai deux sheets dans mon workbook '.xla' que je veux imprimer, mais pas afficher à l'écran.
La commande d'impression a été créée en enregistrant une macro, avant de convertir mon workbook en Add-in, et tout fonctionnait bien avant la conversion.

Le problème: lorsque j'essaie d'imprimer en mode 'Add-in' je recoit un message d'erreur comme quoi la méthode n'est pas reconnue.

Voici à quoi ressemble le code d'impression d'une page à ce jour:

With Workbooks('calcul entree hopital version 4.xla')
.Worksheets('donnees').Activate
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

La methode activesheet.printout ne semble pas être reconnue par VBA. (Peut-être parce que en version Add-in les sheets ne peuvent être affichées?)J'ai essayé plusieurs versions sans résultats.

Quelqu'un a une idée SVP?

Salutations,
Pylt

 

[MichelXld]

bonsoir Pylt

tu peux essayer cette synthaxe

With Workbooks('test.xla')
.IsAddin = False
.Worksheets('Feuil1').PrintOut Copies:=1, Collate:=True
.IsAddin = True
End With


bonne soiree
MichelXld