[RESOLU] Gestion des erreurs dans VB

Logiciel & apps Programmation
1

Salut à tous !

J’ai une macro dans VB et je souhaiterais faire une gestion des erreurs, autant sur les erreurs de compilation que toutes les autres…
Bref, j’essaie avec On error Goto, mais il me prend pas toutes les erreurs, qqn aurait-il une idée ?!?

Merci d’avance à tous !

2

si tu as la soluce cela m interesse aussi !
car j ai deja cherche mais rien trouve !

3

J’essaie avec le code suivant, mais il me dit que la méthode Replacement de l’objet Find a échoué…

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = wdColorRed
With Selection.Find
.Replacement.ClearFormatting
.Replacement.Font.Color = wdColorRed
.text = “und”
.Replacement.text = “und”
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

4

le “On error Goto” dans une boucle With/end With ne fonctionne pas…

5

Non, car je n’en ai pas mis…

6

Alors pour ceux que ça intéresse, voici la sol que j’ai trouvée :

[cpp]Dim Apw As Object
Dim ww As Object

Set Apw = CreateObject(“Word.Application”)
Set ww = Apw.ActiveDocument

Apw.Documents.Open FileName:=“test.doc”, ReadOnly:=True
Apw.Visible = True

    Apw.Selection.Find.ClearFormatting 
    With Apw.Selection.Find 
        .text = "et" 
        .Forward = True 
        .Wrap = wdFindContinue 
        .Format = False 
        .MatchCase = False 
        .MatchWholeWord = False 
        .MatchWildcards = False 
        .MatchSoundsLike = False 
        .MatchAllWordForms = False 
    End With 
    While Apw.Selection.Find.Execute 
        Apw.Selection.Font.ColorIndex = wdDarkBlue 
    Wend[/cpp]