|
|
|
Problème macro open office
| ||||||||
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é | ||||||||
|
| ||||||||
Nouvel astucien | je pense avoir trouver la solution, mettre toute les macros dans le même module. | |||||||
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 | |||||||
Astucien  | salut forum dédié à OOo en français et le sous forum pour les macros | |||||||
| ||||||||
Les bons plans du moment PC Astuces | Tous les Bons Plans | ||||||||||||||||||
| |||||||||||||||||||
| Forum PC Astuces | © 1997-2023 Webastuces |  |
À LA UNE
PRATIQUE
LOGITHÈQUE
TABLETTE ET MOBILE
BONS PLANS
FONDS D'ÉCRAN
JEUX
FORUM
