Ouverture de SUPINFO USA à San Francisco en 2008. Des études en informatique en Californie à un tarif abordable ! Inscrivez-vous dès maintenant !

Recherche

6 messages

VirginieGE

[RESOLU] Gestion des erreurs dans VB

le 09 Mai 05 à 16h54

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 !

Seth77

le 18 Mai 05 à 15h46

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

VirginieGE

le 18 Mai 05 à 17h50

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

patanton

le 18 Mai 05 à 18h08

le "On error Goto" dans une boucle With/end With ne fonctionne pas...

VirginieGE

le 18 Mai 05 à 18h11

Non, car je n'en ai pas mis....

VirginieGE

le 20 Mai 05 à 14h25

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]

6 messages

Vous devez être connecté pour écrire un message !

Sujets Similaires:

Glossaire High-Tech : # A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Découvrez aussi : AchetezFacile (Comparateur de prix) - JeuxVideo.fr - Neteco - Ozap - Mobinaute - JeuxVideo.TV (Emissions TV)
Echanges de Liens : Allociné (Cinéma, VOD) - Cityvox (Paris) - Franchise Jeux Vidéo - Boursier.com (Bourse Quotidien) - Infobebes (Grossesse)
Culture Jeux (Encyclopédie) - Webdistrib (Matériel Informatique) - Locafilm (Location DVD) - Pixmania (GPS Garmin) - auFeminin (beauté, mode)
Sur cette page : Gestion des erreurs dans VB : Salut à tous ! J'ai une macro dans VB et je so.... Mots Clefs : informatique, PC, hardware, matériel, jeux vidéo, multimédia, logiciel, téléchar....