Re coucou, j’espère que ca c bien passé
Voici comme g modifié pour que ça convienne à ma volonté :
'sauvegarde des données
Windows(nomfichier).Activate
Cells.Select
Selection.Copy
Windows(nomfichier1).Activate
Range('A1').Select
ActiveSheet.Paste
Range('A1').Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Close savechanges:=True
Range('A1').Select
Application.ScreenUpdating = True
Je copie toute la feuille et je ne fais pas de collage spécial, donc je devrais encore avoir les formules mais ce n’est pas le cas ( à moins qu’il faille faire collage special formules ??)
En faite, moi aussi je pense comme toi que le fichier ne doit pas etre changé pour refléter exactement la proposition mais mon responsable n’est pas du même avis alors ….
Le mieux serait que ça reste exactement identique au fichier origine ( Formules + mise en page + Macros ) ( g une macro qui permet d’envoyer mon tableau excel vers un doc word ou se trouve toute la réglementation du devis sur mon fichier origine, il faut qu’elle puisse encore fonctionner !!!)
Donc ta proposition pour tout garder actif m’interesse fortement !!
Amicalement, à++