[vba-e] Suppression De Code Automatique

Version imprimable

06/04/2007, 09h47
Kevin_18

[vba-e] Suppression De Code Automatique

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?
06/04/2007, 09h57
Invité

Bonjour

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

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

Starec
06/04/2007, 11h41
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!
06/04/2007, 11h55
Invité

Re

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

Starec

Code:

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

06/04/2007, 13h37
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
06/04/2007, 13h48
Kevin_18

VBComponents n'est pas un type connu sous VBA
06/04/2007, 13h53
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
06/04/2007, 13h57
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?
06/04/2007, 14h00
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
06/04/2007, 14h01
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?
06/04/2007, 14h15
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