Version imprimable
Re..
Tout donne à penser qu'un problème existe avant 2003
Une chose à voir :
Compte le nombre de références trouvées dans la boucle for each...
N'utilise pas .count mais un compteur que tu incrémentes à chaque passage (pour être certain de ce qu'il passe par toutes, valides ou non)....
puis compare ce nombre avec celui des références, pour voir s'il est identique (et on tentera alors ce que l'on pourra tenter) ou inférieur (et alors ===>> on jette l'éponge ...)
Bonsoir,
Ucfoutu : avec une partie de code que j'ai trouvé sur Internet et que j'ai un peu modifié, je fais ce que vous préconisez, mais un peu d'une autre manière.
Ce qui revient à supprimer toutes les références. A ma grande surprise 3 des références étaient bien décochées puis j'ai eu le message "Impossible d'entrer en mode arrêt maintenant" ce qui est normal lorsque l'on veut supprimer certaines références comme "Visual Basic for Applications".Code:
2
3
4
5
6
7
8
9
10
11
12
ensuite j'ai remis :
En pas-à-pas j'ai pu suivre les différents noms et la variable "tata" m'a permis d'affecter le nom "AcroBrokerLib" à la variable "toto" (j'avais coché volontairement cette référence dont je n'ai pas besoin.Code:
2
3
4
5
Et j'ai eu le même message : "Impossible d'entrer en mode arrêt maintenant".
Mais finalement en vérifiant, la référence concernée était bien décochée.
Voila où j'en suis.
Finalement, avec de l'aide, j'avance un peu.
Il me reste maintenant à retrouver les références qui étaient cochées à l'origine et qui sont maintenant décochées et à faire l'essai avec cette référence "MANQUANTE : Ref Edit Control".
Mais c'est l'heure de la soupe, ma femme l'a crié.
Bon, Jacques_jean...
Je vais essayer de voir ce que l'on peut tirer de ces "expériences" ... (sans grand optimisme)...
1) tu peux me tutoyer, s'il te plait ? (tu n'as QUE 64 ans... je suis encore bien plus âgé ...:lol:)
2) tu ne m'as pas répondu sur ce que te retournait un compteur autre que le .Count.... peux-tu le faire ?
A +
Pas de problème Ucfoutu,
Je viens encore de vérifier.
Je n'avais plus que 3 références de cochées et j'ai bien 3 dans le compteur.
Je coche 2 nouvelles références et j'ai bien la valeur = 5.
Et cela bien sûr aussi bien avec la procédure que je viens d'indiquer ou avec la précédente utilisant :
En ce qui concerne le tutoiement ou le vouvoiement, pas d'inquiétude. Tout le monde peut me tutoyer, mais j'ai beaucoup de mal à le faire. Même si je dis aujourd'hui "tu as raison" demain j'aurai oublié et je reprendrais mes vieilles habitudes.Code:
2
Je sais que j'ai souvent du mal à le faire comprendre, mais surtout ne croyez pas que c'est une marque de supériorité comme certains ont tenté de m'en convaincre, au contraire, si vous connaissiez mes origines, je pense que vous en seriez convaincu. Même à mon âge, c'est simplement encore mes vieux complexes qui sont toujours là et pour maintenant il ne disparaîtront qu'avec moi.
Bon...
Ta réponse encline à quelques espoirs, puisqu'il est quand même capable de retrouver le nombre de références cochées.
Ce que je pense est ceci :
pour toutes celles qui sont valides, il sera capable de retourner le contenu de .Name (et donc l'index également)
Un bon on error resume Next (j'aime en général pas, mais...) et :
un tableau des index ayant pu retourner le contenu de .Name puis ==>>
Toutes les solutions de continuité dans les valeurs de ce tableau (on appelle solution de continuité les "trous", par exemple 3 est une solution de continuité dans la série 1,2,4,5).
Prenons l'exemple d'une solution de continuité relevée pour l'index 3, maintenant ===>> essayons de supprimer la référence qui a cet index.
Suis fatigué. Tu peux essayer ?
Ok, j'essaie demain matin dans la mesure de mes moyens, car je n'ai peut-être pas tout compris.
Mais dans ce cas je poserai des questions.
Je dois être un peu fatigué aussi.
Alors bonne nuit en attendant, en espérant que je ne vais pas ressasser le problème une partie de cette nuit.
Il y a peut-être une autre façon que la recherche de solutions de continuité dans un tableau...
Et si yu essayais ainsi (j'écris là à main levée) :
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14n% = Application.VBE.ActiveVBProject.References.Count dim titi as string for i% = 1 To n% on error resume next 'en principe l'évocation de .Name pour une référence non valide provoque 'une erreur, si l'on en croit Microsoft. 'essayons alors d'en profiter titi = Application.VBE.ActiveVBProject.References.Item(i%).Name if err <> 0 then msgbox "manque la référence d'indice " & i% Application.VBE.ActiveVBProject.References.Remove Application.VBE.ActiveVBProject.References.Item(i%) end if err.clear next
bonsoir,
tiens voilà un code qui marche sous Excel 2002 , j'ai coché la référence au controle dans un projet excel, je suis sorti d'excel j'ai renommé la dll et je suis revenu sous excel pour constaté le "manquant" et alors :
Pour info le résultat dans fenêtre exécution :Code:
2
3
4
5
6
7
8
9
10
Citation:
VBA
Excel
stdole
Office
MSForms
C:\Program Files\Microsoft Office\OFFICE10\REFEDIT.DLL
Bonsoir,
Le problème (voir plus haut) est que cette expression :
qui fonctionne bien avec d'autres versions d'office, semble être buggée avec Excel 2000 ...(selon ce qu'en dit DarkVader et qu'a constaté Jacques_Jean)Code:If Application.VBE.ActiveVBProject.References(i).IsBroken
Si tel n'était pas le cas, la solution donnée par le lien plus haut (et qui l'utilise) aurait fait l'affaire.;)
merci ucfoutu, mais pas la peine de poster un message pour répeter ce qui est écrit plus haut, ton lien n'as rien de précis il parle d'access 2003, mon code lui je l'ai testé hier sous excel 2002...
et comme ton message ma déplu.. j'ai aussi fait le test ce matin sous Excel 2000 , (9.0.3821 SR1) . Et ce code fonctionne !
alors arrête avec tes "ont dit..." et fait quelques essais avant de parler.
PS : les message obtenu dans fenêtre exécution sont similaire au précédents :
Citation:
VBA
Excel
stdole
Office
MSForms
C:\Program Files\Microsoft Office\Office\REFEDIT.DLL
?Application.Version
9.0
Bonjour,
Je crois qu'il est bon de préciser à nouveau l'origine du problème (que j'avais moi-même un peu oublié en fonction de l'évolution des réponses) :
-Comment supprimer une référence manquante.
Je viens de tester le code donné par JackOuYa :
Résultat : cela fonctionne.Code:
2
3
4
5
6
7
8
9
10
A partir du moment où il y a bien une référence manquante comme celle que j'avais indiqué au début : "MANQUANT : Ref Edit Control"
celle-ci est bien désactivée.
Seul problème : j'ai toujours le message "Impossible d'entrer en mode arrêt maintenant" et je ne parviens pas à en empêcher l'affichage.
Donc :
-pour trouver et supprimer une référence manquante ce code fonctionne (reste à trouver la suppression du message, mais là je crois que c'est moi qui suis un peu trop fatigué).
-pour supprimer une référence dont le nom est connu ou pourra être connu en utilisant deux variables le code ci-dessous fonctionne :
A partir de cette dernière procédure on peut facilement lister les noms des références actives.Code:
2
3
4
5
6
7
8
9
10
11
12
13
bonjour,
mais en voulant supprimer cette référence Manquante de ton fichier excel, ne prends tu pas ton probléme à l'envert ? pourquoi cette référence est-elle manquante, rededit.dll n'est-'elle pas présent sur ta machine ?
La raison est dans ce que j'ai écrit dans une réponse précédente :
Alors je sais activer la référence "Ref Edit Control" à partir du sous-répertoire "Office" mais cette activation est refusée tant que la précédente n'a pas été désactivée même si elle est considérée comme manquante (elle est simplement reconnue sous le même nom, même si le chemin est différent et qu'elle n'est pas trouvée).Citation:
Je précise qu'il s'agit d'un fichier qui navigue entre 2 versions d'Excel (2000 et 2003).
Pour cette ligne : "MANQUANT : RefEdit Control" le chemin indiqué en bas est :
"C:\Program Files\Microsoft Office\Office11\RefEdit.dll"
Mais bien sûr, sur la version 2000 le fichier se trouve dans :
"C:\Program Files\Microsoft Office\Office"
Mais je vais maintenant pouvoir mettre "Résolu" et remercier tous les intervenants qui, comme c'est souvent, sinon toujours le cas ont permis d'arriver à la denière solution, que vous avez donnée, mais aussi à d'autres solutions pour d'autres cas.
d'accord bonsoir...
j'ai moi même mon fichier de teste je l'ai fais "navigué" entre ma version 2002 et 2000 (office10 et Office) sans probléme excel se débrouille tous seul pas besoin de ce prendre la tête avec les répertoires...
Bien sûr, je crois que votre solution est dans votre réponse.
Moi je n'ai que la version 2000, donc à réception d'un fichier enregistré sous 2003 = référence manquante.Citation:
j'ai moi même mon fichier de test je l'ai fait "naviguer" entre ma version 2002 et 2000 (office10 et Office)
d'accord mais dans d'autre classeur vous pouvez ajouter cette référence ?
Bonsoir,
J'ai un peu l'impression que maintenant on fait un peu du "sur place".
En effet si j'ouvre un autre classeur, je peux modifier les références, surtout s'il n'y en a aucune indiquée comme "manquantes".
Mais cela ne change rien lorsque je veux ouvrir le classeur incriminé, c'est-à-dire celui qui provient de la version 2003 et qui automatiquement précise que la référence "Ref Edit Control" qui devrait exister dans le sous-répertoire "Office11" qui lui n'existe pas sur mon PC, est manquante.
Sinon je n'ai rien compris, mais c'est bien ce qui se passe.
je m'exprime mal en fait ce que je veux savoir c'est si la référence Ref Edit Control et disponible sur ton poste 2000 , normalement sous le répertoire Offfice ..?Citation:
Envoyé par jacques_jean
Oui bien sûr, elle est disponible sur "C:\Program Files\Microsoft Office\Office"
Mais lorsque j'ouvre ce fichier précis cette référence est recherchée sur "\Office11" et n'étant pas trouvée je ne peux modifier qu'en supprimant celle-ci et en ajoutant (si besoin est) l'autre provenant de "\Office".
C'est tout simple et cela fonctionne maintenant, mais bien sûr, on peut toujours imaginer que ce serait plus simple si la référence était recherchée dans le répertoire où elle existe, mais ce n'est pas le cas.
Bonjour,
c'est précisément pour cette raison que les développeurs préfèrent ajouter ces références en utilisant le GUID.
Genre
Ils évitent de cette manière les inconvénients que tu rencontres (ce GUID permet de retrouver, sur la machine finale, le bon chemin, systématiquement - pouyr autant, bien évidemment, que le produit considéré, quelle qu'en soit la version et l'endroit où il existe, existe bien sur la machine finale).Code:Application.VBE.ActiveVBProject.References.AddFromGuid "{###FFF-####-####-C###-##########75}", 0, 0