bonjour à tous
j'ai établie une macro pour sauvegarder ma feuille active en pdf mais je n'ai pas pu faire la même chose pour le format xls
Pouvez vous m'aider SVP
fichier joint
code :
Sub Bouton5_Cliquer()
Dim cheminAcces As String
Dim reponse As Integer
cheminAcces = "C:\Users\sassi.sghaier\Desktop\PROJET FACTURATION\"
reponse = MsgBox("désirez-vous sauvgarder la facture ?", vbQuestion + vbYesNo, "Entegistrement")
If reponse = vbYes Then
Feuil1.ExportAsFixedFormat xlTypePDF, cheminAcces & Feuil1.Range("e11").Value & " " & Feuil1.Range("e10").Value & ".pdf", xlQualityStandard, _
True, False, , , True
MsgBox "votre facture a été sauvguardéé", vbOKOnly + vbInformation, "SAUVGUARDE"
Else
Exit Sub
End If
End Sub