Discussion :

[Djromé]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo69]

Coucou,

regardes ici :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Djromé]

Merci, j'vais faire DoDo