bonjour,
j'ai cette macro qui est utilisée par notre force de vente (j'avais d'ailleurs demandé de l'aide sur ce forum pour la création)
Je l'ai diffusée aux utilisateurs et certains ont un message d'erreur lorsqu'ils souhaitent l'utiliser (mais pas tout le monde). les utilisateurs sont dans toute la France, je ne les ai pas sous la main pour faire des tests en direct :( . (en jaune sur l'écran ce qui s'affiche sur leur ordi) avec la flèche jaune sur la dernière ligne.
auriez vous une idée sur ce qui provoque l'erreur ?
est ce que ce serait un problème d'installation d'acrobat sur leur pc ?
merci à ceux qui prendront le temps de me répondre
Sub EnvoimailGSB()
'
' EnvoimailGSB Macro
'
' envoi par mail de la commande
'
ActiveSheet.PageSetup.PrintArea = Range("A1:w" & Range("b65536").End(xlUp).Row).Address
'--------------------------------------------------'
'Création du fichier PDF
'--------------------------------------------------'
Dim DesktopPath As String
DesktopPath = Environ$("USERPROFILE") & "\Desktop\"
Dim pdfName As String
pdfName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=DesktopPath & pdfName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'--------------------------------------------------'
'Mettre fichier en pièce jointe Outlook
'--------------------------------------------------'
Set Ol = CreateObject("outlook.application")
Set myItem = Ol.CreateItem(olMailItem)
myItem.Subject = "Proposition de commande"
myItem.Attachments.Add DesktopPath & pdfName
myItem.To = Range("C3").Value
myItem.Display
End Sub