[XL-2003] Copie onglet sans macro

Copie onglet sans macro

Salut les Kracks,

Y a-t-il un moyen de copier un workbook excel sans les macro pré-enregistrées?

En effet, afin de faire du reporting, je souhaiterai mettre une copie du fichier en question (sur un drive sans que les macros conditionnelles agissent sur ce fichier!
Code:

1 2 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.SaveAs monChemin2 & Fichier2 & ".xls"
:roll:

Coucou,

regardes ici :

Citation:

Enregistrer sans les macros

Est-il possible depuis VBA d'enregistrer un fichier sous un autre nom (save as) sans les modules de macros qui lui sont éventuellement attachés.

Une solution VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
sub SaveAsWithoutMacros()
 Dim NomSource$, CheminDest$, NomDest$
 Dim VBC As Object
 
 NomSource = "EssaiSaveAs.xls"  'à adapter
 CheminDest = "C:\WindowsTemp" 'à adapter
 NomDest = "Essai.xls"      'à adapter
 
 Workbooks(NomSource).SaveAs CheminDest & NomDest
 
 With ActiveWorkbook.VBProject
 'cette partie du code est de Laurent Longre
  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
 
 Application.Quit
 SendKeys "%O"
 
 end sub

Merci, j'vais faire DoDo:bebe: