comment on utilise : Attribute VB_Name = "ListeDossiersSousDossiers"

[Alfred WALLACE]

Bonjour,
dans mon message ici : http://tinyurl.com/ya86hq5
Frederic SIGONNEAU

me suggère du code, qui commence par
Attribute VB_Name = "ListeDossiersSousDossiers"

ou par :

Attribute VB_Name = "ProprietesClasseurFerme"

Mon pb est que je ne sais pas ni à quoi çà sert, ni comment le mettre
en oeuvre...

un chtit' éclairage sera très très très ... éclairant !

Merci
José

[michdenis]

Bonjour,

| Attribute VB_Name = "ListeDossiersSousDossiers"

En fait, cette ligne ne sert pas � la macro elle-m�me.
Elle est utilis�e par Fr�d�ric pour la gestion de son site
internet - gestion des diff�rentes proc�dures- que l'on
retrouve sur son site. En fait, tu la supprimes lorsque la
macro est copi�e dans un module.

La proc�dure emploie DSO OLE (vu dans ton autre message)
du fichier Dsofile.dll. Sous Excel 2007 et Windows7, je ne retrouve
pas cette biblioth�que.
Tu peux trouver de l'information sur cela � cette adresse :
http://support.microsoft.com/kb/224351

"Alfred WALLACE" <jos...@gmail.com> a �crit dans le message de groupe de discussion :
82a3da1a-cb8b-485a...@21g2000yqj.googlegroups.com...

Bonjour,
dans mon message ici : http://tinyurl.com/ya86hq5
Frederic SIGONNEAU

me sugg�re du code, qui commence par
Attribute VB_Name = "ListeDossiersSousDossiers"

ou par :

Attribute VB_Name = "ProprietesClasseurFerme"

Mon pb est que je ne sais pas ni � quoi �� sert, ni comment le mettre
en oeuvre...

un chtit' �clairage sera tr�s tr�s tr�s ... �clairant !

Merci
Jos�

[Modeste]

Bonsour® michdenis avec ferveur ;o))) vous nous disiez :

> Bonjour,
>
>> Attribute VB_Name = "ListeDossiersSousDossiers"
>

> En fait, cette ligne ne sert pas à la macro elle-même.
> Elle est utilisée par Frédéric pour la gestion de son site

pour etre exact cette ligne est ajoutée lorsque l'on utilise la fonction export d'un module
on obtient un fichier avec une extension ".bas"

cette ligne sert à l'editeur VBE lorsque l'on utilise la procédure d'import d'un fichier avec une extension ".bas"
et n'apparait alors plus dans le code du module importé

[michdenis]

| pour etre exact cette ligne est ajout�e lorsque

| l'on utilise la fonction export d'un module
| on obtient un fichier avec une extension ".bas"

| cette ligne sert � l'editeur VBE lorsque l'on
| utilise la proc�dure d'import d'un fichier
| avec une extension ".bas"

Je veux bien �tre pr�cis... mais lorsque l'on exporte un module
d'un projet vba, on obtient sur la premi�re ligne du fichier .bas
qu'on peut ouvrir avec une application comme "NotePad"
ceci : Attribute VB_Name = "Module1"
Ce n'est pas le nom de la proc�dure qui est affich�e, mais celui
du module. Imagine, un module contient habituellement plusieurs
proc�dures ! En cons�quence, j'ai conclu que c'�tait une approche
int�ressante que Fr�d�ric avait trouv�e pour la gestion des fichiers
sur son site. Attendons son retour, il saura nous le dire !

[michdenis]

J'ajouterai ce petit d�tail, Attribute VB_Name = "Module1"
Il peut �tre probl�matique d'importer un module, car notre
projetVBA peut d�j� contenir un module du m�me nom.
Sachant que le nom du module � importer est inscrit en
premi�re ligne dans une syntaxe typique, il est tr�s facile
de v�rifier et de modifier le cas �ch�ant, le nom du module
avant importation du fichier .bas � l'aide de quelques lignes
de code suppl�mentaire.

"Modeste" <g...@libre.fr> a �crit dans le message de groupe de discussion :
uSnH2lZp...@TK2MSFTNGP02.phx.gbl...

Bonsour� michdenis avec ferveur ;o))) vous nous disiez :

> Bonjour,
>
>> Attribute VB_Name = "ListeDossiersSousDossiers"
>

> En fait, cette ligne ne sert pas � la macro elle-m�me.

> Elle est utilis�e par Fr�d�ric pour la gestion de son site

pour etre exact cette ligne est ajout�e lorsque l'on utilise la fonction export d'un

module
on obtient un fichier avec une extension ".bas"

cette ligne sert � l'editeur VBE lorsque l'on utilise la proc�dure d'import d'un fichier
avec une extension ".bas"
et n'apparait alors plus dans le code du module import�

[Modeste]

Bonsour® michdenis avec ferveur ;o))) vous nous disiez :

encore un qui ne passe pas :

From: "Modeste" <g...@libre.fr>
Newsgroups: microsoft.public.fr.excel
References: <82a3da1a-cb8b-485a...@21g2000yqj.googlegroups.com> <uw7R9rYp...@TK2MSFTNGP05.phx.gbl> <uSnH2lZp...@TK2MSFTNGP02.phx.gbl> <e#XGhuZpK...@TK2MSFTNGP06.phx.gbl>
Subject: Re: comment on utilise : Attribute VB_Name = "ListeDossiersSousDossiers"
Date: Thu, 4 Feb 2010 15:00:44 +0100
Lines: 39
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

dechiffrer Rot13

Obafbhe® zvpuqravf nirp sreirhe )) ibhf abhf qvfvrm :

>> cbhe rger rknpg prggr yvtar rfg nwbhgér ybefdhr
>> y'ba hgvyvfr yn sbapgvba rkcbeg q'ha zbqhyr
>> ba bogvrag ha svpuvre nirp har rkgrafvba ".onf"
>
>> prggr yvtar freg à y'rqvgrhe IOR ybefdhr y'ba
>> hgvyvfr yn cebpéqher q'vzcbeg q'ha svpuvre
>> nirp har rkgrafvba ".onf"
>
> Wr irhk ovra êger ceépvf... znvf ybefdhr y'ba rkcbegr ha zbqhyr
> q'ha cebwrg ion, ba bogvrag fhe yn cerzvèer yvtar qh svpuvre .onf
> dh'ba crhg bhieve nirp har nccyvpngvba pbzzr "AbgrCnq"
> prpv : Nggevohgr IO_Anzr = "Zbqhyr1"
> Pr a'rfg cnf yr abz qr yn cebpéqher dhv rfg nssvpuér, znvf pryhv
> qh zbqhyr. Vzntvar, ha zbqhyr pbagvrag unovghryyrzrag cyhfvrhef
> cebpéqherf ! Ra pbafédhrapr, w'nv pbapyh dhr p'égnvg har nccebpur
> vagéerffnagr dhr Seéqéevp ninvg gebhiér cbhe yn trfgvba qrf svpuvref
> fhe fba fvgr. Nggraqbaf fba ergbhe, vy fnhen abhf yr qver !

Gh nf gbhg à snvg envfba, ra rssrg wr crafr dhr p'rfg y'nccebpur hgvyvfér cne Serq...
ra oba cebtenzzrhe vy erabzzr pregnvarzrag yr abz qrf zbqhyrf
fvaba vy qrivrag vzcbffvoyr qrf trere k zbqhyrf qr zêzr abz : zbqhyr1.onf
))

ibve NQBPbafbyvqngvba.onf dhv pbagvrag cyhfvrhef Fho

à abgre dhr cne nvyyrhef ))
ybef qr y'vzcbeg q'ha zbqhyr1.onf
f'vy rkvfgr qéwn ha zbqhyr 1 rfg nybef peér ha zbqhyr11
f'vy rkvfgr qéwn ha zbqhyr 11 rfg nybef peér ha zbqhyr 12 bh fhvinag, fryba y'beqer puebabybtvdhr qr yn qvmnvnar
fv yrf zbqhyrf 11 à 19 rkvfgrag rfg nybef peér ha zbqhyr 110

phevrhfr ybtvdhr ))

[michdenis]

As-tu un bon antiespiogiciel ?
Tout r�cemment, j'ai balay� toutes les partitions de mon ordi.
Je fus surpris des machins trucs qui y avaient pris demeure !

Je ne suis pas press�, j'attendrai la traduction !
;-)

"Modeste" <g...@libre.fr> a �crit dans le message de groupe de discussion :
#DixoJbp...@TK2MSFTNGP04.phx.gbl...

Bonsour� michdenis avec ferveur ;o))) vous nous disiez :

encore un qui ne passe pas :

From: "Modeste" <g...@libre.fr>
Newsgroups: microsoft.public.fr.excel
References: <82a3da1a-cb8b-485a...@21g2000yqj.googlegroups.com>
<uw7R9rYp...@TK2MSFTNGP05.phx.gbl> <uSnH2lZp...@TK2MSFTNGP02.phx.gbl>
<e#XGhuZpK...@TK2MSFTNGP06.phx.gbl>
Subject: Re: comment on utilise : Attribute VB_Name = "ListeDossiersSousDossiers"
Date: Thu, 4 Feb 2010 15:00:44 +0100
Lines: 39
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

dechiffrer Rot13

Obafbhe� zvpuqravf nirp sreirhe )) ibhf abhf qvfvrm :

>> cbhe rger rknpg prggr yvtar rfg nwbhg�r ybefdhr

>> y'ba hgvyvfr yn sbapgvba rkcbeg q'ha zbqhyr
>> ba bogvrag ha svpuvre nirp har rkgrafvba ".onf"
>

>> prggr yvtar freg � y'rqvgrhe IOR ybefdhr y'ba
>> hgvyvfr yn cebp�qher q'vzcbeg q'ha svpuvre
>> nirp har rkgrafvba ".onf"
>
> Wr irhk ovra �ger ce�pvf... znvf ybefdhr y'ba rkcbegr ha zbqhyr
> q'ha cebwrg ion, ba bogvrag fhe yn cerzv�er yvtar qh svpuvre .onf

> dh'ba crhg bhieve nirp har nccyvpngvba pbzzr "AbgrCnq"
> prpv : Nggevohgr IO_Anzr = "Zbqhyr1"

> Pr a'rfg cnf yr abz qr yn cebp�qher dhv rfg nssvpu�r, znvf pryhv

> qh zbqhyr. Vzntvar, ha zbqhyr pbagvrag unovghryyrzrag cyhfvrhef

> cebp�qherf ! Ra pbaf�dhrapr, w'nv pbapyh dhr p'�gnvg har nccebpur
> vag�erffnagr dhr Se�q�evp ninvg gebhi�r cbhe yn trfgvba qrf svpuvref

> fhe fba fvgr. Nggraqbaf fba ergbhe, vy fnhen abhf yr qver !

Gh nf gbhg � snvg envfba, ra rssrg wr crafr dhr p'rfg y'nccebpur hgvyvf�r cne Serq...

ra oba cebtenzzrhe vy erabzzr pregnvarzrag yr abz qrf zbqhyrf

fvaba vy qrivrag vzcbffvoyr qrf trere k zbqhyrf qr z�zr abz : zbqhyr1.onf
))

ibve NQBPbafbyvqngvba.onf dhv pbagvrag cyhfvrhef Fho

� abgre dhr cne nvyyrhef ))

ybef qr y'vzcbeg q'ha zbqhyr1.onf

f'vy rkvfgr q�wn ha zbqhyr 1 rfg nybef pe�r ha zbqhyr11
f'vy rkvfgr q�wn ha zbqhyr 11 rfg nybef pe�r ha zbqhyr 12 bh fhvinag, fryba y'beqer
puebabybtvdhr qr yn qvmnvnar
fv yrf zbqhyrf 11 � 19 rkvfgrag rfg nybef pe�r ha zbqhyr 110

phevrhfr ybtvdhr ))

[Modeste]

Bonsour® michdenis avec ferveur ;o))) vous nous disiez :

As-tu un bon antiespiogiciel ?

je ne vois même plus cette réponse :

From: "michdenis" <michde...@hotmail.com>
References: <82a3da1a-cb8b-485a...@21g2000yqj.googlegroups.com> <uw7R9rYp...@TK2MSFTNGP05.phx.gbl> <uSnH2lZp...@TK2MSFTNGP02.phx.gbl> <e#XGhuZpK...@TK2MSFTNGP06.phx.gbl> <#DixoJbp...@TK2MSFTNGP04.phx.gbl>
In-Reply-To: <#DixoJbp...@TK2MSFTNGP04.phx.gbl>
Subject: Re: comment on utilise : Attribute VB_Name = "ListeDossiersSousDossiers"

Date: Thu, 4 Feb 2010 11:01:10 -0500
Lines: 1
-----------------------------------------------------------------------------------------------
Groupes de discussion : microsoft.public.fr.excel
De : "michdenis" <michde...@hotmail.com>
Date : Thu, 4 Feb 2010 11:01:10 -0500
Date/heure locale : Jeu 4 fév 2010 17:01
Objet : Re: comment on utilise : Attribute VB_Name = "ListeDossiersSousDossiers"

sauf sur google

http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/0dad4f129ca6ee1f?hl=fr#

[Tatanka]

Plut�t Obawbhe que Obafbhe, non ?

Tentative de traduction ;-)

1) Dans un module standard :

Public Function souscirc(a, b, x, s)
t = b - a + 1
souscirc = (x - a + t - s Mod t) Mod t + a
End Function
Public Function d�coder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(LCase(x))
If ca < 123 And ca > 96 Then
tc = tc & Chr(souscirc(97, 122, ca, code))
Else
tc = tc & Chr(ca)
End If
Next i
d�coder = tc
End Function

2) Copier le message de Modeste en A1 :

Obafbhe� zvpuqravf nirp sreirhe )) ibhf abhf qvfvrm :

>> cbhe rger rknpg prggr yvtar rfg nwbhg�r ybefdhr

>> y'ba hgvyvfr yn sbapgvba rkcbeg q'ha zbqhyr
>> ba bogvrag ha svpuvre nirp har rkgrafvba ".onf"
>

>> prggr yvtar freg � y'rqvgrhe IOR ybefdhr y'ba
>> hgvyvfr yn cebp�qher q'vzcbeg q'ha svpuvre
>> nirp har rkgrafvba ".onf"
>
> Wr irhk ovra �ger ce�pvf... znvf ybefdhr y'ba rkcbegr ha zbqhyr
> q'ha cebwrg ion, ba bogvrag fhe yn cerzv�er yvtar qh svpuvre .onf

> dh'ba crhg bhieve nirp har nccyvpngvba pbzzr "AbgrCnq"
> prpv : Nggevohgr IO_Anzr = "Zbqhyr1"

> Pr a'rfg cnf yr abz qr yn cebp�qher dhv rfg nssvpu�r, znvf pryhv

> qh zbqhyr. Vzntvar, ha zbqhyr pbagvrag unovghryyrzrag cyhfvrhef

> cebp�qherf ! Ra pbaf�dhrapr, w'nv pbapyh dhr p'�gnvg har nccebpur

> vag�erffnagr dhr Se�q�evp ninvg gebhi�r cbhe yn trfgvba qrf svpuvref

> fhe fba fvgr. Nggraqbaf fba ergbhe, vy fnhen abhf yr qver !

Gh nf gbhg � snvg envfba, ra rssrg wr crafr dhr p'rfg y'nccebpur hgvyvf�r cne Serq...

ra oba cebtenzzrhe vy erabzzr pregnvarzrag yr abz qrf zbqhyrf

fvaba vy qrivrag vzcbffvoyr qrf trere k zbqhyrf qr z�zr abz : zbqhyr1.onf
))

ibve NQBPbafbyvqngvba.onf dhv pbagvrag cyhfvrhef Fho

� abgre dhr cne nvyyrhef ))

ybef qr y'vzcbeg q'ha zbqhyr1.onf

f'vy rkvfgr q�wn ha zbqhyr 1 rfg nybef pe�r ha zbqhyr11
f'vy rkvfgr q�wn ha zbqhyr 11 rfg nybef pe�r ha zbqhyr 12 bh fhvinag, fryba y'beqer puebabybtvdhr qr yn qvmnvnar

fv yrf zbqhyrf 11 � 19 rkvfgrag rfg nybef pe�r ha zbqhyr 110

phevrhfr ybtvdhr ))

3) Entrer cette formule en B1 : =d�coder(A1;13) et titez vers le bas.

Serge

[Tatanka]

Plus chic ainsi ;-)
Code : 66.

Mais mes caract�res de d�part seront-ils les m�mes que ceux que
vous allez recevoir. Unicode, standard ?

"�������b����������b����b��������b}�kkkb����b����b������b|

?b"������n
?
??bf��������b~"�����b bdZ����?�������.���?�������d
?
?b?�b����nb�����b�����b��b����b���b#b��b�����b����o�-��p
?b?���b���b������,�b���b^�,�,���b����b��b�������b��b���b����

����b����b�����b�����b�����b���b�����,�b�������b�i��b�������b��b��������b������b�i��b������
��b�������b��b��������b����b���b���������bdp���d

�����b�����b����b#b�i�������b~"?b�������b�i��b�������b��b����,����b�i������b�i��b�������b����b���b���������bdp���d
��b�i��������b�����b����b����b��b����b��b������b������,

Public Function addcirc(a, b, x, s)

t = b - a + 1

addcirc = (x - a + s) Mod t + a
End Function

Public Function souscirc(a, b, x, s)
t = b - a + 1
souscirc = (x - a + t - s Mod t) Mod t + a
End Function

Public Function coder$(t$, code%)

For i = 1 To Len(t)
x = Mid(t, i, 1)

ca = Asc(x)
tc = tc & Chr(addcirc(1, 255, ca, code))
Next i

coder = tc
End Function

Public Function d�coder$(t$, code%)

For i = 1 To Len(t)
x = Mid(t, i, 1)

ca = Asc(x)
tc = tc & Chr(souscirc(1, 255, ca, code))

Next i
d�coder = tc
End Function

Serge

"Tatanka" <garnote...@videotron.ca> a �crit dans le message de news: eImCqG1p...@TK2MSFTNGP05.phx.gbl...

[Tatanka]

Viens de constater que certains caractères sont dénaturés sur MPFE quand j'utilise le format Texte brut. Essai : Un message en format HLML envoyé comme message Unicode :   „±°¬±·´ðb¯«¥ª¦§°«µâb£¸§¥b¨§´¸§·´âb}±kkkb¸±·µb°±·µb¦«µ«§¼b|

€b„±°¬±·´n

€

€€bƒ¶¶´«¤·¶§b˜„¡ £¯§b bdŽ«µ¶§†±µµ«§´µ•±·µ†±µµ«§´µd

€

€b‡°b¨£«¶nb¥§¶¶§b®«©°§b°§bµ§´¶b²£µb#b®£b¯£¥´±b§®®§o¯-¯§p

€b‡®®§b§µ¶b·¶«®«µ,§b²£´bˆ´,¦,´«¥b²±·´b®£b©§µ¶«±°b¦§bµ±°bµ«¶§

²±·´b§¶´§b§º£¥¶b¥§¶¶§b®«©°§b§µ¶b£¬±·¶,§b®±´µ³·§b®i±°b·¶«®«µ§b®£b¨±°¥¶«±°b§º²±´¶b¦i·°b¯±¦·®§

±°b±¤¶«§°¶b·°b¨«¥ª«§´âb£¸§¥b·°§b§º¶§°µ«±°bdp¤£µd

¥§¶¶§b®«©°§bµ§´¶b#b®i§¦«¶§·´b˜„‡b®±´µ³·§b®i±°b·¶«®«µ§b®£b²´±¥,¦·´§b¦i«¯²±´¶b¦i·°b¨«¥ª«§´b£¸§¥b·°§b§º¶§°µ«±°bdp¤£µd

§¶b°i£²²£´£«¶b£®±´µb²®·µb¦£°µb®§b¥±¦§b¦·b¯±¦·®§b«¯²±´¶,

 

Serge