Copier sans Macro

Bonjour,

Voila mon problème, je voulais que sur appui d'un bouton la feuille active soit copier et enregistrer dans un autre Woorkbook sans les macro qui entraînent des erreurs lors de la copie, en cherchant sur le net, j'ai trouvé ce code :

Sub SaveAsWithoutMacros()
 Dim NomSource$, CheminDest$, NomDest$
 Dim VBC As Object

 NomSource = "VBA_TRS_060616.xls"
 CheminDest = "C:\Users\Bastien\Desktop\TRS\"
 NomDest = ActiveSheet.Name

 Workbooks(NomSource).SaveAs CheminDest & NomDest

 With ActiveWorkbook.VBProject

  For Each VBC In .VBComponents
   If VBC.Type = 100 Then
    With VBC.CodeModule
     .DeleteLines 1, .CountOfLines
     .CodePane.Window.Close
    End With
   Else: .VBComponents.Remove VBC
   End If
  Next VBC 'LL
 End With

 Sheets(1).Select
    ActiveWindow.SelectedSheets.Delete

 Application.Quit
 SendKeys "%O"

 End Sub

Il fonctionne parfaitement, mais le problème c'est que les deux fichiers sont fermés alors que je voudrais que le fichier d'origine "VBA_TRS_060616.xls" reste ouvert.

Merci

Bonjour

Essaie ceci :

- désactiver les deux instructions ci-dessous

 Application.Quit
 SendKeys "%O"

- Ajouter cette instruction juste avant Sheets(1).select

ActiveWorkbook.Close SaveChanges:=True

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de clôturer le fil

Crdlt

Sa n'a rien changer, les deux classeurs se ferme toujours

Re

Quel est le pourquoi de ces deux instructions dans le classeur actif (donc celui que tu sauves au début du code)

Sheets(1).Select
ActiveWindow.SelectedSheets.Delete

C'est un écran d'accueil qui permet de lancer un serveur OPC, comme il ne sert a rien dans le fichier sauvegarder (on ne veut que les données) je voulais le supprimer, mais sa ne fonctionne pas

Re,

Lorsque la macro exécute les deux instructions dont je parle, tu es sur quel fichier actif ? Le sauvegardé ?

Crdlt