problème de macro pour conversion feuille en PDF

yann_160

XLDnaute Nouveau
Bonjour,
Voici mon problème, ma macro fonctionnait depuis des années et hier elle bug et refuse de me convertir ma feuille en pdf.
Il bogue à la ligne
.ExportAsFixedFormat xlTypePDF, chemin & nomfichier_pdf
et les adresses d'enregistrement n'ont pas changer.

Sub enregistrement()
Sheets("Bon de Cde 67").Select
'enregistement des deux pages de commande + copie historique
If MsgBox("ATTENTION ENREGISTREMENT DES COMMANDES - NE PAS OUBLIER LA DATE ", vbYesNo) <> vbYes Then Exit Sub
ActiveSheet.Unprotect
Dim extension As String
Dim chemin As String, nomfichier As String, monfichier_pdf
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"

chemin = "C:\Users\Yann\Documents\bernie \ "
nomfichier = ActiveSheet.Range("N1") & extension
nomfichier_pdf = ActiveSheet.Range("N1").Text
Application.DisplayAlerts = False
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.ExportAsFixedFormat xlTypePDF, chemin & nomfichier_pdf
.SaveAs Filename:=chemin & nomfichier
Application.DisplayAlerts = False
'.Close
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.Close SaveChanges:=False
Application.ScreenUpdating = False
'copie page extrait
Sheets("Bon de Cde 67 (2)").Select
ActiveSheet.Unprotect
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "C:\Users\Yann\Documents\bernie \ "
nomfichier = ActiveSheet.Range("N1") & extension
nomfichier_pdf = ActiveSheet.Range("N1").Text
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.ExportAsFixedFormat xlTypePDF, chemin & nomfichier_pdf
.SaveAs Filename:=chemin & nomfichier
Application.DisplayAlerts = False
'.Close
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.Close SaveChanges:=False
Application.ScreenUpdating = False
Sheets("Bon de Cde 67 (2)").Select
'copie pour historique

Par avance merci
Cordialement
Yann
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll