voià mais ça plante
Erreur d'ezécution '4198':
la commande a échoué
et le bouton Aide de boite de message mène à de la publicité de
formation en VBA
bref voilà le code
' début ...***********************************
Sub SaveToPdf_v3()
'
' SaveToPdf Macro
'
'
'set lcFileName as Document
lcPath = Me.Path
lcFileName = Me.Path + "\" + ThisDocument.Name
ActiveDocument.SaveAs2 lcFileName, 17
' ActiveDocument.SaveAs2 FileName:=lcFileName, _
' FileFormat:=wdFormatPDF
End Sub
' fin ...***********************************
merci de votre aide
bonne soirée
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
eddymaue
Sub SaveToPdf() ' ' SaveToPdf Macro ' ' Dim lcPath As String Dim lcFileName As String With ActiveDocument lcPath = .Path lcFileName = lcPath + "" + .Name + ".pdf" .SaveAs2 lcFileName, 17 End With 'Shell "explorer " & lcPath, vbNormalFocus End Sub Sub Open_Folder_ActiveDoc() ' ' Ouvrir le dossier du documdent actif ' ' Dim lcPath As String With ActiveDocument lcPath = .Path End With Shell "explorer " & lcPath, vbNormalFocus End Sub -- a+ Eddy Merci de partager avec moi votre immense savoir que je me ferai plaisir d'absorber... il va de soi que je vais vous en laisser un peu Politesse et savoir vivre oblige ;0)
Sub SaveToPdf()
'
' SaveToPdf Macro
'
'
Dim lcPath As String
Dim lcFileName As String
Sub Open_Folder_ActiveDoc()
'
' Ouvrir le dossier du documdent actif
'
'
Dim lcPath As String
With ActiveDocument
lcPath = .Path
End With
Shell "explorer " & lcPath, vbNormalFocus
End Sub
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Sub SaveToPdf() ' ' SaveToPdf Macro ' ' Dim lcPath As String Dim lcFileName As String With ActiveDocument lcPath = .Path lcFileName = lcPath + "" + .Name + ".pdf" .SaveAs2 lcFileName, 17 End With 'Shell "explorer " & lcPath, vbNormalFocus End Sub Sub Open_Folder_ActiveDoc() ' ' Ouvrir le dossier du documdent actif ' ' Dim lcPath As String With ActiveDocument lcPath = .Path End With Shell "explorer " & lcPath, vbNormalFocus End Sub -- a+ Eddy Merci de partager avec moi votre immense savoir que je me ferai plaisir d'absorber... il va de soi que je vais vous en laisser un peu Politesse et savoir vivre oblige ;0)