REPERTOIRE

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name, 4))
Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de 4
chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel .xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name, 4))
Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de 4
chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel .xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

Non testé :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
ctr = Application.Match(Left(f.Name, 4), [A:A], 0)
If IsNumeric(ctr) Then
ActiveSheet.Hyperlinks.Add Cells(ctr, "AD"), f.Path, _
TextToDisplay:=f.Name
End If
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

(les n°s de facture doivent être au format texte, sinon, remplacer :

ctr = Application.Match(Left(f.Name, 4), [A:A], 0)
par
ctr = Application.Match(CLng(Left(f.Name, 4)), [A:A], 0)
Daniel

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name, 4))
Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de 4
chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans leskels
il y
a une multitude de repertoires qui contiennent un fichiers excel .xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent pas.

ALORS EN FAIT...

mon cerveau est ramoli car je ne sais meme plus ce que je cherche...

donc je recommence en colonne A j'ai des chiffres qui represente des numéros
de factures qui ne sont pas dans le bon ordre.

je voudrais qu'en AD me reprenne le lien hypertexte qui m ouvre le
repertoire ou se trouve ce numéro de facture

exemple:
A1 5555 AD1=s:facture xxxxx5555 yyyyy.
losque je click en AD1 il m ouvre le repertoire

xxxxx nom variable du repertoire
yyyyy nom variable du repertoire

et ceci tant que A(i) <> ""

merci là je tiens le bon algorithm je crois...


merci d'avance



"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbddd96$0$2989$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name, 4))
Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de 4
chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel .xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000
à infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de
4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

C'est ton dernier mot ?
Question préalable :
Est-ce que tu peux avoir plusieurs dossiers "5555 yyyyy", par exemple
dans "facture xxxxx1" et "facture xxxxx2" ?
Daniel

ALORS EN FAIT...

mon cerveau est ramoli car je ne sais meme plus ce que je cherche...

donc je recommence en colonne A j'ai des chiffres qui represente des numéros
de factures qui ne sont pas dans le bon ordre.

je voudrais qu'en AD me reprenne le lien hypertexte qui m ouvre le repertoire
ou se trouve ce numéro de facture

exemple:
A1 5555 AD1=s:facture xxxxx5555 yyyyy.
losque je click en AD1 il m ouvre le repertoire

xxxxx nom variable du repertoire
yyyyy nom variable du repertoire

et ceci tant que A(i) <> ""

merci là je tiens le bon algorithm je crois...


merci d'avance



"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbddd96$0$2989$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name, 4))
Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de 4
chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel .xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name, 4))
Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de 4
chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel .xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

OUI C EST MON DERNIER MOT DANIEL !!!!!
NON qu'une seule occurence....
meci de ton interet à ce projet.


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uLXpvt81KHA.220@TK2MSFTNGP06.phx.gbl...

C'est ton dernier mot ?
Question préalable :
Est-ce que tu peux avoir plusieurs dossiers "5555 yyyyy", par exemple dans
"facture xxxxx1" et "facture xxxxx2" ?
Daniel

ALORS EN FAIT...

mon cerveau est ramoli car je ne sais meme plus ce que je cherche...

donc je recommence en colonne A j'ai des chiffres qui represente des
numéros de factures qui ne sont pas dans le bon ordre.

je voudrais qu'en AD me reprenne le lien hypertexte qui m ouvre le
repertoire ou se trouve ce numéro de facture

exemple:
A1 5555 AD1=s:facture xxxxx5555 yyyyy.
losque je click en AD1 il m ouvre le repertoire

xxxxx nom variable du repertoire
yyyyy nom variable du repertoire

et ceci tant que A(i) <> ""

merci là je tiens le bon algorithm je crois...


merci d'avance



"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbddd96$0$2989$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000
à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de
4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de
5000 à infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les
répertoires avec extension ". xls" et donc le nom ne commence que par
un nombre de 4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous
les fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

Essaie le code suivant (qui risque d'être long, si le nombre de
dossiers est important) :

Sub ListeDossiers()
Dim c As Range
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("s:")
For Each c In Range([A1], [A65536].End(xlUp))
Lit_dossier1 dossier_racine, c
Next c
Application.ScreenUpdating = True
End Sub
Sub Lit_dossier1(ByRef dossier, c)
Var = Application.Search(c.Value, dossier.Name)
If IsNumeric(Var) Then
ActiveSheet.Hyperlinks.Add Cells(c.Row, "AD"), dossier.Path, _
TextToDisplay:=dossier.Name
End If
For Each d In dossier.SubFolders
Lit_dossier1 d, c
Next
End Sub

Daniel

OUI C EST MON DERNIER MOT DANIEL !!!!!
NON qu'une seule occurence....
meci de ton interet à ce projet.


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uLXpvt81KHA.220@TK2MSFTNGP06.phx.gbl...

C'est ton dernier mot ?
Question préalable :
Est-ce que tu peux avoir plusieurs dossiers "5555 yyyyy", par exemple dans
"facture xxxxx1" et "facture xxxxx2" ?
Daniel

ALORS EN FAIT...

mon cerveau est ramoli car je ne sais meme plus ce que je cherche...

donc je recommence en colonne A j'ai des chiffres qui represente des
numéros de factures qui ne sont pas dans le bon ordre.

je voudrais qu'en AD me reprenne le lien hypertexte qui m ouvre le
repertoire ou se trouve ce numéro de facture

exemple:
A1 5555 AD1=s:facture xxxxx5555 yyyyy.
losque je click en AD1 il m ouvre le repertoire

xxxxx nom variable du repertoire
yyyyy nom variable du repertoire

et ceci tant que A(i) <> ""

merci là je tiens le bon algorithm je crois...


merci d'avance



"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbddd96$0$2989$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000
à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de
4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000
à infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de
4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

le code est effectivement long ca fait une heure qu il tourne et toujours
rien



"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OVbk3jZ1KHA.2028@TK2MSFTNGP05.phx.gbl...

Bonjour.
D'après une macro de JB :

Public Ligne As Long
Sub ListeDossiers()
Application.ScreenUpdating = False
Ligne = 1
Columns(1).ClearContents
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("s:facture 2009")
Lit_dossier1 dossier_racine
Application.ScreenUpdating = True
End Sub
Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Cordialement.
Daniel

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans leskels
il y a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouillé sur le net j'ai trouvé kelkes codes mais il ne marchent pas.

Je vais essayer de faire plus rapide?
Daniel

Essaie le code suivant (qui risque d'être long, si le nombre de dossiers est
important) :

Sub ListeDossiers()
Dim c As Range
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("s:")
For Each c In Range([A1], [A65536].End(xlUp))
Lit_dossier1 dossier_racine, c
Next c
Application.ScreenUpdating = True
End Sub
Sub Lit_dossier1(ByRef dossier, c)
Var = Application.Search(c.Value, dossier.Name)
If IsNumeric(Var) Then
ActiveSheet.Hyperlinks.Add Cells(c.Row, "AD"), dossier.Path, _
TextToDisplay:=dossier.Name
End If
For Each d In dossier.SubFolders
Lit_dossier1 d, c
Next
End Sub

Daniel

OUI C EST MON DERNIER MOT DANIEL !!!!!
NON qu'une seule occurence....
meci de ton interet à ce projet.


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uLXpvt81KHA.220@TK2MSFTNGP06.phx.gbl...

C'est ton dernier mot ?
Question préalable :
Est-ce que tu peux avoir plusieurs dossiers "5555 yyyyy", par exemple dans
"facture xxxxx1" et "facture xxxxx2" ?
Daniel

ALORS EN FAIT...

mon cerveau est ramoli car je ne sais meme plus ce que je cherche...

donc je recommence en colonne A j'ai des chiffres qui represente des
numéros de factures qui ne sont pas dans le bon ordre.

je voudrais qu'en AD me reprenne le lien hypertexte qui m ouvre le
repertoire ou se trouve ce numéro de facture

exemple:
A1 5555 AD1=s:facture xxxxx5555 yyyyy.
losque je click en AD1 il m ouvre le repertoire

xxxxx nom variable du repertoire
yyyyy nom variable du repertoire

et ceci tant que A(i) <> ""

merci là je tiens le bon algorithm je crois...


merci d'avance



"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbddd96$0$2989$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de 5000
à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les répertoires
avec extension ". xls" et donc le nom ne commence que par un nombre de
4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous les
fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de
5000 à infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les
répertoires avec extension ". xls" et donc le nom ne commence que par
un nombre de 4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous
les fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

Mets ce code au début d'un module :

Public Ligne As Long, Sh As Worksheet
Sub ListeDossiers()
Dim c As Range
Set Sh = ActiveSheet
Sheets.Add
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("e:donnees")
Lit_dossier1 dossier_racine
Lit_dossier2
Application.ScreenUpdating = True
End Sub
Sub Lit_dossier1(ByRef dossier)
Ligne = Ligne + 1
Cells(Ligne, 1) = dossier.Path
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub
Sub Lit_dossier2()
Dim x As Range
With Sh
For Each c In Range(.[A1], .[A65536].End(xlUp))
Set x = [A:A].Find(c.Value, , xlValues, xlPart)
Var = [A134]
If Not x Is Nothing Then
.Hyperlinks.Add .Cells(c.Row, "AD"), _
x.Value, TextToDisplay:=x.Value
End If
Next c
End With
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

Daniel

Je vais essayer de faire plus rapide?
Daniel

Essaie le code suivant (qui risque d'être long, si le nombre de dossiers
est important) :

Sub ListeDossiers()
Dim c As Range
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("s:")
For Each c In Range([A1], [A65536].End(xlUp))
Lit_dossier1 dossier_racine, c
Next c
Application.ScreenUpdating = True
End Sub
Sub Lit_dossier1(ByRef dossier, c)
Var = Application.Search(c.Value, dossier.Name)
If IsNumeric(Var) Then
ActiveSheet.Hyperlinks.Add Cells(c.Row, "AD"), dossier.Path, _
TextToDisplay:=dossier.Name
End If
For Each d In dossier.SubFolders
Lit_dossier1 d, c
Next
End Sub

Daniel

OUI C EST MON DERNIER MOT DANIEL !!!!!
NON qu'une seule occurence....
meci de ton interet à ce projet.


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uLXpvt81KHA.220@TK2MSFTNGP06.phx.gbl...

C'est ton dernier mot ?
Question préalable :
Est-ce que tu peux avoir plusieurs dossiers "5555 yyyyy", par exemple
dans "facture xxxxx1" et "facture xxxxx2" ?
Daniel

ALORS EN FAIT...

mon cerveau est ramoli car je ne sais meme plus ce que je cherche...

donc je recommence en colonne A j'ai des chiffres qui represente des
numéros de factures qui ne sont pas dans le bon ordre.

je voudrais qu'en AD me reprenne le lien hypertexte qui m ouvre le
repertoire ou se trouve ce numéro de facture

exemple:
A1 5555 AD1=s:facture xxxxx5555 yyyyy.
losque je click en AD1 il m ouvre le repertoire

xxxxx nom variable du repertoire
yyyyy nom variable du repertoire

et ceci tant que A(i) <> ""

merci là je tiens le bon algorithm je crois...


merci d'avance



"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbddd96$0$2989$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de
5000 à
infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou se
trouve le fichiers excel portant le nom "s:facture 2010nom du sous
repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture
ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les
répertoires avec extension ". xls" et donc le nom ne commence que par
un nombre de 4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous
les fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne marchent
pas.

"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bbdd930$0$2961$ba4acef3@reader.news.orange.fr...

merci daniel encore fois BRAVO

ton truc marche nikel

mais en fait c est mon cerveau qui marche pas.....

alors je m explike dans la colonne A j ai des numéros de facture de
5000 à infini par exemple

dans un repertoire et dans des sous repertoires j ai les fichiers
excel

prenons par exemple la facture 5000

en A2 j'ai 5000

en cellule AD2 je devrais un lien hypertext ouvrant le repertoire ou
se trouve le fichiers excel portant le nom "s:facture 2010nom du
sous repertoire(qui varie)5000*.xls

(*) égal texte variable.

aussi petite complication 'forcément sinon pas drole) les numéros de
facture ne se suivent pas.

merci d avance et encore merci pour le précédent code.

"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23%23DlGbx1KHA.6108@TK2MSFTNGP06.phx.gbl...

Remplace la macro Lit_dossier1 par celle-ci :

Sub Lit_dossier1(ByRef dossier)
For Each f In dossier.Files
If LCase(Right(f.Name, 4)) = ".xls" And IsNumeric(Left(f.Name,
4)) Then
Ligne = Ligne + 1
Cells(Ligne, 1) = f.Path
End If
Next
For Each d In dossier.SubFolders
Lit_dossier1 d
Next
End Sub

Daniel

je voudrais savoir avec ton code que tu m a propose qui marche super
bien..

si on pouvait n'avoir que le listing des fichiers dans les
répertoires avec extension ". xls" et donc le nom ne commence que
par un nombre de 4 chiffres?

exemple:

lechemin:5555 xxxxxxxxx yyyyyyyyyy zzzzzzzzzz . XLS


"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: erW$QKv1KHA.3648@TK2MSFTNGP05.phx.gbl...

Bonjour LSteph.
Ca ne nous rajeunit pas ;-)
DOS pas mort, toujours au coeur de Windows 7 !
Cordialement.
Daniel

Bonjour,

C'est bien connu d'ailleurs: les codes sur internet ne marchent
pas..
..il arrive juste parfois que certains parviennent quand même à
les
utiliser,
sinon on les aurait banni depuis longtemps, comme dirait Mgr..

Démarrer Executer cmd
..Entrée

dir s:*.xls/b/s>c:monlisting.txt

Entrée et attendre que ca se termine
exit

de retour dans excel Fichier ouvrir
choisir dans type Fichiers texte
c:monlisting.txt
Ok
Terminer

--
LSteph


On 6 avr, 15:48, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J ai un repertoire sous la forme
"s:facture 2009
dans lekel il y a 4 sous repertoires de noms differents... dans
leskels il y
a une multitude de repertoires qui contiennent un fichiers excel
.xls

j'aimerais si possible qu'une macro me fasse un listing de tous
les fichiers
excel de ses sous sous repertoires!

est ce possible?

Merci d'avance.

j'ai fouill sur le net j'ai trouv kelkes codes mais il ne
marchent pas.