Pas capable de faire fonctionner cette macro !

Bonsoir Gaspareau,

Copier le code plutôt dans la feuille code d'une feuille de calcul. Lorsque
tu feras un double clique dans cette feuille, la macro sera exécutée

Salutation
Charles

"Gaspareau" <ddsauvageau@ville.becancour.qc.ca> a écrit dans le message de
news:Ot0UxbhrDHA.1872@TK2MSFTNGP09.phx.gbl...

Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou mp3
ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

Bonjour Gaspareau,


Cette macro fonctionne très bien. Elle lancée par un événement de la feuille (double-clic dans une cellule de la feuille
où tu placeras le code- module feuille) . Si tu veux l'activer par un bouton de commande, utilise un bouton de la barre
d'outils "Formulaire" et attache lui cette macro en prenant soin de copier cette macro dans un module standard et en
modifiant son titre pour un nom de procédure conventionnel. De plus, tu devras modifier légèrement la macro, si tu veux
qu'elle le s'applique à une feuille particulière.. de la façon dont elle est écrite, c'est la feuille active qui est
utilisée d'office...

Attention, il se peut qu'il y ait des lignes coupées par le service de messagerie.

Misange 1 , Gaspareau 0

;-))

'-------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim mess As String, mess2 As String
Dim répertoire As String

Columns(1).Clear
Columns(2).Clear

mess = InputBox("entrez le nom du répertoire à explorer", _
"Chemin du répertoire", "c:excel")
mess2 = InputBox("entrez le type de fichier(" & _
"par exemple xls ou mid ou mp3 ou doc " & _
"ou tmp ou wav etc...)", "TYPE DE FICHIER", "mp3")

Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add _
Anchor:Îlls(i, 2), Address:=mess & répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop

End Sub
'-------------------------------


Salutations!




"Gaspareau" <ddsauvageau@ville.becancour.qc.ca> a écrit dans le message de news:Ot0UxbhrDHA.1872@TK2MSFTNGP09.phx.gbl...
Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou mp3
ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

--------------099A0944CB2F6F01B94BB2EE
Content-Type: text/plain; charset=iso-8859-1; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 8bit

Bonsoir,

Il s'agit d'une procédure qui gère un événement survenant sur
une feuille.

Elle doit donc figurer dans le module attachée à la feuille concernée
et non dans un module standard. Elle se déclenche par un double clic
dans la feuille.

NB - Il s'agit juste de principes généraux. Je ne connais pas cette
macro, et ne l'ai pas testée.

Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou mp3
ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


--------------099A0944CB2F6F01B94BB2EE
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonsoir,
<p>Il s'agit d'une proc&eacute;dure qui g&egrave;re un &eacute;v&eacute;nement
survenant sur
<br>une feuille.
<p>Elle doit donc figurer dans le module attach&eacute;e &agrave; la feuille
concern&eacute;e
<br>et non dans un module standard. Elle se d&eacute;clenche par un double
clic
<br>dans la feuille.
<p>NB - Il s'agit juste de principes g&eacute;n&eacute;raux. Je ne connais
pas cette
<br>macro, et ne l'ai pas test&eacute;e.
<br>&nbsp;
<blockquote TYPE=CITE>Bonjour,
<p>J'ai r&eacute;cup&eacute;r&eacute; sur l'excellent site
<br><a href="http://www.excelabo.net/xl/repertoires.php#listecommentée">http://www.excelabo.net/xl/repertoires.php#listecomment&eacute;e</a>
<br>;0))
<br>cette macro qui permet de lister tous les fichiers d'un
<br>r&eacute;pertoire (dans la colonne A)et de mettre un raccourci
<br>(dans la colonne B) pour y acc&eacute;der.
<br>Mon probl&egrave;me c'est que j'essaye de cette macro dans un
<br>module
<br>et &ccedil;a ne fonctionne pas.&nbsp; Que dois-je faire afin qu'elle
<br>fonctionne ???
<p>Merci beaucoup
<p>Cette macro met le nom de fichier en colonne A et un lien
<br>hypertexte dans la colonne B.
<p>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
<br>Range, _
<br>Cancel As Boolean)
<br>Dim mess As String, mess2 As String, r&eacute;pertoire As String
<br>Columns(1).Clear
<br>Columns(2).Clear
<br>mess = InputBox("entrez le nom du r&eacute;pertoire &agrave; explorer",
<br>"Chemin du
<br>r&eacute;pertoire", _
<br>&nbsp;"c:windowstemp") 'ThisWorkbook.Path)
<br>mess2 = InputBox( _
<br>"entrez le type de fichier ( _par exemple xls ou mid ou mp3
<br>ou doc ou tmp ou
<br>wav etc...)" _
<br>, "TYPE DE FICHIER", "mp3")
<br>Application.ScreenUpdating = False
<br>&nbsp;&nbsp; r&eacute;pertoire = Dir(mess &amp; "*" &amp; mess2, vbDirectory)
<br>&nbsp;&nbsp; Do While r&eacute;pertoire &lt;> ""
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i = i + 1
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i, 1) = r&eacute;pertoire
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ActiveSheet.Hyperlinks.Add Anchor:Îlls(i,
2),
<br>Address:=mess &amp;
<br>r&eacute;pertoire
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i, 2) = mess &amp; r&eacute;pertoire
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; r&eacute;pertoire = Dir
<br>&nbsp;&nbsp; Loop
<br>End Sub
<p>--
<br>Gaspareau
<p>R&egrave;gle anti spam
<br>Pour r&eacute;ponse personnelle enlever un d au
<br>d&eacute;but de mon adresse courriel</blockquote>

<p>--
<br>Cordialement,
<p>Michel Gaboly
<br><A HREF="http://www.gaboly.com">http://www.gaboly.com</A>
<br>&nbsp;</html>

--------------099A0944CB2F6F01B94BB2EE--

en effet, denis a raison en disant qu'elle marche très bien...
je suggère même que, pour la rendre plus conviviale à la souris de ce
pauvre user dont on ne se préoccupe jamais assez, on lui apporte cette
légère modif :

mess = InputBox("entrez le nom du répertoire à explorer", "Chemin du
répertoire", "C:")
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou mp3 ou doc ou
tmp ou wav etc...)" _
, "TYPE DE FICHIER")
If mess2 = "" Then Exit Sub

et comme dit michel denis : attention aux coupures de la messagerie,
aussi désagréables que celle du rasoir sur son visage le lemdemain de la
sortie du beaujolais

jps




Denis Michon a écrit:

Bonjour Gaspareau,


Cette macro fonctionne très bien. Elle lancée par un événement de la feuille (double-clic dans une cellule de la feuille
où tu placeras le code- module feuille) . Si tu veux l'activer par un bouton de commande, utilise un bouton de la barre
d'outils "Formulaire" et attache lui cette macro en prenant soin de copier cette macro dans un module standard et en
modifiant son titre pour un nom de procédure conventionnel. De plus, tu devras modifier légèrement la macro, si tu veux
qu'elle le s'applique à une feuille particulière.. de la façon dont elle est écrite, c'est la feuille active qui est
utilisée d'office...

Attention, il se peut qu'il y ait des lignes coupées par le service de messagerie.

Misange 1 , Gaspareau 0

;-))

'-------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim mess As String, mess2 As String
Dim répertoire As String

Columns(1).Clear
Columns(2).Clear

mess = InputBox("entrez le nom du répertoire à explorer", _
"Chemin du répertoire", "c:excel")
mess2 = InputBox("entrez le type de fichier(" & _
"par exemple xls ou mid ou mp3 ou doc " & _
"ou tmp ou wav etc...)", "TYPE DE FICHIER", "mp3")

Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add _
Anchor:Îlls(i, 2), Address:=mess & répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop

End Sub
'-------------------------------


Salutations!




"Gaspareau" <ddsauvageau@ville.becancour.qc.ca> a écrit dans le message de news:Ot0UxbhrDHA.1872@TK2MSFTNGP09.phx.gbl...
Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou mp3
ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

Merci beaucoup
Ça fonctionne à merveille !

Ne me reste qu'à modifier afin de développer l'arborescence
à partir du répertoire mentionné

Bonne soirée

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le
message de news:f0wub.39585$Ng3.9933@charlie.risq.qc.ca...

Bonjour Gaspareau,


Cette macro fonctionne très bien. Elle lancée par un
événement de la feuille (double-clic dans une cellule de la

feuille

où tu placeras le code- module feuille) . Si tu veux
l'activer par un bouton de commande, utilise un bouton de la

barre

d'outils "Formulaire" et attache lui cette macro en
prenant soin de copier cette macro dans un module standard

et en

modifiant son titre pour un nom de procédure
conventionnel. De plus, tu devras modifier légèrement la

macro, si tu veux

qu'elle le s'applique à une feuille particulière.. de la
façon dont elle est écrite, c'est la feuille active qui est

utilisée d'office...

Attention, il se peut qu'il y ait des lignes coupées par
le service de messagerie.

Misange 1 , Gaspareau 0

;-))

'-------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As Boolean)

Dim mess As String, mess2 As String
Dim répertoire As String

Columns(1).Clear
Columns(2).Clear

mess = InputBox("entrez le nom du répertoire à explorer",
_

"Chemin du répertoire", "c:excel")
mess2 = InputBox("entrez le type de fichier(" & _
"par exemple xls ou mid ou mp3 ou doc " & _
"ou tmp ou wav etc...)", "TYPE DE FICHIER", "mp3")

Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add _
Anchor:Îlls(i, 2), Address:=mess & répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop

End Sub
'-------------------------------


Salutations!




"Gaspareau" <ddsauvageau@ville.becancour.qc.ca> a écrit
dans le message de

news:Ot0UxbhrDHA.1872@TK2MSFTNGP09.phx.gbl...

Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou
mp3

ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

Private Sub Workbook_Open()
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à
explorer", "Chemin du
répertoire", "c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox("entrez le type de fichier ( par exemple
xls ou mid ou mp3 ou doc ou tmp ou wav etc...)", "TYPE DE
FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2),
Address:=mess & répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

Comme tu vois, tu places ce code dans "Private Sub
Workbook_Open()" de "Thisworkbook" . tu cliques ensuite
sur le bouton "Exécuter Sub" et tu retournes dans le
classeur pour voir le résultat.

-----Message d'origine-----
Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou
mp3

ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

.

Re-bonjour

Je rame je rame !!!

Quelqu'un peut m'éclairer ??

Comment modifier afin de pouvoir avoir la liste de
tous les fichiers et répertoires sous le répertoire choisi
??

Merci



--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"Gaspareau" <ddsauvageau@ville.becancour.qc.ca> a écrit dans
le message de news:Ot0UxbhrDHA.1872@TK2MSFTNGP09.phx.gbl...

Bonjour,

J'ai récupéré sur l'excellent site
http://www.excelabo.net/xl/repertoires.php#listecommentée
;0))
cette macro qui permet de lister tous les fichiers d'un
répertoire (dans la colonne A)et de mettre un raccourci
(dans la colonne B) pour y accéder.
Mon problème c'est que j'essaye de cette macro dans un
module
et ça ne fonctionne pas. Que dois-je faire afin qu'elle
fonctionne ???

Merci beaucoup

Cette macro met le nom de fichier en colonne A et un lien
hypertexte dans la colonne B.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, _
Cancel As Boolean)
Dim mess As String, mess2 As String, répertoire As String
Columns(1).Clear
Columns(2).Clear
mess = InputBox("entrez le nom du répertoire à explorer",
"Chemin du
répertoire", _
"c:windowstemp") 'ThisWorkbook.Path)
mess2 = InputBox( _
"entrez le type de fichier ( _par exemple xls ou mid ou
mp3

ou doc ou tmp ou
wav etc...)" _
, "TYPE DE FICHIER", "mp3")
Application.ScreenUpdating = False
répertoire = Dir(mess & "*" & mess2, vbDirectory)
Do While répertoire <> ""
i = i + 1
Cells(i, 1) = répertoire
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 2),
Address:=mess &
répertoire
Cells(i, 2) = mess & répertoire
répertoire = Dir
Loop
End Sub

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel