louatt
XLDnaute Junior
Bonsoir à tous,
j'utilise ce code pour sauvegarder une feuille dans un nouveau classeur.
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.
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 SubCe 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.