Copyas Copier un classeur xlsx et xlsx Résolu/Fermé

Question

Bonjour, 

je rencontre une difficulté sur la sauvegarde d'un classeur XL.
il faut que mon fichier xlsm soit copier en xlsx c'est à dire sans macro.

Le problème c'est qu'il me faut absolument une copie. 
Car l'enregistrer sous "Saveas" ne convient pas à l'utilisation.
Par contre le SaveCopieAs ne fonctionne pas avec la ligne qui transforme en xlsx.

Voici le code

Sub Sauvegarde_sur_ordre()
Dim chemin As String
Dim fichier As String

chemin = Range("Chemin").Text

fichier = Range("Nom_Classeur").Text & " " & "le" & " " & Format(Now, "dd-mm-yyyy" & " à " & _"hh""h""mm") & " " & "" & ".xlsx"


Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs chemin & fichier, FileFormat:=xlOpenXMLWorkbook
End Sub


Quel qu un a t il une idée ?

Par avance merci


Configuration: Windows 7 / Chrome 50.0.2661.102

gbinforme · Answer

Bonjour,

Il y a sans doute plus élégant mais ceci devrait fonctionner :
Sub Sauvegarde_sur_ordre()
Dim chemin As String
Dim fichier As String
Dim nom As String
    nom = ThisWorkbook.FullName
    chemin = Range("Chemin").Text
    
    fichier = Range("Nom_Classeur").Text & " " & "le" & " " & Format(Now, "dd-mm-yyyy" & " à " & "hh""h""mm") & " " & "" & ".xlsx"

Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs chemin & fichier, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.SaveAs nom, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
End Sub

gbinforme · Answer

Bonjour,

Effectivement ça fonctionne par contre j'ai un message d'erreur :

Essaies cette nouvelle macro, avec une approche totalement différente,  cela ira plus vite et cela ne devrait pas planter.
Sub Sauvegarde_sur_ordre()
Dim chemin As String
Dim fichier As String
Dim sh As Worksheet
Dim wk As Workbook
Dim ws As Workbook
    Set wk = ThisWorkbook
    chemin = Range("Chemin").Text
    fichier = Range("Nom_Classeur").Text & " " & "le" & " " & Format(Now, "dd-mm-yyyy" & " à " & "hh""h""mm") & " " & "" & ".xlsx"
    Application.DisplayAlerts = False
    Set ws = Workbooks.Add
    For Each sh In wk.Worksheets
        sh.Cells.Copy
        With ws.ActiveSheet.Range("A1")
            .PasteSpecial xlPasteValues
            .PasteSpecial xlPasteFormats
            .PasteSpecial xlPasteColumnWidths
        End With
        ws.ActiveSheet.Name = sh.Name
        ws.Sheets.Add after:=ActiveSheet
    Next sh
    ws.ActiveSheet.Delete
    ws.SaveAs chemin & fichier, FileFormat:=xlOpenXMLWorkbook
    ws.Close True
    Application.DisplayAlerts = True
End Sub

Copyas Copier un classeur xlsx et xlsx

2 réponses

Discussions similaires