Projet ou bibliothéque introuvable [Résolu]

[tom0ne]

Bonjour,

J'ai une erreur sur la fonction ci-dessous alors que la macro fonctionnait très bien jusque là.

Code :

1
2
3
4
Function NetText(txtTemp As String) As String
NetText = Left(txtTemp, Len(txtTemp) - 2)
 
End Function

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub ANOMALIES()
'
' ANOMALIES Macro
' Macro enregistrée le 03/02/2010 par THOMAS
'
 
Dim oTbl As Table
Dim intI As Integer, intJ As Integer
Dim inTbl As Integer
' Test de la position du curseur
If Not Selection.Information(wdWithInTable) Then
MsgBox "Le curseur n'est pas dans une table !"
Exit Sub
End If
'Ajout d'un signet
Selection.Bookmarks.Add Name:="S1"
'Selection d'une partie du document
Selection.HomeKey unit:=wdStory, Extend:=True
inTbl = Selection.Tables.Count
'Affectation de la table
Set oTbl = ActiveDocument.Tables(inTbl)
intJ = oTbl.Rows.Count
'Boucle sur les lignes de la table
For intI = 1 To intJ
'Mise en forme du texte
Select Case NetText(oTbl.Cell(intI, 3).Range.Text)
Case "A1"
With oTbl.Rows(intI).Range
    .Font.Color = wdColorBlack
End With
 
Case "A2"
With oTbl.Rows(intI).Range
    .Font.Color = wdColorGreen
 
End With
Case "A3"
With oTbl.Rows(intI).Range
    .Font.Color = wdColorRed
    .Font.Bold = True
End With
End Select
 
Next intI
'Sélection du signet
Selection.GoTo What:=wdGoToBookmark, Name:="S1"
 
Set oTbl = Nothing
End Sub

J'ai pensé à une référence manquante dans Microsoft Visual Basic, mais laquelle??

Quelqu'un a une idée?


Merci de votre aide

[Heureux-oli]

Salut,

Ta macro fonctionne-t-elle dans Word ou dans une autre application comme Excel ?

[tom0ne]

Salut Heureux Oli,

Comment ça va?

J'ai trouvé le problème,

J'avais ajouté la référence pdfcreator.
Comme j'utilise finalement adobe distiller, j'ai supprimé le logiciel pdf creator mais la référence était restée dans MVB.

C'est elle qui provoquée l'erreur.

Dans MVB, la référence pdfcreator était précédée de "manquant"
En la décochant, l'erreur a disparu.

bon week end.

@++