Discussion :

[Kevin_18]

Voici mon problème!
J'ai un fichier avec plein de code VBA dedans correspondant à divers traitement!
Je l'enregistre automatiquement (Save as=Filename...) dans un répertoire!
J'aimerais que le fichier est rouver, il soit vide de code!
Ce qui revient à supprimer le code avant une sauveagarde automatique!
Est ce possible?

[Invité]

Bonjour

Tu devrais trouver dans ce tuto des codes qui pourraient t'aider à surpprimer ton code.

http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Starec

[Kevin_18]

J'ai trouvé ce que je cherchais mais le problème c'est que c'est du VB qui ne passe pas sous VBA!

[Invité]

Re

Où as tu trouvé ton code, montre le pour voir.

Starec

[Kevin_18]

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
Sub SupprimeTout()
    'Enregistre le classeur et supprime la totalité des procédures
    Dim VbComp As VBComponent
 
    'Enregistre le classeur
    ThisWorkbook.SaveAs "C:\Sauvegarde.xls"
 
    For Each VbComp In ThisWorkbook.VBProject.VBComponents
        Select Case VbComp.Type
            Case 1 To 3
                ThisWorkbook.VBProject.VBComponents.Remove VbComp
            Case Else
                With VbComp.CodeModule
                .DeleteLines 1, .CountOfLines
                End With
        End Select
    Next VbComp
 
    'Sauvegarde les modifications
    ThisWorkbook.Save
End Sub

[Invité]

Re

C'est le même type de code que ce qu'il y'a dans le tuto que je t'ai fourni.

Quel est le problème? C'est applicable à Excel.

Starec