Enregistrer Doc Excel En Pdf, Avec Nom Variable + Impression.

Informatique Mobile Applis & Sites Image & Son Maison Securité Téléchargement Forum Bureautique Développement Internet Jeux vidéo Matériel Réseau Vidéo/TV Virus/Sécurité Emploi

• Forum
• Informatique & Design
• Programmation
• VB / VBA

Bonjour, Je souhaite pouvoir enregistrer dans un dossier(chemin C:\PDF\) une feuille d'un classeur excel en la nommant automatiquement (Nom de l'onglet + Infos se trouvant dans cellules AG5 & AH5 & AI5) puis sortie imprimante J'arrive à aller jusqu'à l'enregistrement dans le dossier PDF mais ensuite je bloque pour le nom en automatique puis impression sortie imprimante. Quelqu'un peut-il me trouver une solution ou une piste. D'avance Merci Afficher la suite Répondre (1) Partager

• Copier

A voir également:

• Vba imprimer en pdf
• Lire le coran en français pdf - Télécharger - Histoire & Religion
• Imprimer en a5 - Guide
• Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
• Save as pdf office 2007 - Télécharger - Bureautique
• Texte de chanson gratuit pdf - Télécharger - Vie quotidienne

Réponse 1 / 1 Bonjour, en vba faire Alt F11 pour accéder à l’éditeur, ensuite en haut à gauche sélectionner la feuille concernée. Mettre ce code dans le module de la feuille: Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim nom As String 'nom de l'onglet Dim chemin As String 'chemin du dossier d'enregistrement nom = ActiveSheet.Name chemin = ActiveWorkbook.Path & "\" & nom & "_" & Range("G5") & "_" & Range("H5") & "_" & Range("I5") & ".pdf" 'remplacer ActiveWorkbook.Path par le chemin du dossier et adapter les cellules If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'cellule A1 à adapter pour lancer l'enregistrement 'enregistrement en PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False ThisWorkbook.FollowHyperlink chemin 'ouvre le pdf pour l'impression End If End Sub

Votre réponse

Discussions similaires

Macro enregistrer PDF dans dossier spécifique Macro : envoyer PDF en PJ Outlook macro excel-PJ en PDF Envoi mail automatique avec fichier joint PDF Faire une macro enregistrement automatique fichier word en pdf macro excel envoi Pièce jointe en pdf Devenez membre en quelques clics

• Connectez-vous simplement avec ceux qui partagent vos intérêts
• Suivez vos discussions facilement et obtenez plus de réponses
• Mettez en avant votre expertise et aidez les autres membres
• Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

Newsletters

Newsletters Actu du jour Voir un exemple

Les informations recueillies sont destinées à CCM BENCHMARK GROUP pour vous assurer l'envoi de votre newsletter.

De plus, lors de votre inscription sur ce formulaire, des données personnelles (dont votre adresse email sous forme hachée et pseudonymisée) peuvent être partagées avec nos partenaires Data à des fins de personnalisation de la publicité et des contenus qui vous sont proposés. Vous trouverez le détail de ces informations et pouvez vous y opposer à tout moment.

Plus généralement, vous bénéficiez d'un droit d'accès et de rectification de vos données personnelles, ainsi que celui d'en demander l'effacement dans les limites prévues par la loi.

Vous pouvez également à tout moment revoir vos options en matière de prospection commerciale et ciblage. En savoir plus sur notre politique de confidentialité ou notre politique Cookies.