> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
29,99 €Fire TV Stick 2020 à 29,99 €
Valable jusqu'au 24 Janvier

Amazon fait une promotion sur sa nouvelle clé HDMI Amazon Fire TV Stick qui passe à 29,99 € au lieu de 39,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. Avec elle, vous allez pouvoir voir facilement Prime Video, Netflix, Disney+, YouTube, Molovov, MyCanal, Spotify sur votre TV Full HD. Cette nouvelle version 2020 est compatible Alexa. Une télécommande avec des boutons pour contrôler également la TV est fournie.

Notez qu'il est possible de coupler un casque bluetooth avec le Fire TV Stick afin de regarder tranquillement la TV sans déranger vos proches.


> Voir l'offre
85,11 €SSD Crucial P1 1 To (3D NAND, NVMe, PCIe, M.2) à 85,11 € livré
Valable jusqu'au 23 Janvier

Amazon Allemagne fait une promotion sur le SSD Crucial P1 1 To (3D NAND, NVMe, PCIe, M.2) qui passe à 80,57 € (avec la TVA ajustée). Comptez 4,54 € pour la livraison en France soit un total de 85,11 € livré. On le trouve ailleurs à partir de 110 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 2 000/1 750 Mo/s. Il est garanti 5 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
349,99 €Casque réalité virtuelle Oculus Rift S à 349,99 €
Valable jusqu'au 23 Janvier

Amazon fait une promotion sur le casque de réalité virtuelle Oculus Rift S avec ses 2 manettes Oculus Touch à 349,99 € alors qu'on le trouve ailleurs à partir de 449 €. La livraison est gratuite. L'Oculus Rift S est un casque de Réalité Virtuelle pour PC qui vous permettra de tirer parti du meilleur de votre machine en matière de VR. Ce casque VR pour PC est le plus perfectionné conçu par Oculus. Plus ergonomique et plus performant, il est aussi plus confortable et plus efficace que ses prédécesseurs. L'immersion est parfaite, le rendu spectaculaire, les images éclatantes et bluffantes de réalisme. Sensations fortes garanties !


> 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