grisan29
XLDnaute Accro
bonjour a tous
j'ai ce code qui fonctionne très bien pour enregistrer le classeur actif en .xlsm et .PDF
mais au lieu d'enregistrer en .xlsm je le voudrais en .xlsx sans codes
je ne comprends pas ou le faire
quand je change
en .xlsx
c'est ce bloc qui bug
et aussi pourquoi la feuille active prends le nom de la sauvegarde
Pascal
j'ai ce code qui fonctionne très bien pour enregistrer le classeur actif en .xlsm et .PDF
mais au lieu d'enregistrer en .xlsm je le voudrais en .xlsx sans codes
Code:
Private Sub CommandButton1_Click()
Dim NomFicXL As String, CheminXL As String
Dim NomFicPDF As String, CheminPDF As String
Dim DLig As Long
Dim shp As Shape
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Sheets("Feuil1")
'sauvegarde a partir de la dernière ligne écrite
DLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
Dim NomDeFichier As String
'donner le nom au fichier
NomDeFichier = Sht.Range("B11").Value & " - " & Sht.Range("D10").Value
NomFicXL = NomDeFichier & ".xlsm"
NomFicPDF = NomDeFichier & ".pdf"
'pensez a chager le chemin
CheminPDF = "D:\essai perso\facturePDF" & "\"
CheminXL = "D:\essai perso\Facturexlsx" & "\"
' Sauvegarder le classeur actif dans le chemin et le nom determiné
ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
' Exporter en PDF
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminPDF & NomFicPDF, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Votre sauvegarde porte la référence : " & " " & NomFicXL & vbCrLf _
& "Le fichier PDF à été créé sous le nom : " & NomFicPDF
End Sub
quand je change
Code:
NomFicXL = NomDeFichier & ".xlsm"
c'est ce bloc qui bug
Code:
ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
et aussi pourquoi la feuille active prends le nom de la sauvegarde
Pascal
Dernière édition: