Se connecter avec
S'enregistrer | Connectez-vous

[VBA] Chercher dans du code VBA

Dernière réponse : dans Programmation
Lassé par la pub ? Créez un compte

Salut, Jacouille35

En tapant CodeModule.Replace dans Gogole, le premier résultat me renvoie sur ce lien qui comporte le code suivant (à tester) :
  1. Dim SL As Long, EL As Long, SC As Long, EC As Long
    

  2. Dim S As String
    

  3. Dim Found As Boolean
    

  4. With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    

  5.   SL = 1
    

  6.   SC = 1
    

  7.   EL = 99999
    

  8.   EC = 999
    

  9.   Found = .Find("find this", SL, SC, EL, EC, True, False, False)
    

  10.   If Found = True Then
    

  11.     S = .Lines(SL, 1)
    

  12.     S = Replace(S, "find this", "replace with")
    

  13.     .ReplaceLine SL, S
    

  14.   End If
    

  15. End With
Ceci dit, j'espère que tu sais ce que tu fais : modifier du code par du code doit répondre à un besoin très spécifique (ou ponctuel).
En tous cas, bonne continuation.

Bonjour,

Je ne veux pas modifier du code, je veux juste récupérer une partie du code. J'explique , j'ai des
Windows("Classeur.xls").Active
par exemple. Et je veux pouvoir récupérer Classeur.xls et l'envoyer dans une BDD Access. Je me suis dis , si je toruve un .xls dans mon code alors je récupère ce qu'il y à dans mes guillemets. Quelqu'un aurai une idée?

Merci d'avance
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde