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