XL 2013 modifier code pour enregistrer en .xlsx

[grisan29]

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

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

je ne comprends pas ou le faire
quand je change

NomFicXL = NomDeFichier & ".xlsm"

en .xlsx
c'est ce bloc qui bug

ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, _
                          Password:="", WriteResPassword:="", _
                          ReadOnlyRecommended:=False, CreateBackup:=False

et aussi pourquoi la feuille active prends le nom de la sauvegarde
Pascal

 

[Lone-wolf]

Bonjour Pascal 🙂

NomFicXL = NomDeFichier & ".xlsx" et il manque FileFormat:=

ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, FileFormat:=xlOpenXMLWorkbook,

.xlsm = xlExcel8 ou 56
.xlsx = xlOpenXMLWorkbook ou 51

 

[grisan29]

bonjour Lone-Wolf
merci de m'avoir dit ce que j'avais oublier mais je saisi pas pour xlsx

ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, FileFormat:=xlExcel8, _

mais si je mets ileFormat:=xlOpenXMLWorkbook ca bug avec xlm

 

[grisan29]

bonjour Lonewolf
j'ai trouvé c'est bon maintenant, merci, mùais comment faire pour que le classeur ne soit pas renommé par le nom de la sauvegarde sans le fermer et le rouvrir

 

[grisan29]

bonjour Lone Wolf
j'ai mis ceci mais je ne suis pas sur que ce soit la solution

Workbooks.Open Filename:="C:\Users\Pascal \Desktop\test pdf et xlsx"
    Sheets("Feuil1").Select
    ThisWorkbook.Close False

 

[Lone-wolf]

bonjour Lone-Wolf
merci de m'avoir dit ce que j'avais oublier mais je saisi pas pour xlsx

ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, FileFormat:=xlExcel8, _

mais si je mets ileFormat:=xlOpenXMLWorkbook ca bug avec xlm

Bein, c'est bien toi qui à dit ceci : mais au lieu d'enregistrer en .xlsm je le voudrais en .xlsx sans codes.

Là je ne suit plus. D'abord tu veux le sauvegarder : ActiveWorkbook.SaveAs Filename et maintenant tu ne veux plus??? 🙄

Pour le chemin, tu peux ajouetr une variable : Dim Fichier As String

Fichier = "C:\Users\ etc.

Workbooks.Open(Fichier) - ActiveWorkbook.Sheets(1).Activate

 

[grisan29]

Bonjour Lone wolf

bien sûr que si, je veux sauvegarder mais à ta 1ère réponse j'ai pas réussi de suite a appliquer ta solution .xlsx voici comment il marche très bien MERCI

 Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=CheminXL & NomFicXL, FileFormat:=xlOpenXMLWorkbook, _

                          Password:="", WriteResPassword:="", _

                          ReadOnlyRecommended:=False, CreateBackup:=False

et voici comment j'ai mis 2 lignes de code qui ferme et re-ouvre le classeur, c'est peut être pas la meilleure mais fonctionne

Application.ScreenUpdating = False

  Application.EnableEvents = False

  'fermer et réouvrir le classeur source, pas trouvé autre solution pour éviter _

  que le classeur source garde le nom de la sauvegarde

    Workbooks.Open Filename:="C:\Users\Pascal\Desktop\test pdf et xlsx"

    'Sheets("Feuil1").Select

    ThisWorkbook.Close False


  Application.ScreenUpdating = True

  Application.EnableEvents = True

Pascal

 

[Lone-wolf]

Re Pascal

Il te suffisait avec un nouveau classeur d'ouvrir le wb source et l'enregistrer en xlsx ou en xlsm.

 

[grisan29]

Re Lone wolf
il s'enregistre en .xlsx et en .PDF et le classeur source prends le nom de la sauvegarde, comment empècher cela

 

[Lone-wolf]

Re Pascal

As-tu lu mon dernier message?! 🙄

 

[grisan29]

Re Lone wolf
oui j'ai bien vu ton message mais pas sais ce que tu as voulu expliquer

 

[Lone-wolf]

Re Pascal

Un exemple vaut mieux que des paroles. Classeur 1 est le classeur contenant la macro.

 

[JCGL]

Bonjour à tous,

Re Lone wolf
oui j'ai bien vu ton message mais pas sais ce que tu as voulu expliquer

Mon ami, je t'ai connu meilleur en "parler la France"

A++ mon ami
A+ à tous

 

[Lone-wolf]

Bonsoir Jean Claude 🙂

Non, c'est la faute à Google Traductions (Anglais > Fançais) .😀

 

[grisan29]

bonsoir JCGL
Bien vu j'ai oublier le "i" de saisi, et pas de traducteur utiliser car je ne bredouille qu'un peu en BRETON
Lone wolf je regarde tes exemples et je reviens plus tard ou demain t'en faire part