On m'a transmis un fichier et la méthode "ExportAsFixedFormat"
semble être limitée à 1 seule page de la feuille de calcul. Peut-elle
imprimer plus de pages si la feuille en contient davantage?
Si oui, comment procédez-vous?
P.S. Je sais, on peut utiliser la commande "imprimer" du menu fichier...
mais ce n'est pas là la question.
Bonjour, Effectivement, c'est bon pour moi. Cordialement. Daniel
Bonjour, L'un de vous a-t-il testé le code que j'avais proposé. Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive... Cordialement. -- LSteph Le lundi 4 juillet 2016 03:25:52 UTC+2, isabelle a écrit :
bonjour Denis, si PDFCreator est installé ou autre, une solution serait d'imprimer les onglets Sub Impression_PDFCreator() Dim I As Integer Dim MonImprimante As String Dim Nom As String MonImprimante = ActivePrinter 'récupérer imprimante active On Error Resume Next For I = 0 To 9 Nom = "PDFCreator sur ne0" & I & ":" Application.ActivePrinter = Nom If UCase(ActivePrinter) = UCase(Nom) Then Exit For Next I On Error GoTo 0 If UCase(ActivePrinter) = UCase(MonImprimante) Then MsgBox "Imprimante non trouvée" & vbCr & Nom, Title:="Impression annulée" Else Sheets.PrintOut ActivePrinter = MonImprimante 'remettre imprimante active End If End Sub isabelle Le 2016-07-03 à 14:56, MichD a écrit :
J'enregistre bien le nombre de feuilles sélectionnées (ActiveWindow.SelectedSheets.Count). Daniel
C'est justement où le bât blesse. En supposant que l'usager a 2 feuilles de calcul dans son classeur et que chaque feuille contient plusieurs pages, lorsque ce dernier utilise la propriété "To" comme ceci to:¬tiveWindow.SelectedSheets.Count de la méthode "ExportAsFixedFormat",le nombre de pages imprimé dans le fichier "PDF" est de 2 et non le nombre total de pages que devrait contenir le fichier "PDF". En ne définissant pas ce paramètre, toutes les pages des 2 feuilles sont incluses dans le fichier "PDF", ce que voulait l'usager! MichD
Bonjour,
Effectivement, c'est bon pour moi.
Cordialement.
Daniel
Bonjour,
L'un de vous a-t-il testé le code que j'avais proposé.
Il me semble que cela mets toutes les pages dans le pdf quoiqu'il
arrive...
Cordialement.
--
LSteph
Le lundi 4 juillet 2016 03:25:52 UTC+2, isabelle a écrit :
bonjour Denis,
si PDFCreator est installé ou autre, une solution serait d'imprimer
les onglets
Sub Impression_PDFCreator()
Dim I As Integer
Dim MonImprimante As String
Dim Nom As String
MonImprimante = ActivePrinter 'récupérer imprimante active
On Error Resume Next
For I = 0 To 9
Nom = "PDFCreator sur ne0" & I & ":"
Application.ActivePrinter = Nom
If UCase(ActivePrinter) = UCase(Nom) Then Exit For
Next I
On Error GoTo 0
If UCase(ActivePrinter) = UCase(MonImprimante) Then
MsgBox "Imprimante non trouvée" & vbCr & Nom,
Title:="Impression annulée" Else
Sheets.PrintOut
ActivePrinter = MonImprimante 'remettre imprimante active
End If
End Sub
isabelle
Le 2016-07-03 à 14:56, MichD a écrit :
J'enregistre bien le nombre de feuilles sélectionnées
(ActiveWindow.SelectedSheets.Count).
Daniel
C'est justement où le bât blesse. En supposant que l'usager a 2
feuilles de calcul dans son classeur et que chaque feuille contient
plusieurs pages, lorsque ce dernier utilise la propriété "To" comme
ceci to:¬tiveWindow.SelectedSheets.Count de la méthode
"ExportAsFixedFormat",le nombre de pages imprimé dans le fichier
"PDF" est de 2 et non le nombre total de pages que devrait contenir
le fichier "PDF". En ne définissant pas ce paramètre, toutes les
pages des 2 feuilles sont incluses dans le fichier "PDF", ce que
voulait l'usager!
Bonjour, Effectivement, c'est bon pour moi. Cordialement. Daniel
Bonjour, L'un de vous a-t-il testé le code que j'avais proposé. Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive... Cordialement. -- LSteph Le lundi 4 juillet 2016 03:25:52 UTC+2, isabelle a écrit :
bonjour Denis, si PDFCreator est installé ou autre, une solution serait d'imprimer les onglets Sub Impression_PDFCreator() Dim I As Integer Dim MonImprimante As String Dim Nom As String MonImprimante = ActivePrinter 'récupérer imprimante active On Error Resume Next For I = 0 To 9 Nom = "PDFCreator sur ne0" & I & ":" Application.ActivePrinter = Nom If UCase(ActivePrinter) = UCase(Nom) Then Exit For Next I On Error GoTo 0 If UCase(ActivePrinter) = UCase(MonImprimante) Then MsgBox "Imprimante non trouvée" & vbCr & Nom, Title:="Impression annulée" Else Sheets.PrintOut ActivePrinter = MonImprimante 'remettre imprimante active End If End Sub isabelle Le 2016-07-03 à 14:56, MichD a écrit :
J'enregistre bien le nombre de feuilles sélectionnées (ActiveWindow.SelectedSheets.Count). Daniel
C'est justement où le bât blesse. En supposant que l'usager a 2 feuilles de calcul dans son classeur et que chaque feuille contient plusieurs pages, lorsque ce dernier utilise la propriété "To" comme ceci to:¬tiveWindow.SelectedSheets.Count de la méthode "ExportAsFixedFormat",le nombre de pages imprimé dans le fichier "PDF" est de 2 et non le nombre total de pages que devrait contenir le fichier "PDF". En ne définissant pas ce paramètre, toutes les pages des 2 feuilles sont incluses dans le fichier "PDF", ce que voulait l'usager! MichD
MichD
Bonjour LSteph, Ton code omet le paramètre "To" de la méthode et c'est l'explication que je donnais comme explication en me répondant à moi-même dès le deuxième message sur ce fil. Cela fait longtemps que le problème que j'ai soumis a trouvé une réponse satisfaisante pour moi. Je dois avoir un peu de difficulté avec mon français! ;-)) Merci quand même pour toutes vos suggestions! MichD
Bonjour LSteph,
Ton code omet le paramètre "To" de la méthode et c'est l'explication que
je donnais comme explication en me répondant à moi-même dès le deuxième
message sur ce fil. Cela fait longtemps que le problème que j'ai soumis
a trouvé une réponse satisfaisante pour moi. Je dois avoir un peu de
difficulté avec mon français! ;-))
Bonjour LSteph, Ton code omet le paramètre "To" de la méthode et c'est l'explication que je donnais comme explication en me répondant à moi-même dès le deuxième message sur ce fil. Cela fait longtemps que le problème que j'ai soumis a trouvé une réponse satisfaisante pour moi. Je dois avoir un peu de difficulté avec mon français! ;-)) Merci quand même pour toutes vos suggestions! MichD
salut LSteph, t'a proposition Sheets.Select 'une fois n'est pas coutume ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:Classeur4.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:úlse, OpenAfterPublish:úlse fonctionne parfaitement ;-) merci à toi ! isabelle Le 2016-07-04 à 03:33, LSteph a écrit :
Bonjour, L'un de vous a-t-il testé le code que j'avais proposé. Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive... Cordialement. -- LSteph
salut LSteph,
t'a proposition
Sheets.Select 'une fois n'est pas coutume
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:Classeur4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
fonctionne parfaitement ;-)
merci à toi !
isabelle
Le 2016-07-04 à 03:33, LSteph a écrit :
Bonjour,
L'un de vous a-t-il testé le code que j'avais proposé.
Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive...
salut LSteph, t'a proposition Sheets.Select 'une fois n'est pas coutume ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:Classeur4.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:úlse, OpenAfterPublish:úlse fonctionne parfaitement ;-) merci à toi ! isabelle Le 2016-07-04 à 03:33, LSteph a écrit :
Bonjour, L'un de vous a-t-il testé le code que j'avais proposé. Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive... Cordialement. -- LSteph
DanielCo
Bonjour, Il ne faut pas être fatigué, et ne pa lire en travers comme je viens de le faire :
salut LSteph, t'a proposition une fois n'est pas coutume fonctionne parfaitement ;-)
Cordialement. Daniel
salut LSteph, t'a proposition Sheets.Select 'une fois n'est pas coutume ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:Classeur4.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:úlse, OpenAfterPublish:úlse fonctionne parfaitement ;-) merci à toi ! isabelle Le 2016-07-04 à 03:33, LSteph a écrit :
Bonjour, L'un de vous a-t-il testé le code que j'avais proposé. Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive... Cordialement. -- LSteph
Bonjour,
Il ne faut pas être fatigué, et ne pa lire en travers comme je viens de
le faire :
salut LSteph,
t'a proposition
une fois n'est pas coutume
fonctionne parfaitement ;-)
Cordialement.
Daniel
salut LSteph,
t'a proposition
Sheets.Select 'une fois n'est pas coutume
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:Classeur4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
fonctionne parfaitement ;-)
merci à toi !
isabelle
Le 2016-07-04 à 03:33, LSteph a écrit :
Bonjour,
L'un de vous a-t-il testé le code que j'avais proposé.
Il me semble que cela mets toutes les pages dans le pdf quoiqu'il
arrive...
Bonjour, Il ne faut pas être fatigué, et ne pa lire en travers comme je viens de le faire :
salut LSteph, t'a proposition une fois n'est pas coutume fonctionne parfaitement ;-)
Cordialement. Daniel
salut LSteph, t'a proposition Sheets.Select 'une fois n'est pas coutume ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:Classeur4.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:úlse, OpenAfterPublish:úlse fonctionne parfaitement ;-) merci à toi ! isabelle Le 2016-07-04 à 03:33, LSteph a écrit :
Bonjour, L'un de vous a-t-il testé le code que j'avais proposé. Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive... Cordialement. -- LSteph
isabelle
il faut être select ;-) isabelle Le 2016-07-10 à 09:45, DanielCo a écrit :
Bonjour, Il ne faut pas être fatigué, et ne pa lire en travers comme je viens de le faire :
salut LSteph, t'a proposition une fois n'est pas coutume fonctionne parfaitement ;-)
Cordialement. Daniel
salut LSteph, t'a proposition Sheets.Select 'une fois n'est pas coutume ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:Classeur4.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:úlse, OpenAfterPublish:úlse fonctionne parfaitement ;-) merci à toi ! isabelle
il faut être select ;-)
isabelle
Le 2016-07-10 à 09:45, DanielCo a écrit :
Bonjour,
Il ne faut pas être fatigué, et ne pa lire en travers comme je viens de le faire :
salut LSteph,
t'a proposition
une fois n'est pas coutume
fonctionne parfaitement ;-)
Cordialement.
Daniel
salut LSteph,
t'a proposition
Sheets.Select 'une fois n'est pas coutume
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:Classeur4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
fonctionne parfaitement ;-)
merci à toi !
isabelle
