Discussion :

[patmicro]

Bonjour à tous : Dans un fichier Excel, Je cherche comment procéder pour imprimer la page 2 de la feuille active à partir d’une macro et d’un bouton lié à cette macro ? Je précise que la page 2 cette feuille est masquée volontairement par macro
Pour cela j’utilise PDFCreator. J’ai fait le test d’impression manuellement. La page 2 s’imprime bien. En même temps j’aurais aimé que le fichier ainsi créé s’incorpore directement dans un nouveau message de la messagerie Outlook 2010. Le but est d’automatiser cela. J’ai bien cherché sur le net mais je n’ai pas trouvé de solution correspondant à mon souci.
Avec le bouton enregistrer une macro, J’ai essayé également avec la fonction PDF d’Excel, puis sous type je sélectionne PDF puis dans les options je sélectionne la page à imprimer. Jusqu’ici tout vas bien. Là où cela se corse c’est pour définir une variable pour nommer le PDF puisque le nom doit être différent
Pour nommer le nom du fichier Excel, j’ai procédé comme suit : Le nom du fichier de base nommé Devis puis fait référence à 2 cellules B3 et B7 dont voici la ligne de code.
ActiveWorkbook.SaveAs Filename:="H:\Devis\Devis " & Range("B3").Value & " " & Range("B7").Value & ".xlsm" qui devient par ex Devis Dupont jean 1030503 (Dupont Jean 1030503 est variable)
J’aimerais éventuellement avoir 2 variantes soit avec incorporation dans un nouveau message Outlook et sans
Je préférerais utiliser la fonction PDF d’Excel plutôt que PDFCréator
Je précise que je ne suis pas un pro de la programmation
J'espère avoir été suffisamment explicite
Quelqu’un aurait ’il la solution
Par avance merci pour votre aide.

[patricktoulon]

bonjour l'enregistreur tu connais?????
puisque tu a 2010 alors tu dois avoir save pdf en natif
et donc si tu avais essayé tu aurais obtenu un code qui après avoir été nettoyé tu aurais obtenu ceci:
exemple:
regarde bien les "2" dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
chemin = "C:\Users\polux\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & "\nomfichier.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=2, To:=2, OpenAfterPublish:=False

pour mettre ce fichier obtenu en pièce jointe (lotus,Outlook application,,Outlook.com,CDO etc......) tu a des dizaines d'exemples sur le forum

en espérant que ta recherche soit fructueuse ce dont je n'ai aucun doute et que surtout elle ne t'ai pas trop fatigué

[kiki29]

Salut, il serait bon de commencer par : Excel et l'enregistreur de macro

[patmicro]

Bonsoir Patrick: Merci pour ta réponse c'est exactement ce que j'avais effectué. Le souci est qu'à la base c'est un fichier modèle qui est utilisé et est nommé Devis et le nom de la feuille porte le nom devis Base. Donc les macros sont stockées dans ce fichier modèle. Donc à l'enregistrement de la macro le nom du chemin prend "Devis base".
Lors de l'enregistrement le fichier modèle prend un nom différend ex "Devis Fleury Eric 1033786" donc variable à chaque nouvel enregistrement. c'est donc sur ce point que je bloque,pour que le nom soit adapté dans la fenêtre d'enregistrement. voir capture d'écran ci-joint



Par avance merci pour ton aide.

[patricktoulon]

j'avoue que je ne comprends pas ta remarque
la version que je t'ai donné tu peut modifier le chemin ou le nom a ta guise
non vraiment je comprends pas ton soucis

chemin=c:\ balablabla
et dans save tu met chemin et a la place de nomfichier

exemple chemin &"\" & sheets(1).name &".pdf"