> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
32,72 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme 256 Go (150 Mo/s) à 32,72 € livrée
Valable jusqu'au 07 Août

Amazon Allemagne fait une promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme 256 Go qui passe à 28,22 €. Comptez 4,50 € pour la livraison en France soit un total de 32,72 € livrée. Cette carte mémoire offre des vitesses jusqu'à 150 Mo/s et est idéale pour les caméras et appareils photo HD. On la trouve ailleurs à partir de 55 €.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
-20%Jusqu'à 20% de remise en Superpoints sur Rakuten
Valable jusqu'au 04 Août

Jusqu'à ce soir, Rakuten (ex Priceminister) vous offre jusqu'à 20% de remise sur tous vos achats en Superpoints selon votre statut. Sachant que des boutiques françaises comme BoulangerUbaldi ou encore Samsung vendent sur Rakuten aux mêmes conditions que dans leurs magasins, cela peut être intéressant. Vous pourrez utiliser ces points lors de vos futurs achats. 

Notez que si vous n'avez jamais commandé sur Rakuten, cette offre de parrainage vous permettra de déduire 10 € de votre commande (à partir de 20 € d'achat).


> Voir l'offre
299,99 €Ecran PC 27 pouces Gigabyte M27Q (QHD, IPS, 0.5 ms, 170 Hz) à 299,99 €
Valable jusqu'au 05 Août

RueDuCommerce fait une promotion sur l'écran PC 27 pouces Gigabyte M27Q qui passe à 299,99 € au lieu de 399 €. Cet écran possède une dalle 27 pouces QHD (2560x1440) à 0.5 ms et à 170 Hz (FreeSync Premium et Adaptive Sync). Son pied est réglable en hauteur et en inclinaison.


> 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