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