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

segogooowww92

XLDnaute Nouveau
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

XLDnaute Barbatruc
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


VB:
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

1675191849697.png


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
 
Dernière édition:

segogooowww92

XLDnaute Nouveau
Bonjour @segogooowww92



Mais as tu cherché ?

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


VB:
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon