XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule

[segogooowww92]

Hello,
Je souhaiterais dans un premier temps enregistrer deux feuilles Excel en un seul même fichier PDF. (de ce que j'ai vu je ne pense pas que ce soit possible mais j'aimerais avoir confirmation svp)
Dans un second temps créer un fichier ayant pour nom une cellule d’une feuille Excel.
J’ai trouvé ce code que j’ai essayé de modifier cependant je n’y arrive pas es ce que quelqu’un pourrait m’aider ? Merci.
Dans ce programme, une partie permet de vérifier que le fichier n’existe pas déjà.

Private Sub CommandButton2_Click()
Dim Chemin As String
Dim Tracking As String

'Cellule dans la feuille Invoice que je souhaiterais dans le chemin'
Tracking = Invoice$(Range("F7").Value)

'Chemin dossier'
Chemin = "C:\Users\user\Desktop\Mini projets\Factures_autom\" & Tracking & "\"
n = 0

If Dir(Chemin, vbDirectory) <> vbNullString Then


Else
MkDir (Chemin)
'Prendre encompte toutes les pages'
ReDim Pdf(1 To ActiveWorkbook.Worksheets.Count)
For i = 1 To ActiveWorkbook.Worksheets.Count
With ActiveWorkbook.Worksheets(i)
Fichier = Pdf(i) & ".pdf"
n = n + 1

'Modifier le nom du fichier'
Pdf(i) = Left(ThisWorkbook.Name, 7) & Year(Date) & Month(Date) & Day(Date) & ActiveWorkbook.Sheets("Invoice").Range("F7")
If n > 0 Then Pdf(i) = Pdf(i) & "_" & n
End With
Next i

'Géneration PDF'
For i = 1 To UBound(Pdf)
Fichier = Pdf(i) & ".pdf"
ActiveWorkbook.Worksheets(i).ExportAsFixedFormat xlTypePDF, Chemin & Fichier
Next i

End If
End Sub

 

[Phil69970]

Bonjour @segogooowww92

Dans un second temps créer un fichier ayant pour nom une cellule d’une feuille Excel.

Mais as tu cherché ?

Sur le site il doit y avoir plusieurs dizaines voir centaines de solution.
Au hasard ou presque

Microsoft 365 - Macro = Enregistrement en PDF avec la valeur d'une cellule

Bonjour, Je cherche à créer une macro pour enregistrer un fichier excel en pdf avec la valeur d'une cellule (Date). Actuellement ça fonctionne avec ce code => je souhaite que ce soit la date qui ce trouve dans une cellule car maintenant j'utilise le fichier à cheval sur 2 jours. Sub...

excel-downloads.com

Sub Enregistrement_PDF()

Dim nom As String
nom = Format([A1], "dd-mm-yyyy") 'Si en A1 il y a une date
'nom=[A1]  'Sinon le bom mais sans caractere interdit comme /  \  ? * [ ]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

idem pour

Je souhaiterais dans un premier temps enregistrer deux feuilles Excel en un seul même fichier PDF.

A toi de faire un effort

@Phil69970

 

[kiki29]

Salut, peut-être à consulter si curieux : Liste Contributions PDF

 

[segogooowww92]

Bonjour @segogooowww92



Mais as tu cherché ?

Sur le site il doit y avoir plusieurs dizaines voir centaines de solution.
Au hasard ou presque

Microsoft 365 - Macro = Enregistrement en PDF avec la valeur d'une cellule

Bonjour, Je cherche à créer une macro pour enregistrer un fichier excel en pdf avec la valeur d'une cellule (Date). Actuellement ça fonctionne avec ce code => je souhaite que ce soit la date qui ce trouve dans une cellule car maintenant j'utilise le fichier à cheval sur 2 jours. Sub...

excel-downloads.com

Sub Enregistrement_PDF()

Dim nom As String
nom = Format([A1], "dd-mm-yyyy") 'Si en A1 il y a une date
'nom=[A1]  'Sinon le bom mais sans caractere interdit comme /  \  ? * [ ]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

Regarde la pièce jointe 1162154

idem pour



A toi de faire un effort

@Phil69970

Bonjour,
Je me suis mal exprimée le nom d'un dossier.
Pour le nom d'un fichier dans une cellule ca j'ai cherché et compris.

 

[Phil69970]

Re

@segogooowww92

Et bien c'est super

Pour le nom d'un fichier dans une cellule ca j'ai cherché et compris.

Que cela soit un dossier ou dans une cellule je maintiens ceci :

Sur le site il doit y avoir plusieurs dizaines voir centaines de réponses

Et ceci :

Mais as tu cherché ?

De plus @kiki29 t'as mis des liens avec toutes les réponses mais as tu regardé ?

@Phil69970