VBA enregistrer xlsm en xlsx

Bonjour,

Personne n'a de solution ?

Merci d'avance pour les réponses

Benju

Bonjour et bonne année 2018

Je fais des fiches d'interventions pour des techniciens par rapport un fichier de base comportant des macros (type xlsm).

L'enregistrement se fait par un bouton agrémenté d'une macro :

sub enrg()

chemin = sheets ("1ère intervention").Range("c38) & "_" & sheets ("1ère intervention").range("c3")

application.dialogs(xldialogsaveas).show (chemin)

end sub

La fichier reste en xlsm, hors cela pose des soucis pour les intervenants sur les tablettes , je voudrais pouvoir enregistrer les fichiers automatiquement en xlsx et en même faire disparaitre les boutons qui sont sur la première feuille, tout en gardant mes critères d'enregistrement.

Je mets le fichier en pièce jointe

En remerciant d'avance pour l'aide.

Bon après midi

Bonjour Benju,

Si ton pb est toujours d'actualité :

Sub enrg()
    chemin = Sheets("1ère intervention").Range("c38") & "_" & Sheets("1ère intervention").Range("c3")
    'Application.Dialogs(xlDialogSaveAs).Show (chemin)
    ThisWorkbook.SaveAs chemin, xlOpenXMLWorkbook
End Sub

NB: Ta cellule "C3" doit contenir un nom de classeur conforme et tu peux y adjoindre l'extension "xlsx"

Bonjour,

Merci pour ta réponse ça marche super, par contre est-ce qu'il y a possibilité de garder le choix du dossier dans lequel je veux l'enregistrer?

J'ai complément oublié de le noter dans mon premier message DSl

Bonne journée

Bonjour Benju,

En ce cas je te propose :

Sub enrg()
    Dim lRes As Long
    Dim sPath As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        lRes = .Show
        If lRes <> 0 Then
            sPath = .SelectedItems(1)
            chemin = Sheets("1ère intervention").Range("c38") & "_" & Sheets("1ère intervention").Range("c3")
            ThisWorkbook.SaveAs sPath & "\" & chemin, xlOpenXMLWorkbook
        End If
    End With
End Sub

Merci ça marche impeccable.

En te souhaitant une bonne journée et encore merci.