altinea
XLDnaute Accro
Bonjour,
je souhaiterai savoir si quelqu'un peut m'aider, dans cette macro.
Elle a pour but d'identifier une colonne dans laquelle si le chiffre 3 est présent alors elle imprime un document et une fois imprimé identifie l'impression dans une autre colonne en mettant un I.
L'impression se fait à l'unité par fichier pdf ou impression directe sur imprimante. Sur l'imprimante il m'imprime les documents à la suite les un des autres Lorsque je selectionne une imprimante "pdfccreator" par exemple, il m'imprime dans un fichier pdf, un fichier par item.
Ce que je souhaiterai c'est lors de l'impression en pdf, pouvoir imprimer dans un seul fichier.Au lieu d'avoir 10 fichier en avoir un seul avec les 10 documents.
voici le code
Sub Bouton1_Cliquer()
Dim Cel As Range, WS1 As Worksheet, WS2 As Worksheet, DerLig As Integer, i As Integer
Set WS1 = Worksheets("Formations PSST")
Set WS2 = Worksheets("Base habilitation")
DerLig = WS1.Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To DerLig
' si le nom est imprimable et non imprimé
If WS1.Range("AV" & i) = 3 And WS1.Range("AW" & i) <> "I" Then
WS1.Range("AW" & i) = "I" ' ecriture I en col AT
WS2.Range("Y3").Value = WS1.Cells(i, 1).Value
WS2.PageSetup.PrintArea = "A1:Z36"
WS2.PrintOut
'WS2.PrintPreview
End If
Next
'MsgBox "Les fichiers pdf ont été édités avec succès dans le dossier suivant : " & ThisWorkbook.Path
End Sub
merci pour votre aide
je souhaiterai savoir si quelqu'un peut m'aider, dans cette macro.
Elle a pour but d'identifier une colonne dans laquelle si le chiffre 3 est présent alors elle imprime un document et une fois imprimé identifie l'impression dans une autre colonne en mettant un I.
L'impression se fait à l'unité par fichier pdf ou impression directe sur imprimante. Sur l'imprimante il m'imprime les documents à la suite les un des autres Lorsque je selectionne une imprimante "pdfccreator" par exemple, il m'imprime dans un fichier pdf, un fichier par item.
Ce que je souhaiterai c'est lors de l'impression en pdf, pouvoir imprimer dans un seul fichier.Au lieu d'avoir 10 fichier en avoir un seul avec les 10 documents.
voici le code
Sub Bouton1_Cliquer()
Dim Cel As Range, WS1 As Worksheet, WS2 As Worksheet, DerLig As Integer, i As Integer
Set WS1 = Worksheets("Formations PSST")
Set WS2 = Worksheets("Base habilitation")
DerLig = WS1.Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To DerLig
' si le nom est imprimable et non imprimé
If WS1.Range("AV" & i) = 3 And WS1.Range("AW" & i) <> "I" Then
WS1.Range("AW" & i) = "I" ' ecriture I en col AT
WS2.Range("Y3").Value = WS1.Cells(i, 1).Value
WS2.PageSetup.PrintArea = "A1:Z36"
WS2.PrintOut
'WS2.PrintPreview
End If
Next
'MsgBox "Les fichiers pdf ont été édités avec succès dans le dossier suivant : " & ThisWorkbook.Path
End Sub
merci pour votre aide