Sub Cree_Pdf()
Dim Chemin$, nom$, num$, txt$
Application.ScreenUpdating = False
With Feuil1
.Activate
.Range("s2") = .Range("s2") + 1
.Range("a1") = "N°" & .Range("s2")
num = .Range("a1").Value
End With
ActiveSheet.Copy
Chemin = ThisWorkbook.Path & "\partage\FICHE DE TRAVAIL\PDF\"
nom = "Fiche De Travail_" & num & "_ du _" & Format(Date, "dd-mm-yyyy")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\partage\FICHE DE TRAVAIL\PDF\" & "\Fiche De Travail_" & a & num & Format(Date, "_dd-mm-yyyy") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
With Feuil2
lig = .Cells(Rows.Count, "H").End(xlUp).Row + 1
.Cells(lig, "H") = nom
End With
ActiveWorkbook.Close False
End Sub
Public Function OuvrirFichier(MonFichier As String)
On Error GoTo OuvertureFichierErreur
'vérifie si le fichier existe
If Len(Dir(MonFichier)) = 0 Then
OuvrirFichier = False
Exit Function
Else
End If
'ouvre le fichier dans son application associée
Dim MonApplication As Object
Set MonApplication = CreateObject("Shell.Application")
MonApplication.Open (MonFichier)
OuvrirFichier = True
Set MonApplication = Nothing
Exit Function
OuvertureFichierErreur:
Set MonApplication = Nothing
OuvrirFichier = False
End Function