Bonjour le Forum,
Je vous écris ce message car malgré d’intenses recherches sur le net et en testant avec l’enregistreur de macros, je n’ai pas encore trouvé la solution à mon problème
Dans un fichier Excel destiné à établir des bons de commande sur base d’un devis, hormis une feuille de calcul d’élaboration du bon (Onglet « Bon de commande ») qui ne pose pas de problème, j’aimerai intégrer au moyen d’une macro, dans un second onglet (onglet «Annexe PDF »), le document PDF contenant le devis (celui-ci peut éventuellement comprendre plusieurs pages) aux fins de consultation, après l’avoir sélectionné parmi l’arborescence du PC.
En vue du traitement ultérieur du bon de commande, les deux onglets devront pouvoir être imprimés dans leur entièreté et c’est là que le bât blesse … Tous les tests effectués me ramènent toujours au même problème : seule la 1ère page du PDF apparaît à l’écran et à l’impression. En cliquant dessus, l’affichage à l’écran de l’ensemble du document s’effectue correctement mais pour l’impression, je n’obtiens jamais que la 1ère page.
Cette application devrait pouvoir tourner sous XL2003 ou 2007 mais l'ordinateur que j'utilise pour la créer tourne en 2007. Je chipote en VBA mais je suis loin d'être un spécialiste
Merci d’avance aux cerveaux bien faits (pas comme le mien) qui voudront bien se pencher sur ma question.
Je vous écris ce message car malgré d’intenses recherches sur le net et en testant avec l’enregistreur de macros, je n’ai pas encore trouvé la solution à mon problème
Dans un fichier Excel destiné à établir des bons de commande sur base d’un devis, hormis une feuille de calcul d’élaboration du bon (Onglet « Bon de commande ») qui ne pose pas de problème, j’aimerai intégrer au moyen d’une macro, dans un second onglet (onglet «Annexe PDF »), le document PDF contenant le devis (celui-ci peut éventuellement comprendre plusieurs pages) aux fins de consultation, après l’avoir sélectionné parmi l’arborescence du PC.
En vue du traitement ultérieur du bon de commande, les deux onglets devront pouvoir être imprimés dans leur entièreté et c’est là que le bât blesse … Tous les tests effectués me ramènent toujours au même problème : seule la 1ère page du PDF apparaît à l’écran et à l’impression. En cliquant dessus, l’affichage à l’écran de l’ensemble du document s’effectue correctement mais pour l’impression, je n’obtiens jamais que la 1ère page.
Code:
Private Sub CommandButton2_Click()
' Sélection de la feuille et de la case de départ
Sheets("Annexe PDF").Select
Range("A1").Select
' Effacement de la grille
ActiveWindow.DisplayGridlines = False
' Intégration du fichier PDF
ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.pdfxml.1", Link:=False, DisplayAsIcon:=False).Activate
End Sub
Cette application devrait pouvoir tourner sous XL2003 ou 2007 mais l'ordinateur que j'utilise pour la créer tourne en 2007. Je chipote en VBA mais je suis loin d'être un spécialiste
Merci d’avance aux cerveaux bien faits (pas comme le mien) qui voudront bien se pencher sur ma question.