Microsoft 365 Sauvegarder fichier de XLSM à XLSX et effacer contrôle

Hugues1976 · 19 Juin 2023

Bonjour.

J'essaie de créer une macro pour que mon fichier se sauvegarde en format XLSX (donc perte des macro) pour qu'il puisse franchir le pare-feu de notre systeme de courriel.
De plus je voudrais qles contrôle (bouton) s'efface de ma page.

Mon code ne fonctionne pas du tout. Pourriez-vous m'aider svp.

Merci et bonne journée

VB:

Sub Sauvegarde_Sans_macro()
    
Dim FileToSave As Variant
Dim d As Date
Dim shp As Shape


MsgBox "Le fichier sera sauvegarder sans les macro et sera prêt pour l'envoie, voulez-vous continuer", vbYesNo
If yes Then


    For Each shp In ActiveSheet.Shapes
        shp.Delete
    Next shp
    
    Application.DisplayAlerts = False
    FileToSave = Application.GetSaveAsFilename(fileFilter:="File Type (*.xlsx), *.xlsx")
    If FileToSave <> False Then
        ActiveWorkbook.SaveAs Filename:=FileToSave, FileFormat:=xlOpenXMLWorkbook
    End If
    Application.DisplayAlerts = True
End If
End Sub

Staple1600 · 19 Juin 2023

Bonjour @Hugues1976 , le fil

A peaufiner, mais cela a fonctionné lors de mon test

Code:

Public Sub SaveFileAs()
Dim FileToSave As Variant
rep = MsgBox("Sauvegarder sans macro?", vbYesNo)
If rep = vbYes Then
FileToSave = Application.GetSaveAsFilename(fileFilter:="Classeur sans macros (*.xlsx), *.xlsx")
If FileToSave <> False Then
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Filename:=FileToSave, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
Else
'user chose cancel
End If
Else
Exit Sub
End If
End Sub

job75 · 19 Juin 2023

Bonsoir Hugues1976; JM,

Au lieu de supprimer les objets on peut les masquer :

VB:

Sub Sauvegarde_Sans_macro()
Dim fn$, ff, w As Worksheet
Application.DisplayAlerts = False
With ThisWorkbook
    fn = .FullName
    ff = .FileFormat
    For Each w In Worksheets: w.DrawingObjects.Visible = False: Next 'masque les objets
    .SaveAs Left(fn, InStrRev(fn, ".")) & "xlsx", 51
    For Each w In Worksheets: w.DrawingObjects.Visible = True: Next 'affiche les objets
    .SaveAs fn, ff
End With
End Sub

A+

Hugues1976 · 20 Juin 2023

Staple1600 à dit:

Bonjour @Hugues1976 , le fil

A peaufiner, mais cela a fonctionné lors de mon test

Code:

Public Sub SaveFileAs()
Dim FileToSave As Variant
rep = MsgBox("Sauvegarder sans macro?", vbYesNo)
If rep = vbYes Then
FileToSave = Application.GetSaveAsFilename(fileFilter:="Classeur sans macros (*.xlsx), *.xlsx")
If FileToSave <> False Then
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Filename:=FileToSave, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
Else
'user chose cancel
End If
Else
Exit Sub
End If
End Sub

Staple1600 à dit:

Bonjour @Hugues1976 , le fil

A peaufiner, mais cela a fonctionné lors de mon test

Code:

Public Sub SaveFileAs()
Dim FileToSave As Variant
rep = MsgBox("Sauvegarder sans macro?", vbYesNo)
If rep = vbYes Then
FileToSave = Application.GetSaveAsFilename(fileFilter:="Classeur sans macros (*.xlsx), *.xlsx")
If FileToSave <> False Then
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Filename:=FileToSave, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
Else
'user chose cancel
End If
Else
Exit Sub
End If
End Sub

Bonjour. MErci beaucoup. Ca fonctionne super bien. Est-ce qu'il est possible de choisir les objets que l'on rend invisible.
J'ai un logo que je veux conserver ?

Hugues1976 · 20 Juin 2023

De plus, est-ce possible que l'Explorateur de fichier pour la sauvegarde s'ouvre à l'emplacement où le fichier en format XLSXM est sauvegarder ?

job75 · 20 Juin 2023

Hugues1976 à dit:
Est-ce qu'il est possible de choisir les objets que l'on rend invisible.

La solution de Staple1600 ne rend pas invisibles les objets, elle les supprime.

Je ne vais pas plus loin.

Hugues1976 · 20 Juin 2023

job75 à dit:

Bonsoir Hugues1976; JM,

Au lieu de supprimer les objets on peut les masquer :

VB:

Sub Sauvegarde_Sans_macro()
Dim fn$, ff, w As Worksheet
Application.DisplayAlerts = False
With ThisWorkbook
    fn = .FullName
    ff = .FileFormat
    For Each w In Worksheets: w.DrawingObjects.Visible = False: Next 'masque les objets
    .SaveAs Left(fn, InStrRev(fn, ".")) & "xlsx", 51
    For Each w In Worksheets: w.DrawingObjects.Visible = True: Next 'affiche les objets
    .SaveAs fn, ff
End With
End Sub

A+

Bonjour Job75.

J'ai un problème avec ton code. J'ai une erreur avec cette ligne.
For Each w In Worksheets: w.DrawingObjects.Visible = False: Next 'masque les objets

Impossible de définir la propriété visible de la classe drawing objets,

Merci.

job75 · 20 Juin 2023

Hugues1976 à dit:
Impossible de définir la propriété visible de la classe drawing objets,

Chez moi pas de problème, essayez le fichier joint.

Staple1600 · 20 Juin 2023

Bonjour le fil

@job75
[pour infos]
Je reproduis le message d'erreur si il y a une feuille masquée dans le classeur.
Ca doit être le cas dans le classeur de @Hugues1976

job75 · 20 Juin 2023

Staple1600 à dit:
Je reproduis le message d'erreur si il y a une feuille masquée dans le classeur.

Merci JM.

Moralité : quand on joue les apprentis sorciers il faut assumer.

Microsoft 365 Sauvegarder fichier de XLSM à XLSX et effacer contrôle

Hugues1976

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Hugues1976

XLDnaute Nouveau

Hugues1976

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Hugues1976

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires