Probleme de sauvegarde .xlsm

Bonjour, j'ai le code suivant :

Sub boncommande_valider_lacommande()

Dim fichier As String

'adaptez le nom de la feuille

With Worksheets("factures")

fichier = "facture n°" & .Range("E23") & .Range("I8") & .Range("J8")

If MsgBox("voulez vous vraiment valider cette facture", vbYesNo, "Attention à la date") = vbYes Then

'pensez a ecrire le chemin

ChDir ("Macintosh HD:Users:daurelle:Documents:facture moutons gilles:")

ActiveSheet.ExportAsFixedFormat Type:=xlTypeXLSM, Filename:=fichier, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End If

End With

Worksheets("boncommande").Select

Range("B5") = "=TODAY()"

End Sub

Mais le souci : il me sauvegarde bien mais au format PDF alors que je souhaite au format .xlsm

Merci de votre aide

PS : excel 2011 mac

Bonsoir,

C'est inventé de toute pièce ce

ActiveSheet.ExportAsFixedFormat Type:=xlTypeXLSM,

Jamais vu ca de ma vie

https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.exportasfixedformat

Oui normalement c'est PDF au lieu de XLSM

Pour le reste ça me sauvegarde en PDF : pourquoi??

BrunoM45 a écrit :

Bonsoir,

C'est inventé de toute pièce ce

ActiveSheet.ExportAsFixedFormat Type:=xlTypeXLSM,

Jamais vu ca de ma vie

https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.exportasfixedformat

Merci mais le lien ne correspond pas à ma recherche car sur mac ça doit etre different.

Si je met XPS à la place de PDF le mac ne connait pas cette extention.

Je pense que l'erreur vient de la mais quoi mettre???

Merci

Re,

Merci de faire des recherches, en bas de cette page tu devrais avoir ce qu'il faut

Bonjour,

Tu pourrais tester la macro suivante :

Sub Boncommande_valider_lacommande()
Dim fichier As String
'adaptez le nom de la feuille
    With Worksheets("factures")
    fichier = "facture n°" & .Range("E23") & .Range("I8") & .Range("J8")
      If MsgBox("voulez vous vraiment valider cette facture", vbYesNo, "Attention à la date") = vbYes Then
      'pensez a ecrire le chemin
      ChDir ("Macintosh HD:Users:daurelle:Documents:facture moutons gilles:")
      ActiveSheet.SaveAs "\NouvelleFacture.xlsm"
      End If
    End With
Worksheets("boncommande").Select
Range("B5") = "=TODAY()"
End Sub

James007 a écrit :

Bonjour,

Tu pourrais tester la macro suivante :

Sub Boncommande_valider_lacommande()
Dim fichier As String
'adaptez le nom de la feuille
    With Worksheets("factures")
    fichier = "facture n°" & .Range("E23") & .Range("I8") & .Range("J8")
      If MsgBox("voulez vous vraiment valider cette facture", vbYesNo, "Attention à la date") = vbYes Then
      'pensez a ecrire le chemin
      ChDir ("Macintosh HD:Users:daurelle:Documents:facture moutons gilles:")
      ActiveSheet.SaveAs "\NouvelleFacture.xlsm"
      End If
    End With
Worksheets("boncommande").Select
Range("B5") = "=TODAY()"
End Sub

Merci c'est ça

Bonjour,

Merci c'est ça

Content que cela puisse t'aider ...