× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Créer une macro convertir en PDF
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jtaillon
  Posté le 20/09/2010 @ 16:43 
Aller en bas de la page 
Petite astucienne

Bonjour,

J'aimerais créer une macro (bouton) afin de sauvegarder en pdf et dans un dossier spécifique.

Je ne parviens pas à trouver comment faire pour le mettre dans un dossier spécifique.
Par contre, je suis capable de créer un bouton afin de le convertir en pdf ayant le même nom dans un dossier.

Voici le code que j'ai inséré:

Sub pdf()
ThisWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:="C:\DMPinc\Bureautique\soumission.pdf", _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Donc, j'aimerais créer un bouton (macro) qui servirait à convertir le document en cour en un fichier pdf que je pourrai renommé et le placer dans un dossier désiré.

Est-ce possible de faire ça?

Si oui, est-ce que vous pouvez m'aider, svp?

Merci!

Publicité
galopin01
 Posté le 21/09/2010 à 00:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Le problème est un peu différent si ton répertoire de destination est immuable ou si tu dois pouvoir choisir à chaque fois un répertoire de destination différent...

Si le répertoire de destination est toujours le même YAKA enregistrer une macro (ouvrir un fichier par exemple) pour récupérer le chemin du répertoire de destination.

Ensuite tu récupères ce chemin :

Chemin = "C:\DMPinc\Bureautique\PDF\" 'par exemple

PDFFile = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".pdf"

ensuite tu remplaces :

Sub pdf()
Chemin = "C:\DMPinc\Bureautique\PDF\" 'par exemple
PDFFile = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".pdf"

ThisWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:= Chemin & PDFFile, _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Ok ?

A+



Modifié par galopin01 le 21/09/2010 00:49
Rased57
 Posté le 06/10/2010 à 14:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonjour,

J'ai été extèmement surpris de la réactivité de ce forum que j'ai découvert il y a peu et surtout, Merci à Galopin 01 pour les éléments fournis.

Je suis plutot "Novice", voire "Bidouilleur!!!", et je me trouve confronter à une difficulté insurmontable pour moi.

Exemple :

Une feuille Excel comprend un document Type "Facture", et est configuré pour s'imprimer sur 12 pages (si on lance l'impression par Fichier/Enregistrer sous/ PDF ou XPS).

En utilant l'enregistreur de macro et SURTOUT avec votre aide, j'arrive à une macro qui fonctionne mais qui m'imprime les douzes pages dans un même dossier et sous un seul NOM.

Voici la Macro :

==============================================================================

Sub ExportPDF()

Dim Dossier$, Chemin$, PdfFile$

Dossier = "C:\Users\AAA\Documents\Mes Docs Perso\Dossiers AAA\" & [B8].Value

If Dir(Dossier, 16) = "" Then MkDir Dossier

Chemin = Dossier & "\"

Jour = Format(Now(), "yyyy-mm-dd")

PdfFile = [B7].Value & "_" & Jour & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Chemin & PdfFile, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

========================================================================================

Je souhaiterais avoir le choix (par une boite de dialogue) de décider quelles pages doivent être imprimées/exportées ou pas,

et faire en sorte que exportation se fasse vers les dossiers respectifs (Variable en fonction de B8) et que chaque page soit un fichier PDF distinct ( de NOM variable B7)

La cerise sur le gateau serait que le fichier PDF s'ouvre automatiquement après sa création (pour avoir un appercu)

J'espère que j'ai été explicite. Sinon, je suis près à revoir ma copie.

Merci d'avance

galopin01
 Posté le 06/10/2010 à 18:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Là on pourra pas faire à ta place... ça passe par l'enregistrement d'une macro de mise en page, de définition des zones d'impression

Ces macros sont extrèmement complexes à manipuler et longues. Si de plus tu veux avoir le choix d'un tas de truc, avec des variables, ça ne simplifie pas le problème.

A mon avis ce problème n'est guère soluble sur un forum. Même en se déplaçant chez toi il y aurait surement plusieurs heures (jours ?) de boulot avant d'arriver à un résultat satisfaisant, alors via le forum, je vois pas bien comment on fait...

Déjà on connait pas ta config, on sait même pas dans quelle région tu habites...

Mon avis est que ça aurait plus de chance d'aboutir si tu trouvais un voisin compréhensif (et très doué en VBA )

A+

Rased57
 Posté le 06/10/2010 à 23:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Piger et merci pour le conseil.

Proverbe du soir : "Quand on sait pas faire plus..., On fait ce que l'on sait faire... et pas plus..." (dixit Bebert)

Plus qu'une chose à faire : Je vais réfléchir et contourner le problème.

Merci Galopin01.

++

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
-10€ | -20€10 € dès 59 € d'achat, 20 € dès 149 € chez Rakuten
Valable jusqu'au 25 Octobre

Rakuten offre aujourd'hui 10 € de réduction dès 59 € d'achats sur son site avec le code RAKUTEN10 et 20 € de réduction dès 149 € d'achats avec le code RAKUTEN20. Sachant que des boutiques françaises comme Boulanger, Ubaldi ou encore Samsung vendent sur Rakuten aux mêmes conditions que dans leurs magasins, cela peut être intéressant.


> Voir l'offre
29,99 €XIAOMI Mi TV Stick à 29,99 €
Valable jusqu'au 27 Octobre

Cdiscount propose en exclusivité la nouvelle version de la clé HDMI XIAOMI Mi TV Stick à 29,99 €. Cette clé HDMI à brancher sur votre TV possède un processeur quadricoeur, 1 Go de RAM et 8 Go d'espace de stockage, le WiFi et le bluetooth. Elle intègre un Chromecast, est compatible Dolby et DTS et est fournie avec une télécommande qui peut être pilotée à la voix. Elle tourne sous Android TV 9.0 et vous allez pouvoir voir facilement Prime Video, Netflix, Disney+, YouTube, Spotify, Moltov, ... sur votre TV Full HD.


> Voir l'offre
42,99 €Casque Audio Logitech G432 à 42,99 €
Valable jusqu'au 28 Octobre

Amazon fait une promotion sur casque Logitech G432 qu'il propose à 42,99 € alors qu'on le trouve ailleurs à partir de 79 €. Ce casque dédié aux joueurs est compatible PC, Xbox, PS4 et Switch. Il possède un micro antiparasite qui pivote, un réglage de volume directement sur le fil et offre un son surround Dolby DTS Headphone 7.1. Connexion par USB ou jack 3.5 mm. La livraison est gratuite.


> Voir l'offre

Sujets relatifs
Macro pour créer un Gencode sur Excel - EAN 18
Convertir macro xl4 en VBA
creer une macro(bis)
creer une macro
macro excel pour convertir données
Créer une Macro dans Word 2010
creer une macro avec des variables
macro creer par enregistrement Resultat bizarre
macro excel pour convertir données d'un txt
Creer une macro - excel
Plus de sujets relatifs à Créer une macro convertir en PDF
 > Tous les forums > Forum Bureautique