XL 2016 [RESOLU]Erreur à la sauvegarde au format excel

louatt

XLDnaute Junior
Bonsoir à tous,

j'utilise ce code pour sauvegarder une feuille dans un nouveau classeur.

Code:
Sub Sauvegarde_CR_Journalier_en_XLS()

If MsgBox("Êtes vous sur de vouloir faire une copie de sauvegarde du rapport journalier au format excel  ?", vbQuestion + vbYesNo, "ARCHIVER  LE  COMPTE RENDU ...") = vbYes Then
' copie feuille dans nouveaux classeur

    Sheets("Matrice").Select
  
    Sheets("Matrice").Copy
    'supprime les icones afin d'éviter une erreur
    ActiveSheet.Shapes.Range(Array("Image 4", "Image 8", "Picture 9", "Image 10", "Image 11")).Select
   ' Selection.Cut
   
  
   
    'Sauvegarde avec comme nom du classeur Rapport chantier D1 du AX5
     ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(Range("D1"), _
fileFilter:="Excel Files (*.xlsx), *.xlsx")

   
      
    ActiveWindow.Close 'ferme la feuille
   
    End If
End Sub

Ce dernier plante au niveau des images, pourtant dans ma feuille mes images sont bien nommées comme dans le code.
Quelqu'un pourrais me conseiller?

Il y a également le format de sauveagrde (feuille avec macros) même si je remplace .Xlsx par . Xlsm j'ai tout de meme un message pour me demander si je souhaite la sauvegarde avec un classseur prenant en charge les macros.

Par avance merci pour vos conseils.

Cordialement.
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@louatt
Et avec cette modif?
VB:
Sub Sauvegarde_CR_Journalier_en_XLSX()
If MsgBox("Êtes vous sur de vouloir faire une copie de sauvegarde du rapport journalier au format excel  ?", vbQuestion + vbYesNo, "ARCHIVER  LE  COMPTE RENDU ...") = vbYes Then
' copie feuille dans nouveaux classeur
Sheets("Matrice").Copy
'supprime les icones afin d'éviter une erreur
ActiveSheet.DrawingObjects.Delete
'Sauvegarde avec comme nom du classeur Rapport chantier D1 du AX5
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(ActiveSheet.Range("D1"), _
fileFilter:="Excel Files (*.xlsx), *.xlsx")
ActiveWindow.Close 'ferme la feuille
End If
End Sub
 

louatt

XLDnaute Junior
Bonsoir staple 1600

je te remercie pour ton aide ça fonctionne impeccable.

Bonne fin de soirée.

Cordialement
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas