SUPPRESSION D'OBJETS 'VBPROJECT' OU DE SON CODE EN VBA EXCEL

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 juil. 2006 à 11:39
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 3 sept. 2006 à 02:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/38518-suppression-d-objets-vbproject-ou-de-son-code-en-vba-excel

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
3 sept. 2006 à 02:52
'essaye' de l'adapter 'en vain'...

y'a pas grand chose a faire, le code de l'un et l'autre sont très similaires...
(1ère étape, Projet > Références > Microsoft Excel X.0)
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
2 sept. 2006 à 18:46
Bonjour
Je reviens sur ce code et essaye de l'adapter en VB6.
Y a t'il des sources vb6 traitant ce type d'objet (excel)?

Je cherche en vain.

Merci
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
27 août 2006 à 15:18
Salut,

suite à une demande sur le forum :

Si vous souhaitez traiter un classeur protégé, il faut connaître le mot de passe, dans ce cas, faite ceci :

il faut aller dans cette procédure :
Sub Cherche_Composants()
' *** 2ème dernière procédure du module Module1

Ensuite, modifier l'instrucion Workbooks.Open (FichierATraiter) par

Workbooks.Open Filename:=FichierATraiter, Password:="mot de passe"

++
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
23 août 2006 à 19:32
Salut Rey (et merci) !

C'est ce que j'allais mettre en lien, comme quoi le dernier message de ce Topic répondait certainement à sa demande :

http://www.vbfrance.com/infomsg_FAIRE-APPARAITRE-USERFORM_800977.aspx#7

++
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 14:47
bonjour et merci pour l'info.
Cela fonctionne.
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
23 août 2006 à 14:30
Outils > Macro > Sécurité > Sources Fiables
et tu coches les deux options
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 14:16
Pour être plus précis mon projet à pour but de faire la liste de tous les fichiers de type MSOFFICE (word excel ppt access ) de lister toutes les macros pour chaque type de fichiers et d'afficher le nom des projets, modules, nbre lignes et autres propriétés et de comptabiliser le total.

Voila et ton exemple me semble très interressant.
Merci de ton support.
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 14:06
Merci

Je continue de chercher une explication.
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
23 août 2006 à 14:04
Et bien c'est que c'est lié soit à la sécurité Xp, soit à MSOffice 2003.
Le truc, c'est que n'ayant pus reproduire ce message, je ne sais pas pourquoi il apparait !
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 14:00
oui je confirme

l'arret se produit dans ton module1 ligne :
Set VBP = MonBook.VBProject
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
23 août 2006 à 13:51
Le truc c'est que je n'ai jamais eu ce message et je ne sais pas d'où il pourrait provenir.
Peut-être que ton fichier que tu essaies d'ouvrir est lui en version inférieure.
Tu as ce message avec mon fichier exemple ?

++
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 13:40
pour la version Win XP et XL 2003

J'ai trouvé d'autres scripts sur le web et le meme message apparait !!!

Merci de ton aide
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 13:11
merci de me répondre je confirme niveau securite macro mini
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
23 août 2006 à 12:57
Salut,

et avec mon fichier exemple, tu as aussi ce message ?
Sinon, la sécurité de tes macros sont peut-être à un niveau élevé ?

Sinon, tu as quelle version d'Excel, et quel système d'exploitation ?

++
technicobjects Messages postés 9 Date d'inscription vendredi 16 avril 2004 Statut Membre Dernière intervention 2 janvier 2009
23 août 2006 à 12:52
Bonjour
ce code me serait très utile, mais j'obtiens une erreur de type :
1004 "l'acces par programme au projet visual basic n'est pas fiable"

merci de ton aide
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
13 juil. 2006 à 11:00
Salut Rey,

comme promis, la MAJ est faite. Encore du boulot dessus mais je pense que ça peut-être interressant. ;-)

@+
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
11 juil. 2006 à 12:11
D'ailleurs Rey, en plus du code je mettrai un fichier.xls en exemple, avec des UserForms... ;-)

++
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
11 juil. 2006 à 11:49
Salut Rey.

Merci pour ton commentaire. Je vais voir ça cet après midi.
Faut aussi que je rajoute le calcul de lignes dans un module et le nom / type des composants liés au VBProject.

Je mettrai la boite de dialogue pour le choix du fichier, comme dans ma source doublons.

A++ Rey et merci du conseil

Mortalino
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
11 juil. 2006 à 11:39
dommage que tes fonctions ne prennent pas de paramètre... ici, les noms et chemins sont en dur...
Rejoignez-nous