Bonjour à tous,
J'ai un souci avec ce code, attribuer à un bouton pour imprimer la zone active en pdf dans un certain fichier.
Mais voila, depuis que je suis passer sous mac, le fichier s'enregistre dans Office 2011 AutoRecovery et plus dans mon dossier Factures ( Disc/Utilisateur/Moi/Société/Factures)
Sub enregisterPDF()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Sheets("DEVIS-FACTURE").Select
Dim nom As String
nom = Range("K6") & "-" & Range("G8") & "-" & Range("K13")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("DEVIS-FACTURE").Select
End Sub
Je précise que le fichier avait été fait sous Windows7 et que je viens de récemment passer sous Mountain Lion avec Office 2011
Je galère de puis 2 jours ...
Merci de votre aide précieuse...
J'ai un souci avec ce code, attribuer à un bouton pour imprimer la zone active en pdf dans un certain fichier.
Mais voila, depuis que je suis passer sous mac, le fichier s'enregistre dans Office 2011 AutoRecovery et plus dans mon dossier Factures ( Disc/Utilisateur/Moi/Société/Factures)
Sub enregisterPDF()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Sheets("DEVIS-FACTURE").Select
Dim nom As String
nom = Range("K6") & "-" & Range("G8") & "-" & Range("K13")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("DEVIS-FACTURE").Select
End Sub
Je précise que le fichier avait été fait sous Windows7 et que je viens de récemment passer sous Mountain Lion avec Office 2011
Je galère de puis 2 jours ...
Merci de votre aide précieuse...
