Discussion :

[drakkar_agfa]

Bonjour,

Le code utlise un chr() et sur certains postes cela ne fonctionne pas.
J'ai vérifié et, sur les postes en question, je ne vois pas de références marquées absentes.
http://www.developpez.net/forums/d94...-excel-2010-a/

Est-ce possible que la référence est présente mais erronée?
Quelle référence utilise le chr() ?

Merci à l'avance de votre aide!

[mercatog]

et en essayant vba.chr()?

[drakkar_agfa]

Merci mais ça ne fonctionne pas.

[mercatog]

Essaies ce petit test sur un post fonctionnel et un autre problématique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim i As Byte
 
With ThisWorkbook.VBProject.References
    For i = 1 To .Count
        Cells(i, 1) = .Item(i).Name
        Cells(i, 2) = .Item(i).IsBroken
        Cells(i, 3) = .Item(i).FullPath
    Next i
End With
End Sub

[drakkar_agfa]

Bonjour,

J'ai fait le test sur un poste qui ne fonctionne pas.
On obtient l'erreur 1004 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ThisWorkbook.VBProject.References

Est-ce que la personne n'a pas accès aux références en général?

Merci encore

[drakkar_agfa]

Bonjour,

J'ai remplacé le chr(10) par vbLf.
Ça fonctionne pour ce bout mais j'ai l'erreur de références avec Date.
En fait, j'ai un erreur de références pour presque tout.

J'ai ajouté du code qui détecte si la case "Faire confiance au projet Visual Basic" est cochée. Si elle ne l'est pas le code s'arrête.

Sur mon poste,
Si la case n'est pas cochée, le code s'arrête, si elle est cochée, tout est ok.

Sur un poste en problème,
Si la case n'est pas cochée, j'ai l'erreur de références. Si la case est cochée, alors Excel plante et demande si je veux récupérer le fichier.

J'ai testé le code de mercatog
Sur mon poste, j'ai la liste des références, sur un poste à problème, j'ai l'erreur 1004 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ThisWorkbook.VBProject.References

Est-ce que vous avez une idée?

Merci à l'avance!