Amélioration code macro

J

Jacou

XLDnaute Impliqué

• 4 Février 2012

• #2

Re : Amélioration code macro

Bonsoir,
essaie ce code :

Sub pdf_tableau()

' initialisation
i=1
boucle:
Range("A"&i).Select
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value > 0 And ActiveCell.Value< 4 Then
ActiveCell.Offset(0, 0).Range("A1:B6").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
ActiveCell.Offset(0, 1).Range("A"&i).Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
i = i + 10
GoTo boucle
End Sub

 

Dernière édition: 4 Février 2012

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 4 Février 2012

• #3

Re : Amélioration code macro

Merci Jacou,

Celà fonctionne parfaitement et j'ai pu l'adapter à mon fichier d'origine

Bonne soirée

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 4 Février 2012

• #4

Re : Amélioration code macro

Un petite demande supplémentaire.

Comment faire pour qu'à la fin du code fourni précédemment, après "GoTo Boucle" et avant "End Sub" je rajoute encore quelques lignes de code comme par exemple : range("A7").select

Quand j'ai essayé, la macro ne l’exécute pas.

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Février 2012

• #5

Re : Amélioration code macro

Bonjour,

pas tout suivi, mais en l'état tu ne pourras pas positionner d'instruction après "GoTo Boucle", car comme l'instruction l'indique, elle te renvoie systèmatique à l'étiquette "boucle".....

bonne journée
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Février 2012

• #6

Re : Amélioration code macro

Bonjour.
Au lieu de "Boucle" mettre "Do",
au lieu de "GoTo Boucle", "Loop"
et au lieu de "Exit Sub", "Exit Do".
En gros ...
Comme ça, d'autres instructions pourront être exécutées derrière la boucle.
Cordialement.
À +

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 5 Février 2012

• #7

Re : Amélioration code macro

Merci
je vais essayer les propositions
un peu plus tard et vous tiendrai au courant

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 5 Février 2012

• #8

Re : Amélioration code macro

Bonsoir,
un moyen assez simple est de mettre une étiquette derrière le "GoTo boucle" (boucle2 par exemple) et de remplacer le "Then Exit sub" par "GoTo boucle2"


Sub pdf_tableau()
' initialisation
i=1
boucle:
Range("A"&i).Select
If ActiveCell.Value = "" Then GoTo boucle2
If ActiveCell.Value > 0 And ActiveCell.Value< 4 Then
ActiveCell.Offset(0, 0).Range("A1:B6").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
ActiveCell.Offset(0, 1).Range("A"&i).Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End If
i = i + 10
GoTo boucle
boucle2:
Range("A7").select
....
End Sub

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 5 Février 2012

• #9

Re : Amélioration code macro

Bonsoir,

Je viens d'essayer les 2 solutions proposées et c'est parfait

Merci beaucoup

 

Vote positif 0 Vote négatif