Discussion :

[PJ_VBA]

Bonjour,

Dans le cadre du travail je dois mettre un fichier Excel 97 contenant du code VBA sur un serveur linux en mode partagé, après avoir converti le fichier en fichier Calc (open Office 3.1.1). Le protocole interne m'interdit des macros. J'ai essayé de supprimer tout le code du fichier Excel (après avoir fait "Alt F11") avant de le convertir en Calc. L'ouverture du fichier avec OpenOffice Calc me signale qu'il y a des macros. Comment tout supprimer ?

Par avance merci

[Didier Gonard]

Bonjour,

voir ce tuto?

http://silkyroad.developpez.com/VBA/...cEditor/#LIV-D

sinon, si tu as excel 2007 ou 2010 dans la boîte, il suffit de charger le fichier sous cette version, de l'enregistres en .xlsx et tout le vba est supprimé, tu le réenregistres ensuite en .xls, ça peut s'automatiser avec un classeur outils...

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[PJ_VBA]

Bonjour et merci à Didier.
Le code suivant marche BIEN dans Excel2007 mais pas Excel97 :

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
Dim VbComp As VBComponent
 
    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
 
       ThisWorkbook.Save
 
End Sub

En fait, j'ai le message d'erreur suivant :

Code :

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

VbComp as VBCoponent

Erreur de compilation:
Type défini par l'utilisateur non définiComment résoudre ce problème (je dois faire exécuter le code via Excel97) ?
Par avance merci

[kiki29]

Salut, pour ne pas avoir de références à cocher

Code :

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

Dim VbComp As Object