Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de groupe de discussion :
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é
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" <jose6a@gmail.com> a écrit dans le message de groupe de discussion :
82a3da1a-cb8b-485a-a247-4b47b39611ba@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 !
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" a écrit dans le message de groupe de discussion :
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é
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é
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 !
| 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 !
| 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" a écrit dans le message de groupe de discussion :
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é
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" <gd@libre.fr> a écrit dans le message de groupe de discussion :
uSnH2lZpKHA.5588@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é
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" a écrit dans le message de groupe de discussion :
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 :
à 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" a écrit dans le message de groupe de discussion : # Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
à 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 ))
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" <gd@libre.fr> a écrit dans le message de groupe de discussion :
#DixoJbpKHA.5328@TK2MSFTNGP04.phx.gbl...
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
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" a écrit dans le message de groupe de discussion : # Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
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
à 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
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
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
