Enregistrer doc excel en pdf, avec nom variable + impression.

Fermé

Pdf
Macro

NCAUTOEM Messages postés 1 Date d'inscription jeudi 13 octobre 2016 Statut Membre Dernière intervention 13 octobre 2016 - Modifié par ^Abel^ le 13/10/2016 à 14:21
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 oct. 2016 à 14:47

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

A voir également:

Vba enregistrer sous pdf
Lire le coran en français pdf - Télécharger - Histoire & Religion
Enregistrer en pdf - Guide
Audacity enregistrer son pc - Guide
Save as pdf - Télécharger - Bureautique
Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
14 oct. 2016 à 14:47

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

Discussions similaires

Macro enregistrer PDF dans dossier spécifique

Bonjour à tous,

Après recherches, je me tourne vers vous ne trouvant pas réponses à mon problème.
J'ai un fichier Excel pour lequel j'ai créé une macro "Enregistrer en pdf" avec ce que j'ai trouvé sur internet.
Cependant cette macro s'enregistre de manière automatique dans \mes documents\ et j'aimerais qu'il s'enregistre dans le serveur de la boîte sous "X:\Analyses\Service\Gestion\BOITE A OUTILS\Opportunité"

Selon la macro ci-dessous, où dois-je inclure le fichier d'enregistrement et sous quelle forme ?

Sub PDF()
Worksheets("Analyse de l'opportunité").Range("A1:U49").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:...

Macro enregistrer en PDF

Bonjour

J'ai un modèle de document que j'utilise comme bon de commande.

J'aimerais ajouter a ce modèle un bouton qui m'enregistre ce document sous le format PDF dans un dossier spécifique avec un nom de fichier spécifique (correspondant a une cellule excel).

si vous avez une solution...

merci

macro excel envoi email avec piéce jointe

Bonjour , je suis nouveau stagiaire . Ma question est comment faire pour creer une macro excel qui permet d'envoyer automatiquement un mail (via outlook) avec classeur excel joint. La macro doit ouvrir la feuille excel à mettre à jour (adr de la personne ainsi que differents renseignements)

envoyer un fichier pdf par email

bonjour à tous j'aimerai envoyé le contenu d'un panier que j'ai transformé en pdf grâce a html2pdf a une adresse email de tel sorte qu'on puisse reçevoir les commandes effectuées sous format PDF. j'ai mis un lien pour que quand le client clique sur imprimer il peux imprimer sa commande s'il le souhaite maintenant je veux envoyé une copie de cette commande par email a une adresse que je vais definie. es que c'est possible si oui comment je peux m'y prendre ?

Enregistrement automatique en PDF au nom d'une cellule.

Bonjour,

Je suis totalement novice en VBA, et les seules macros utilisées jusqu'à présent étaient réalisées avec l'assistant auto de macro qui ne peut plus répondre à mes besoins.

Je cherche sur les différents forums depuis maintenant plusieurs jours la solution à mon problème... solutions que j'ai trouvée à de nombreuses reprises mais que je ne parviens pas à mettre en place... il y aurait il un génie serviable susceptible de m'aider ?

Voila, j'ai un contrat d'adhésion client sur l'onglet :(CONTRAT), (défini par une zone d'impression) que je souhaite enregistrer en PDF, dans un fichier donné, (C:\Users\welness\Documents\OLIVIER\ARCHIVES CONTRAT A...

Partage entre 2 PC windows 10

Bonjour,

je suis désespérée, je cherche à partager des fichiers entre les 2 PC de mon domicile. Un PC HP connecté à internet en cable ethernet (bbox fibre) et un ordinateur portable microsoft surface book connecté en wifi à la box.
Mes 2 PC ont un compte local. Sur mon portable j'ai bien trouvé où "rendre ce PC détectable" par contre cette option n'apparait pas dans le panneau de config de mon PC :(. Du coup j'ai bien accès à mes fichiers situés sur le portable à partir de mon ordinateur fixe mais pas l'inverse :(

Je ne suis pourtant pas blonde mais là je n'arrive vraiment pas à trouver la solution ...
Est ce que qu'une bonne âme...