Macro Enregistrer En PDF [Résolu] - Comment Ça Marche

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
• Applis & Sites
• Bureautique
• Excel

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 Afficher la suite Répondre (12) Partager

• Copier

A voir également:

• Macro pour enregistrer une feuille excel en pdf
• Vba export pdf - Meilleures réponses
• Vba enregistrer pdf dans dossier - Meilleures réponses
• Lire le coran en français pdf - Télécharger - Histoire & Religion
• Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
• Audacity enregistrer son pc - Guide
• Liste déroulante excel - Guide
• Enregistrer un fichier excel en pdf sur une seule page - Guide

Réponse 1 / 12 Meilleure réponse La meilleure réponse est la réponse qui a été validée par nos équipes. Re, Sub Export_PDF() Dim fichier As String Date_F = Format(Date, "ddmmmm_") 'adaptez le nom de la feuille With Worksheets("Feuil1") fichier = "\" & Date_F & .Range("B7") & ".pdf" Dossier = "C:\Users\Vincent\Documents\Commande DNA" Chemin = Dossier & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End WithEnd Sub reste a savoir quelle feuille vous voulez enregistrer en pdf Réponse 2 / 12 Re, pour le chemin, vous n'avez besoin que de Dossier et Fichier et pas besoin de rep Réponse 3 / 12 comme ceci? Ça ne marche pas mieux... Réponse 4 / 12 Merci mais je suis un peu largé!! Je souhaite que le nom du fichier soir sous la forme jourmois_nom (15novembre_tartenpion). La date du jour se trouve en cellule B3 (selon la formule aujourdhui) et le nom en B7 Le dossier se trouve dans mes documents sous le nom "commande DNA" si tu peux encore m'aider... merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question Réponse 5 / 12 Ne faut il pas un add-on ou plugin pour la concersion PDF? Quand je souhaite enregistrer, le format PDF ne m'est pas proposé. Réponse 6 / 12 Ca y est ca marche!!! Merci pour l'aide et la patience... Bonjour, J'ai aussi un problème d'erreur 5. La macro tourne pour les 6 premiers onglets sur 29 qu'elle enregistre en PDF puis bug, impossible de comprendre pourquoi ?! Si vous avez une idée pour m'aider je suis preneur. Sub Enregistrer_PDF() 'Chemin contiendra le chemin de la sélection et 'choix prendra la valeur 0 pour rechercher uniquement les dossiers et 'n'importe quel autre valeur (de 1 à 255) pour rechercher un dossier ou un fichier. 'choix repertoire Dim choix As Byte choix = 0 Chemin = ChoixDossierFichier(choix) If Chemin <> "" Then For X = 1 To Worksheets.Count NO = Worksheets(X).Name Worksheets(NO).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NO & " Commission " & Format(Date, "yyyy-mm") & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next X End If End Sub 'code trouve sur internet pour selection repertoire ou/et fichier Function ChoixDossierFichier(SelType As Byte) As String Dim objShell As Object, objFolder As Object Dim Chemin As String, Msg As String Dim FlagChoix As Long, NbPoint As Integer If SelType = 0 Then FlagChoix = &H1 Msg = "Selectionner un dossier :" Else FlagChoix = &H4000 Msg = "Selectionner un fichier :" End If Set objShell = CreateObject("Shell.Application") ' &h1 ' 1er paramètre toujours 0 (zéro). Il représente le handle de la fenêtre parent ' 2ème paramètre Titre de la boite, en dessous de la barre de titre ' 3ème paramètre options de BrowseForFolder ' 4ème paramètre Facultatif. Répertoire de début d'exploration On Error Resume Next Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix) 'Si l 'objet retourné est valide, on teste son contenu (item.title) 'Si on a sélectionné la racine d'une partition, il se compose du nom de la partition, ' suivi de sa lettre et ":" entre parenthèses NbPoint = InStr(objFolder.Title, ":") If NbPoint = 0 Then 'Sinon, il se compose du nom du dossier uniquement, sans le chemin précédent 'On récupère ce chemin à l'aide des propriété et méthode ParentFolder.ParseName Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "" Else 'si racine on récupère la lettre du lecteur et les 2 points Chemin = Mid(objFolder.Title, NbPoint - 1, 2) End If ChoixDossierFichier = Chemin End Function Merci d'avance Si ça peut aider quelqu'un j'ai résolu mon problème qui venait du fait que j'avais des onglets cachés qui stoppaient le fonctionnement de la macro. Bonsoir, Moi j'aurais besoin de la même base, sauf qu'il faudrait que cela ne concerne que la feuille active et non les autres... Comment faire? Réponse 7 / 12 Re, le chemin des "Mes Documents" n'est pas le meme suivant l'OS, a vous de trouver ce chemin. Dans l'exemple, c'est la feuil1 qui est sauvegardee, vous c'est ???? Sub Export_PDF() Dim fichier As String Date_F = Format(Date, "ddmmmm_") 'adaptez le nom de la feuille With Worksheets("Feuil1") fichier = "\" & Date_F & .Range("B7") & ".pdf" 'pensez a ecrire le chemin Dossier = "\commande DNA" 'Mes Documents a adapter a votre PC rep = "C:\Users\SWF" Chemin = rep & Dossier & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End WithEnd Sub Réponse 8 / 12 j'obtient erreur d'execution 5 argument ou appel de procedure incorect debogage: (partie en jaune) .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Réponse 9 / 12 j'ai Excel 2007. Voila une capture du message. Réponse 10 / 12 Bonjour, un exemple: Sub Export_PDF() Dim fichier As String 'adaptez le nom de la feuille With Worksheets("Feuil1") fichier = "Devis n°" & .Range("B12") & .Range("B13") & ".pdf" 'pensez a ecrire le chemin Chemin = rep & "\" & fichier .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End WithEnd Sub Réponse 11 / 12 Re, chez moi ca marche, avez-vous adapte le chemin du fichier ?????? quel excel avez-vous? Réponse 12 / 12 Reprenons, J'ai progresser en installant le plug in et avec l'enregistreur de macro. il me reste a ce que le fichier se nome seul selon la cellule K4 pouvez vous m'inserer la fonction? Sub pdf() ' ' pdf Macro ' ' ChDir "C:\Users\Vincent\Documents\Commande DNA" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Vincent\Documents\Commande DNA\Modele commande.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub Afficher toute la discussion

Votre réponse

Discussions similaires

VBA Excel Copie feuille dans autre classeur VBA : Copier valeur de cellules dans une autre feuilles Réaliser une macro VBA permettant d'envoyer un classeur Excel par mail Méthode find dans VBA - Recherche de données sous Excel [VBA/EXCEL] :Sauver uniquement une feuille ? VBA Executer une macro a l'ouverture de excel 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

Questions et réponses sur Excel

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.