Modifier le nom d'un pdf

Bonjour à tous,

j'ai developpé, grace à vos précieux conseils et exemples, un fichier excel qui sert à consigner des travaux .

l'utilisateur saisie ses travaux via un formulaire.

le fichier comprend 2 fiches masquées.

l'utilisateur ne peut les voir que lorsqu'elles sont exportées au format pdf en cliquant sur le bouton jaune du formulaire.

mon souci est que je dois changer le nom du pdf en rajoutant le nom des entités qui correspond à la textbox2 du formulaire

ainsi que la date du jour au format US.

NaÏvement je pensais qu'il suffisait de concatener

j'ai fait plusieurs essai sur la fiche n° 2 et soit j'obtenais:

• FAUX.PDF.
• textbox2.value&nominitial&(date, yyyymmdd).pdf

Merci d'avance et cordialement,

Siga

bonjour,

essaie ceci

 With Worksheets("SAJ3.1C6")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename = TextBox2.Value & "SAJ3.1C6" & Format(Date, "yyyymmdd") & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

bonjour h2so4,

j'ai déjà essayé et c'est précisément dans ce cas que le fichier est nommé FAUX.pdf.

Merci tout de même,

Bonjour, il manque : dans l'instruction

 With Worksheets("SAJ3.1C6")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename := TextBox2.Value & "SAJ3.1C6" & Format(Date, "yyyymmdd") & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

J'ai mis le ":" entre Filename et Texbox2 mais la fiche n'est plus générée et j'ai une messagebox erreur 1004 qui survient

Lorsque je débogue ma ligne modifiée est surlignée en jaune.

Ce qui me parait étrange c'est que en principe, la ligne CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

en fin d'instruction de mon commandbutton_1 règle dejà un éventuel problème de concomittance avec 1 pdf ouvert.

Bonjour,

Ce qui me parait étrange c'est que en principe, la ligne CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

en fin d'instruction de mon commandbutton_1 règle dejà un éventuel problème de concomittance avec 1 pdf ouvert.

vérifie si c'est effectivement le cas. (ie plus de tâche acrobat reader en cours)

Effectivement, la tache acrobat est en cours puisque le bogue se produit avant la génération de la seconde fiche.

En revanche, je n'ai plus ce problème si je reviens à mon nom initial

en plus maintenant j'ai mon buttoncommand1 qui ne fonctionne plus !

on m'indique next sans for alors qu'il y bien for.

Je ne comprends plus

Bonjour,

il te manque un end if avant ton next i

MERCI

J'ai essayé le code suivant pour ma modification de nom:

Private Sub CommandButton2_Click()
Dim LaDate As String, Nmut As String
LaDate = Format(Date, "yyyymmdd")
Nmut = TextBox2.Value

 If Worksheets("SAJ3.1C5").Visible = xlSheetVeryHidden Then
    Worksheets("SAJ3.1C5").Visible = xlSheetVisible
    End If
 With Worksheets("SAJ3.1C5")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, "SAJ3.1C5.pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

 If Worksheets("SAJ3.1C6").Visible = xlSheetVeryHidden Then
    Worksheets("SAJ3.1C6").Visible = xlSheetVisible
    End If
 With Worksheets("SAJ3.1C6")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=Nmut& & LaDate & "SAJ3.1C6.pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With
End Sub

Mais encore une fois j'ai une erreur qui survient

et toujours ma ligne .ExportAsFixedFormat xlTypePDF, Filename:=Nmut& & LaDate & "SAJ3.1C6.pdf", OpenAfterPublish:=True

qui est surlignée au débogage.

Est-ce que ça inspire l'un d'entre vous ?

Merci d'avance,

Siga

bonjour

enlève le & qui suit nmut&

Pour info, toujours cette erreur lorsque je modifie le code ainsi cad en déclarant Nfic2:

Dim LaDate As String, Nmut As String, Nfic2 As String
LaDate = Format(Date, "yyyymmdd")
Nmut = TextBox2.Value
Nfic2 = "SAJ3.1C6"
 If Worksheets("SAJ3.1C5").Visible = xlSheetVeryHidden Then
    Worksheets("SAJ3.1C5").Visible = xlSheetVisible
    End If
 With Worksheets("SAJ3.1C5")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, "SAJ3.1C5.pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With

 If Worksheets("SAJ3.1C6").Visible = xlSheetVeryHidden Then
    Worksheets("SAJ3.1C6").Visible = xlSheetVisible
    End If
 With Worksheets("SAJ3.1C6")
        .Visible = xlSheetVisible
        .ExportAsFixedFormat xlTypePDF, Filename:=Nmut& & LaDate & Nfic2 & ".pdf", OpenAfterPublish:=True
        .Visible = xlSheetVeryHidden
    End With
End Sub

et oui il ya 2 & bien vu h2so4

néanmoins la ligne se met en rouge.

mais j'ai une erreur de compilation

( c'est le thème du jour , on dirait ! )

j'ai donc pensé à mettre des , à la place de mes &

et là rebelotte la ligne se met en rouge et j'ai une autre erreur de compilation

bon je me décourage pas, je continue mes recherches et mes tests

si tu as une idée...

merci h2so4

bonsoir,

essaie ceci

.ExportAsFixedFormat xlTypePDF, Filename:=Nmut & LaDate & Nfic2 & ".pdf", OpenAfterPublish:=True

Salut h2so4,

ça fonctionne enfin

MERCI INFINIMENT