Mise à jour Modules par macro

[Crusoe]

Bonsoir le forum,

Comment remplacer par macro un module dans un projet VBA ?

Lorsque je supprime le module d'origine pour le remplacer, ce dernier ne s'efface pas toujours et l'import du module de remplacement se renomme avec un 1 à la fin.
Du coup j'ai des procédures en double.


Merci de votre aide

[kiki29]

Salut, voir sur http://silkyroad.developpez.com/VBA/VisualBasicEditor/

[Crusoe]

Bonjour et merci pour la réponse.

Ce lien est très intéressant pour la manip des modules.

Par contre je ne trouve pas de solution à mon problème.

Lorsque je veux supprimer puis remplacer par macro plusieurs modules de mon projet, il arrive que la suppression ne se fasse pas. Du coup à l’import le module est doublé.

Idem si je renomme le module à remplacer.

Ce problème est fréquent lorsque je veux remplacer un groupe de modules (4 ou 5).

On dirait que VBA n’efface pas de sa mémoire le nom du module supprimé.

Existe-t-il un utilitaire, ou une macro, qui permettrait de mettre à jour un projet VBA (Excel) en toute sécurité ????

Merci à tous

[Philippe JOCHMANS]

Bonjour

Envoyé par Crusoe

Par contre je ne trouve pas de solution à mon problème.

Et si tu mettais le code que tu utilises sur le forum, je pense que cela aiderait les membres de celui-ci à t'aider.

Comment veux-tu qu'ils puissent t'aider sans cela ? Il y a peut-être un problème dans celui-ci.

Philippe

[Crusoe]

Salut le forum,

Exact, avec le code ce serait peut être plus clair....

Je précise aussi que le code est dans le projet ou sont les modules à remplacer.

Je n'ai pas testé l'opération en partant d'un projet séparé...

Peut être que ...

Code :

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
28
29
30
31
32
33
34
35
36
 
Sub MiseAJourAuto()
  Dim moduleASupprimer As String
  Dim moduleAAjouter As String
  Dim GarePrincipale As String
  Dim CheminModule As String
  'On Error Resume Next
  CheminModule = LitDansFichierIni("Path", "St_ChHector", ThisWorkbook.Path & "\Hector.ini")
  GarePrincipale = LitDansFichierIni("GarePrincipale", "St_GarePrincipale", ThisWorkbook.Path & "\Hector.ini")
  CheminModule = CheminModule & GarePrincipale & "\MaJ\"
  monfichier = Dir(CheminModule & "*.bas") '' lit dans le répertoire actuel
  If monfichier > "" Then
    Do Until monfichier = ""
      moduleAAjouter = monfichier
      moduleASupprimer = Left$(monfichier, Len(monfichier) - 4)
      With ThisWorkbook.VBProject.VBComponents
        For x = 1 To .Count
          Select Case .Item(x).Type = 1
            Case 1
              If UCase(.Item(x).Name) = UCase(moduleASupprimer) Then
                .Remove .Item(moduleASupprimer)
                Exit For
              End If
            Case 3
            '
            Case 100
            '
          End Select
        Next x
        .Import CheminModule & moduleAAjouter
      End With
      Kill CheminModule & monfichier
      monfichier = Dir
    Loop
  End If
End Sub

Merci pour votre aide