macro pour enregistrer une feuille en pdf

[Dju1]

Bonjour à tous,
j'ai créer une macro complète mais il ne me manque qu'une petite chose que je n'arrive pas à régler seul... J'aimerais compléter la macro ci-dessous par la transformation de ma sauvegarde en pdf. Dans l'attente de votre aide...

Cdt

Sub Total()

Dim Chemin1$, Client$, Fichier$, Numfact$

Chemin1 = "C:\Users\Julien\Documents\AE\"
Client = Range("E5")
Numfact = Range("B12")
Fichier = Numfact
Sheets("factures").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Client & Fichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Fichier

Dim num As Integer
Range("B12").Select
num = Range("B12").Value
num = num + 1
Range("b12").Value = num

Sheets("FACTURES").Range("A15:A27,F15:F27,E5").ClearContents
End Sub

 

[Compte Supprimé 979]

Re : macro pour enregistrer une feuille en pdf

Salut Dju1,

Faut-il te rappeler qu'il existe un enregistreur de macro qui te permet de savoir quelle est l'instruction

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Classeur1.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

A+

 

[Dju1]

Re : macro pour enregistrer une feuille en pdf

merci mais je connais cette astuce. Le truc c'est que j'aimerais créer un dossier avec le nom client et ensuite un sous dossier dans lequel est inscrit le numéro de facture. Avec la macro ci-dessous j'ai réussi à créer directement un enregistrement sur le "chemin" voulu mais je n'arrive pas à différencier le numéro de facture du nom client.
J'espère avoir été clair . :s

Sub Total()

Dim Chemin1$, Client$, Fichier$, Numfact$

Chemin1 = "C:\Users\Julien\Documents\AE\"
Client = Range("E5")
Numfact = Range("B12")
Fichier = Numfact
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin1 & Client & Fichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Dim num As Integer
Range("B12").Select
num = Range("B12").Value
num = num + 1
Range("b12").Value = num

Sheets("FACTURES").Range("A15:A27,F15:F27,E5").ClearContents
End Sub

 

[Compte Supprimé 979]

Re : macro pour enregistrer une feuille en pdf

Re,

merci mais je connais cette astuce. Le truc c'est que j'aimerais créer un dossier avec le nom client et ensuite un sous dossier dans lequel est inscrit le numéro de facture

Dis-donc tu ne te moquerais pas des XLDiens pas hasard !?


Question initiale

J'aimerais compléter la macro ci-dessous par la transformation de ma sauvegarde en pdf

Je ne l'ai quand même pas inventé ta question !???


Quand tu sauras ce que tu veux ... fait nous signe ...

A tchao

 

[Dju1]

Re : macro pour enregistrer une feuille en pdf

Autant pour moi :s en fait à la base c'est ce que je voulais faire mais j'ai trouvé le moyen de le faire après avoir posté sur le forum. Maintenant ce que je cherche c'est donc à créer un fichier avec le nom client et dans ce dossier classer mes factures avec leur numéro.
Désolé pour l'erreur ....

 

[Dju1]

Re : macro pour enregistrer une feuille en pdf

Dernière évolution , j'ai réussi à créer mon sous dossier et mon dossier. Le seul souci c'est que mon sous dossier qui est égal à mon numéro de facture est en format excel et je n'arrive pas à caler la formule pour que mon sous dossier soit en pdf. Si quelqu'un veut bien me rendre ce petit service. Bien cordialement...

Sub Total()

Dim Chemin1$, Client$, Fichier$, Numfact$

Chemin1 = "C:\Users\Julien\Documents\AE\"
Client = Range("E5")
Numfact = Range("B12")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin1 & Client & Numfact & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
If Dir(Chemin1 & Client, 16) = "" Then MkDir Chemin1 & Client
ActiveWorkbook.SaveAs Chemin1 & Client & "\" & Numfact

 

[job75]

Re : macro pour enregistrer une feuille en pdf

Bonjour le fil, le forum,

Le seul souci c'est que mon sous dossier (...) est en format excel et je n'arrive pas à caler la formule pour que mon sous dossier soit en pdf.

Je ne savais pas qu'un dossier ou sous dossier pouvait être aux formats Excel ou pdf 😕

Dis-donc tu ne te moquerais pas des XLDiens pas hasard !?

Ben... 😡

A+

 

[Dju1]

Re : macro pour enregistrer une feuille en pdf

Excusez moi mais je ne suis pas un utilisateur confirmé et mon langage n'est pas toujours adapté. Ce que je voulais dire c'est que je réussis à créer mon dossier avec le nom client, mais mon sous dossier qui a le numéro de la facture comme nom n'est pas au format pdf.
Désolé pour les erreurs de langage.

 

[job75]

Re : macro pour enregistrer une feuille en pdf

Re,

OK Dju1, on comprend que dans votre langage :

- dossier => fichier Excel

- sous dossier => feuilles Excel que vous voudriez transformer en pdf...

Mais un fichier Excel ne peut contenir que des feuilles Excel...

Au mieux on peut coller dans ces feuilles des copies des fichiers pdf, qui sont des images.

C'est bien sûr possible, mais pas bien fameux.

Le mieux est de stocker les fichiers pdf dans un ou plusieurs dossiers (qu'on appelle aussi répertoires).

On peut si nécessaire créer ces répertoires par macro, cherchez sur le forum.

A+