Sauvegarder sous en format sans macro

Bonjour,

Je rencontre un problème sur une macro de sauvegarde de fichier.

J'aimerais que mon classeur s'enregistre sous le nom "EXTRACT" dans un format de fichier sans macro.

Voici mon code :

Sub Save()
    Dim Fichier As String
    Fichier = "EXTRACT.xlsx"
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Fichier
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

Deux cas de figure :

• Si à la ligne 4 de mon code, j'écris : Fichier = "EXTRACT.xls", la macro fonctionne mais à l'ouverture du fichier fraichement enregistré, excel m'indique qu'il y a conflit entre le format réel et l'extension.

• Si j'écris : Fichier = "EXTRACT.xlsx", la macro ne fonctionne pas => aucun nouveau fichier n'est enregistré...

Merci à toute personne qui tentera de solutionner mon problème

RQ : Je travaille sur Excel 2013

Bonne journée

waxscud

Bonjour

Ai je bien compris la question cette fois ?

A tester

Merci Banzai,

Une fois de plus, tu as été l'homme de la situation.

Petite question bonus : Dans ce même classeur, j'ai prévu une macro Workbook_Open() dans laquelle 4 macros sont sensées s’exécuter à l'ouverture du fichier.

Pourtant seule la transaction SAVE (qui est la dernière de la liste) pour laquelle tu m'as aidé ne s’exécute pas... Une idée ?

Private Sub Workbook_Open()
    Dim ret As Integer
    ret = MsgBox("Préparation EXTRACT : auto = OUI, manuelle = NON", vbYesNo)
    If ret = vbNo Then
      Exit Sub
    Else
        Importer
        clean
        Repartition
        Save
    End If
End Sub

Merci,

waxscud

Bonjour

On n'appelle pas une macro comme un nom réservé du VBA (Save)

Changes le nom et testes

Si toujours problème il faut faire du pas-à-pas et surtout voir dans une macro si il n'y a pas un END

C'est pas drôle, t'es trop fort !

C'était bien du au fait que la macro s'appelait Save... chasse gardée de VBA.

A la prochaine

Merci encore !!!

waxscud

Bonsoir !

Je déterre ce vieux sujet, car je n'arrive pas à utiliser cette syntaxe avec la fonction SaveCopyAS pour enregistrer en xlsx

Pouvez-vous m'aider ?