Sauvegarder un Excel en pdf avec nom compilé

bonjour a tous, j essaye de faire cette macro:

Sub enregistrementpdf()

'

' enregistrementpdf Macro

'

'

Range("E5").Select

Selection.Copy

Range("J3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("J3").Select

Selection.Copy

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\labo\Desktop\logiciel controle de poid version bureau\pdf\XXXXXX.pdf" _

, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Range("A1:G97").Select

Selection.PrintOut Copies:=1

End Sub

sauf que je voudrais que le XXXXXX soit replacer par la valeur de j3

a5 est un concatener de 2 cellule, j3 est une copie speciale en valeur

Bonsoir,

A première vue, voici la ligne à modifier

"C:\Users\labo\Desktop\logiciel controle de poid version bureau\pdf\XXXXXX.pdf" _

Par

"C:\Users\labo\Desktop\logiciel controle de poid version bureau\pdf\" & Range("B3") & ".pdf" _

A tester

Bonne soirée

Bouben

merci bouben ça marche

j'ai une derniere galere avec ce pdf que je n arrive pas a resoudre

je souhaite enregistrer tout le classeur en pdf

j'ai des feuilles avec plein de formule du type: =SI(ET(R8>=V$5;R8<W$5);R8;"")

sur environ 4000 lignes (au cas ou j'aurais besoin d'autant de donnée)

donc 99% des lignes sont vide d apres la formule, et bien lors de l export ou impression pdf, j'arrive a avoir 500 pages...

Bonjour et bonne année,

Avec un peu de retard, mais à tester.

Cdlt.

Option Explicit

Public Sub SaveAsPDF()
Dim wb As Workbook
Dim sPath As String, sFilename As String

    Application.ScreenUpdating = False
    Set wb = thisWorkbook
    sPath = "C:\Users\labo\Desktop\logiciel controle de poid version bureau\pdf\"
    Range("J3").Value = Range("E5").Value
    sFilename = Range("J3") & ".pdf"

    wb.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sPath & sFilename, _
            Quality:=xlQualityMinimum, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Range("A1:G97").PrintOut Copies:=1

    Set wb = Nothing

End Sub

Re,

Peux-tu joindre un fichier représentatif de tes données?

Cdlt.

les deux modeles marchent par contre j'ai toujours 500 pages de pdf, car excel tient compte des formules vident pour exporter

voila le fichier, j ai reduit le nombre de ligne pour pouvoir l uploader ici

en fait pour l expliquer

j'ai une balance, qui a chaque pesée envoi la valeur dans un fichier excel

donc cette feuille est une feuille de recap de pesée avec les chrono pour les temps

je suis en train d essayer de faire un bouton pause pour qu on puisse allez boire le café

et là ou j'aimerais aussi c'est savoir comment ecrire dans une macro:

ouvrir une boite de dialogue qui demande d entrée une valeur numerique, et quand on clique sur ok, il la colle dans une cellule

Re,

Peux tu préciser ce que tu veux enregistrer en PDF?

Cdlt.

tout ce qui contient une valeur different de vide ou de " " dans le classeur complet

puisque en cas de controle dans le futur sur un lot passé je veux pouvoir fournir la feuille de pesée du lot en question

Re,

Essaie cette procédure.

Cdlt.

Public Sub SaveAsPDF()
Dim wb As Workbook
Dim sPath As String, sFilename As String
Dim lRow As Long, lRow2 As Long

    Application.ScreenUpdating = False
    Set wb = ThisWorkbook
    'sPath = "C:\Users\labo\Desktop\logiciel controle de poid version bureau\pdf\"
    sPath = wb.Path & Application.PathSeparator

    With wb.Worksheets("recap")
        .Range("J3").Value = Range("E5").Value  '???
        sFilename = .Range("J3") & ".pdf"       '???
        Set rng = .Range("A1:G97")
        .PageSetup.PrintArea = rng.Address
        '.PrintOut Copies:=1
    End With

    With wb.Worksheets("données")
        lRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For j = 10 To 26 Step 8
            lRow2 = .Cells(Rows.Count, j).End(xlUp).Row
            If lRow2 > lRow Then lRow = lRow2
        Next j
        Set rng = .Range(.Cells(1), .Cells(lRow, 48))
        .PageSetup.PrintArea = rng.Address
    End With

    wb.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sPath & sFilename, _
            Quality:=xlQualityMinimum, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Set rng = Nothing
    Set wb = Nothing

End Sub

impeccable jean eric merci beaucoup

ma feuille est tip top

me reste plus que une chose la rendre "ergonomique"

les filles qui vont l'utiliser ne sont pas des cracs sur ordi

je dois donc leur simplifier au max les choses

elle doivent se servir le moins possible de la sourie pour chercher ou rentrer les valeurs au bon moment, je dois donc essayer a chaque fin de macro de les aiguillers pour l etape suivante

j'aimerais connaitre un code vierge pour l adapter

exemple a la fin de la macro du bouton de purge 0

je dois ouvrir une boite de dialogue exemple:

veuillez rentrer les informations suivantes:

reference:

lot:

densité

ph:

avec un bouton ok

ensuite ça colle les valeur dans les cellules voulu

ensuite une boite de dialogue

par quel volume souhaitez vous commencer le conditionnement:

menu deroulant avec les volumes proposés:

poid de la tare du flacon

bouton: quand pret lancé le chrono

elle clique, ca colle les valeurs ou je le souhaite et ça lance la macro que j ai deja de prete du chrono

et la meme version avec 2 bouton 1 pour faire un autre volume de conditionnement, et un bouton pour dire qu on a fini de conditionner

Re,

Clos ce sujet qui est résolu ( ) et ouvre un nouveau sujet pour ces nouvelle questions.

Cdlt.

merci de ton aide en tout cas

Re,

Merci pour tes remerciements.

Cdlt.

alors je reviens car en fait ca marche en parti

car si pour le volume 1, j ai 2000 ligne de pesée, et que les autre j'ai rien ou seulement 2/300 ligne

je vais avoir l equivalent de 2000 lignes en page blanche sur les volume 2/3/4

Re,

Cela fonctionne très bien compte-tenu de tes informations.

Maintenant tu peux préciser en envoyant un fichier représentatif de tes données.

Tu n'as pas demandé d'explications. J'en ai conclus que tu avais compris la procédure VBA.

Cdlt.

ba en fait j'ai pas posé de question parce que je l'ai pas comprise, mais elle avait l'air de remplir le job ^^

dans la page donnée

j'ai l'equivalent de 5 format a4 cote à cote

colonne a jusque h volume 1

colonne i jusque p volume 2

colonne q jusque x volume 3

colonne y jusque af volume 4

et le dernier est un simple petit tableau de ag jusque av, avec seulement quelques lignes

ce que j'aimerais c est que quand j'imprime le pdf du classeur complet,j'ai ma feuille recap qui va tenir sur 2 page, et la feuille données

ou seul les entetes et les données presente seront dans le pdf, pour aviter d avoir des pages blanches due au formule qui s'etendent sur 5000 ligne

lors d'un conditionnement je peux tres bien avoir 3000 pesés sur volume 1, 200 sur le volume 2 et 0 sur les autres

donc l'idée est d'ajuster la selection volume par volume pour avoir toute les données avec le moins de page blanche possible

le soucis est que le fichier fait 800ko, je peux pas l uploader ici

en tout cas j apprecie vraiment la réactivité du forum

Re,

Enregistre ton fichier en xlsb et vois la taille.

Cdlt.

368ko...

un mail sinon?

ou je vais virer la page recap

salut alors une piste que je voulais donner mais qui n a pas l'air de marcher

c est de faire une selection sur 2 feuilles et dire enregistrer en pdf la selection, sauf qu il enregistre que la feuille en cours

la piste etait d abord de tester les colonne b j r et z jusque la derniere ligne ou il y a une valeur

et ensuite de faire une selection sur les 4 volumes independante

genre apres le test dans la feuille données

b1:i2000

j1:q100

s1:y7

z1:....7

ou sinon on fait un pdf qui se nommera recap a la fin du nom, et l autre donnée

dans mon dossier pdf je créé 1 dossier recap et 1 dossier donnée