Exporter en pdf plusieur feuille avec Un nom ou Située dans une cellule
Bonjour a tous
je suis débutant avec VBA ,
j'ai put trouver beaucoup d'informations sur le forum pour m'aider a réaliser mes macro , merci a vous tous .
je sollicite votre aide car j'ai un problème avec ma macro dont la fonction et d' exporter en un PDF uniquement les feuille de mon choix avec le non du ficher pdf dans une cellule, voici les 2 code qui fonctionne bien sur mon pc sous (Excel 2016) MAIS quand j’exécute la macro sur un au PC sous (Excel 2013) j'ai un message qui est le suivant :
" Erreur de compilation : Projet ou bibliothèque introuvable " (Excel 2013)
mon souhait est que ma macro fonction sur excel tout les version après 2013
MERCI D'AVANCE
1-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub PDF()
'
' pdff Macro
'
Dim sName As Variant
sName = [B2] 'value from B2
'
Sheets(Array("Rapport", "Photos")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.GetSaveAsFilename(InitialFileName:=sName, _
fileFilter:="PDF Files (*.pdf), *.pdf"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Votre PDF a bien été enregistré. "
End Sub
2 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub PDF()
'
' pdff Macro
'
Dim sName As Variant
sName = [B2] 'value from B2
'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.GetSaveAsFilename(InitialFileName:=sName, _
fileFilter:="PDF Files (*.pdf), *.pdf"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=2, _
OpenAfterPublish:=True
MsgBox "Votre PDF a bien été enregistré. "
End Sub
Bonjour,
à tester,
Sub PDF1()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String, sName As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
sName = [B2] 'value from B2
NomComplet = Chemin & "\" & "MonFichier"
Sheets(Array("Rapport", "Photos")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomComplet, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Votre PDF a bien été enregistré. "
End Sub