× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Problème macro open office
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
enki1
  Posté le 06/04/2010 @ 09:42 
Aller en bas de la page 
Nouvel astucien

Bonjour,

je suis en train de faire une macro qui doit marcher sur open office 3 et excel 2000 sous XP.

mais j'ai un problème.

voici la macro:

Sub ImprimerQA()
ActiveSheet.Unprotect
Dim C As Range
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = False
For Each C In Range("u1:u720")
C.EntireRow.Hidden = (C.Value = 1)
Next C
Range("B1:I176").Select
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollRow = 1
Range("D5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub ImprimerQA()

ActiveSheet.Unprotect

Dim C As Range

Cells.EntireRow.Hidden = False

Application.ScreenUpdating = False

For Each C In Range("u1:u720")

C.EntireRow.Hidden = (C.Value = 1)

Next C

Range("B1:I176").Select

Selection.PrintOut Copies:=1, Collate:=True

ActiveWindow.ScrollRow = 1

Range("D5").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

mais j'ai un message d'erreur : erreur de syntaxe Basic Le Symbole Range est déjà défini différemment Il mais en surbrillance : Range("B1:I176").Select merci de vos réponses

Publicité
enki1
 Posté le 06/04/2010 à 10:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

je pense avoir trouver la solution,

mettre toute les macros dans le même module.

enki1
 Posté le 06/04/2010 à 10:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

un autre souci maintenant,

j'ai recréer une macro qui execute tous les macros en une fois mais open office ne reconnait pas la fonction "run"

voici la macro :

Sub Imprimertouteslesfeuilles()

ActiveSheet.Unprotect

Application.Run "'Régimes chariot macro Imprimer4.xls'!ImprimerRécap"

Range("A1").Select

Sheets("Bat QA QD QI").Select

Application.Run "'Régimes chariot macro Imprimer4.xls'!ImprimerQA"

Sheets("Bat C").Select

Application.Run "'Régimes chariot macro Imprimer4.xls'!ImprimerC"

Sheets("Bat D").Select

Application.Run "'Régimes chariot macro Imprimer4.xls'!ImprimerDetE"

Sheets("Bat E").Select

Application.Run "'Régimes chariot macro Imprimer4.xls'!ImprimerDetE"

Sheets("Récap").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

merci de vos réponses

usularrakis
 Posté le 06/04/2010 à 12:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

forum dédié à OOo en français et le sous forum pour les macros

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
14,99 €Hub Aukey USB C 6 en 1 (USB 3.0, HDMI 4K, lecteur SD et MicroSD) à 14,99 €
Valable jusqu'au 26 Septembre

Amazon fait une promotion sur le Hub Aukey USB C 6 en 1 qui passe à 14,99 €. Ce Hub à brancher sur un port USB C vous permettra d'ajouter 3 ports USB 3.0, un lecteur de cartes mémoire SD et MicroSD ainsi qu'un port HDMI 4K à votre ordinateur portable ou votre smartphone.


> Voir l'offre
27,24 €Perceuse/visseuse sans fil TACKLIFE PCD03B 12V 2 bat. 2 Ah + malette à 27,24 € avec le code X7XXMREY
Valable jusqu'au 21 Septembre

Amazon propose la perceuse visseuse sans fil TACKLIFE PCD03B 12 V avec 2 batteries Li-ion 2000 mAh (avec chargeur rapide), 19 vitesses de couple, son mandrin auto-serrant, sa malette et ses 14 accessoires à 27,24 € seulement au lieu de 55 €. Pour profiter de cette offre, cochez la case Coupon Utiliser le coupon de réduction de 5% sur la page du produit et utilisez le code promo X7XXMREY sur la page de paiement. Le prix passera à 27,24 € sur la page de confirmation de commande. La livraison est gratuite.


> Voir l'offre
9,99 €Lot de 2 chargeurs double USB de voiture RAVPOWER 2 ports 24W à 9,99 €
Valable jusqu'au 22 Septembre

Amazon propose actuellement à le lot de 2 chargeurs double USB de voiture (via allume-cigare) RAVPOWER à 9,99 €. Ces chargeurs disposent d'une puissance de 24W et possèdent 2 ports USB permettant de charger simultanément et rapidement 2 appareils mobiles : tablettes, smartphone, ... grâce à leurs 2.4A par port. Ce chargeur est au format compact 


> Voir l'offre

Sujets relatifs
problème avec open office sous Windows 8
problème lecture fichier docx avec Open Office
problème d'impression avec open office
probleme open office est il compatible avec windows 8??
Probleme avec Open Office !
problème correcteur orthographe open office
Problème de "sélection" avec Open Office
open/libre office et les fichiers excel avec macro
Problème d'affichage Open Office Writer
problème impression open office writer
Plus de sujets relatifs à Problème macro open office
 > Tous les forums > Forum Bureautique