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

[Kevin_18]

VBComponents n'est pas un type connu sous VBA

[Invité]

Re

J'ai compris il faut rajouter une référence, tu l'as trouveras dans le tuto, c'est :

Microsoft Visual Basic for Applications Extensibility 5.3.

Starec

[Kevin_18]

Ca marche comment une référence? Fin, c'est expliquer dans le tuto comment l'activer, mais une fois que c'est activer toutes les nouvelles appli excel lorons par defaut ou pas?

[Invité]

Re

1 - Tu te mets dans l'éditeur VB
2 - Dans la barre de menu Outils/Références, là tu sélectionnes la référence dont je viens de te donner le nom, tu coches la case devant.

Ainsi tu peux utiliser les composants correctement.

Starec

[Kevin_18]

Scuse mon message n'était pas assez clair je voulais dire estce que toutes les applis excel maintenant aurons la référence ou juste celle la?

[Invité]

Re

Je ne suis pas un spécialiste Excel, (je suis plutôt Access), mais de mémoire c'est lié au classeur, et non à l'appli excel.

Ainsi si tu mets ton classeur xls sur un autre poste, tu ne devrais pas avoir de soucis. Bien sûr si ce poste à Excel.


Starec