Bonjour,
J'ai le problème suivant. Je veux créer à partir d'une feuille Excel plusieurs fichier PDF car à partir de cette feuille Excel je masque des colonnes et des lignes pour avoir un format que je veux envoyer en PDF et par la suivant ce que j'ai masqué je le rend à nouveau visible pour ensuite masqué à nouveau des colonnes et des lignes pour ensuite envoyer à nouveau en fichier PDF et ainsi de suite.....
J'utilise le code
Il fait le premier PDF mais lorsqu'il arrive au 2e le code qui suit s'exécute comme si le fichier PDF serait créer
Sheets(NomBureau).PrintOut copies:=1, Preview:=False, ActivePrinter:="Adobe PDF", PrintToFile:=True, Collate:=True, PrToFileName:=Nom_temp_PS
'
mypdfDist.FileToPDF Nom_temp_Perform_PS, Fichier_PDF, ""
Merci à l'avance
Neo
J'ai le problème suivant. Je veux créer à partir d'une feuille Excel plusieurs fichier PDF car à partir de cette feuille Excel je masque des colonnes et des lignes pour avoir un format que je veux envoyer en PDF et par la suivant ce que j'ai masqué je le rend à nouveau visible pour ensuite masqué à nouveau des colonnes et des lignes pour ensuite envoyer à nouveau en fichier PDF et ainsi de suite.....
J'utilise le code
Code:
Dim Fichier_PDF As String
Dim Nom_temp_PS As String
Dim mypdfDist As New PdfDistiller
For i = 1 to 5
If i = 1 Then
Il fait des actions comme masqué des colonnes et lignes
Else
If i = 2 Then
Il masque des colonnes et des lignes
Else
If i = 3 Then
actions de masqués des colonnes et des lignes
End if
End if
End if
Nom_temp_PS = Path & Fichier & ".ps"
Fichier_PDF = Path & Fichier & ".pdf"
Nom_temp_Log = Path & Fichier & ".log"
Sheets(NomBureau).PageSetup.PrintArea = Range("A1:AH" & FinLigneBureau).Address
Sheets(NomBureau).PrintOut copies:=1, Preview:=False, ActivePrinter:="Adobe PDF", PrintToFile:=True, Collate:=True, PrToFileName:=Nom_temp_PS
'
mypdfDist.FileToPDF Nom_temp_Perform_PS, Fichier_PDF, ""
'
'Calculate
'
Kill Nom_temp_PS
'
Kill Nom_temp_Log
Next
Il fait le premier PDF mais lorsqu'il arrive au 2e le code qui suit s'exécute comme si le fichier PDF serait créer
Sheets(NomBureau).PrintOut copies:=1, Preview:=False, ActivePrinter:="Adobe PDF", PrintToFile:=True, Collate:=True, PrToFileName:=Nom_temp_PS
'
mypdfDist.FileToPDF Nom_temp_Perform_PS, Fichier_PDF, ""
Merci à l'avance
Neo