2 messages in org.openoffice.fr.progRe: [prog] [Calc]Programmation
FromSent OnAttachments
cjfjDec 18, 2005 10:22 am 
Gerard KohlerDec 18, 2005 11:02 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] [Calc]ProgrammationActions...
From:Gerard Kohler (koh@oceanetpro.net)
Date:Dec 18, 2005 11:02:27 pm
List:org.openoffice.fr.prog

cjfj a écrit :

J'ai un classeur contenant 3 feuilles (Feuille1, Feuill2 et Feuille3). J'ai créé une macro pour imprimer chacune des feuilles ImprimerFeuille1 ImprimerFeuille2 ImprimerFeuille3 Chaque feuille s'imprime bien séparément.

Maintenant, je voudrais créer une macro pour imprimer les trois feuilles en une seule action. J'ai donc fait une macro :

Sub Imprimer(1) ImprimerFeuille1 ImprimerFeuille2 ImprimerFeuille3 End Sub

La feuille 1 s'imprime bien, mais pas les suivantes.

Je début en Basic pour OOo et j'ai peut-être omis quelque chose. Pouvez-vous me venir en aide ? Merci Michel

bonjour,

deux remarques :

quand tu appelles une procedure il faut mettre des parenthèses même s'il n'y a pas d'argument d'appel : ImprimerFeuille1()

quand tu déclares une procedure ou une fonction, s'il n'y a pas d'arguement d'appel il ne faut pas mettre de parenthèse, et s'il y a des arguments il faut les déclarer : Sub Imprimer Sub Imprimer(dim x as long)

donc faire :

Sub Imprimer(dim x as long) Select Case x Case 1 ImprimerFeuille1() Case 2 ImprimerFeuille2() Case 3 ImprimerFeuille3() Case else MsgBox("erreur") End Case End Sub

Bon voili voila

Gérard