Bonjour,
Je débute le VBA et j'ai quelques soucis pour compiler deux macros.
Mon objectif: imprimer sous PDF en automatique avec enregistrement auto. Condition: si des cellules de la colonne F sont égales à zero, alors les lignes correspondantes sont masquées à l'impression.
Voici le code d'impresion en PDF avec enregistrement auto:
Ensuite, je cherche à impléménter le code suivant introduisant la condition dans le code cité au-dessus:
Ce dernier code a été repris sur le net mais je n'arrive pas à le modifier.
Toute aide sera la bienvenue.
Je débute le VBA et j'ai quelques soucis pour compiler deux macros.
Mon objectif: imprimer sous PDF en automatique avec enregistrement auto. Condition: si des cellules de la colonne F sont égales à zero, alors les lignes correspondantes sont masquées à l'impression.
Voici le code d'impresion en PDF avec enregistrement auto:
Code:
Sub test()
Dim a As Worksheet
Dim sc As Workbook
Dim nouveauNom
Application.ScreenUpdating = False
Set a = ActiveSheet
nouveauNom = Range("B1") & " " & Range("D10")
Set sc = Workbooks.Add(xlWBATWorksheet)
sc.SaveAs (nouveauNom & ".xls")
a.Copy Before:=sc.Sheets(1)
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Workbooks(nouveauNom & ".xls").Close savechanges:=False
Kill nouveauNom & ".xls"
Application.ScreenUpdating = True
End SubEnsuite, je cherche à impléménter le code suivant introduisant la condition dans le code cité au-dessus:
Code:
Sub ImpressionDynamiqueFormules2()
ActiveWindow.DisplayZeros = False
lignefin = [A:A].Find("", SearchOrder:=xlByRows, SearchDirection:=xlNext, LookAt:=xlWhole, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin - 1, 2)).Address
ActiveWindow.SelectedSheets.PrintPreview
End SubCe dernier code a été repris sur le net mais je n'arrive pas à le modifier.
Toute aide sera la bienvenue.