créer dans une colonne excel la liste de documents Word d'un rép er
8 réponses
tobias
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des
documents apparaissant dans un répertoire Word ( les répertoires n'ont pas
nécessairement le même nombre de documents
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
Jacky
Bonjour,
A adapter Chemin= le répertoire ou se trouvent les fichiers Word ("*.doc")
'------------------------- Sub jj() Dim chemin As String, Fichier As String Columns(1).Clear chemin = "C:Documents and SettingsJackyMes documentsFichiers Word" Fichier = Dir(chemin & "*.doc") Do While Fichier <> "" x = x + 1 Cells(x, 1) = Fichier Fichier = Dir Loop End Sub
-- Salutations JJ
"tobias" a écrit dans le message de news:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des documents apparaissant dans un répertoire Word ( les répertoires n'ont pas nécessairement le même nombre de documents
Merci
Bonjour,
A adapter
Chemin= le répertoire ou se trouvent les fichiers Word ("*.doc")
'-------------------------
Sub jj()
Dim chemin As String, Fichier As String
Columns(1).Clear
chemin = "C:Documents and SettingsJackyMes documentsFichiers Word"
Fichier = Dir(chemin & "*.doc")
Do While Fichier <> ""
x = x + 1
Cells(x, 1) = Fichier
Fichier = Dir
Loop
End Sub
--
Salutations
JJ
"tobias" <tobias@discussions.microsoft.com> a écrit dans le message de news:
C4ECFD4F-34F2-4DFA-A1EE-BE7BB4A40DCA@microsoft.com...
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms
des
documents apparaissant dans un répertoire Word ( les répertoires n'ont pas
nécessairement le même nombre de documents
A adapter Chemin= le répertoire ou se trouvent les fichiers Word ("*.doc")
'------------------------- Sub jj() Dim chemin As String, Fichier As String Columns(1).Clear chemin = "C:Documents and SettingsJackyMes documentsFichiers Word" Fichier = Dir(chemin & "*.doc") Do While Fichier <> "" x = x + 1 Cells(x, 1) = Fichier Fichier = Dir Loop End Sub
-- Salutations JJ
"tobias" a écrit dans le message de news:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des documents apparaissant dans un répertoire Word ( les répertoires n'ont pas nécessairement le même nombre de documents
Merci
LSteph
Bonjour, ( just for fun sans macro)
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc") ) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
-- lSteph
On 26 oct, 13:06, tobias wrote:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des documents apparaissant dans un répertoire Word ( les répertoires n'on t pas nécessairement le même nombre de documents
Merci
Bonjour, ( just for fun sans macro)
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc") )
Ensuite dans ta feuille selectionner dans une colonne un nb cellule
suffisant
=listeW
valider par Crl+maj+Entrée
--
lSteph
On 26 oct, 13:06, tobias <tob...@discussions.microsoft.com> wrote:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des
documents apparaissant dans un répertoire Word ( les répertoires n'on t pas
nécessairement le même nombre de documents
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc") ) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
-- lSteph
On 26 oct, 13:06, tobias wrote:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des documents apparaissant dans un répertoire Word ( les répertoires n'on t pas nécessairement le même nombre de documents
Merci
tobias
Merci ! c'est super Exactement ce que j'avais besoin.
"Jacky" wrote:
Bonjour,
A adapter Chemin= le répertoire ou se trouvent les fichiers Word ("*.doc")
'------------------------- Sub jj() Dim chemin As String, Fichier As String Columns(1).Clear chemin = "C:Documents and SettingsJackyMes documentsFichiers Word" Fichier = Dir(chemin & "*.doc") Do While Fichier <> "" x = x + 1 Cells(x, 1) = Fichier Fichier = Dir Loop End Sub
-- Salutations JJ
"tobias" a écrit dans le message de news:
>À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms >des > documents apparaissant dans un répertoire Word ( les répertoires n'ont pas > nécessairement le même nombre de documents > > Merci
.
Merci ! c'est super
Exactement ce que j'avais besoin.
"Jacky" wrote:
Bonjour,
A adapter
Chemin= le répertoire ou se trouvent les fichiers Word ("*.doc")
'-------------------------
Sub jj()
Dim chemin As String, Fichier As String
Columns(1).Clear
chemin = "C:Documents and SettingsJackyMes documentsFichiers Word"
Fichier = Dir(chemin & "*.doc")
Do While Fichier <> ""
x = x + 1
Cells(x, 1) = Fichier
Fichier = Dir
Loop
End Sub
--
Salutations
JJ
"tobias" <tobias@discussions.microsoft.com> a écrit dans le message de news:
C4ECFD4F-34F2-4DFA-A1EE-BE7BB4A40DCA@microsoft.com...
>À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms
>des
> documents apparaissant dans un répertoire Word ( les répertoires n'ont pas
> nécessairement le même nombre de documents
>
> Merci
Merci ! c'est super Exactement ce que j'avais besoin.
"Jacky" wrote:
Bonjour,
A adapter Chemin= le répertoire ou se trouvent les fichiers Word ("*.doc")
'------------------------- Sub jj() Dim chemin As String, Fichier As String Columns(1).Clear chemin = "C:Documents and SettingsJackyMes documentsFichiers Word" Fichier = Dir(chemin & "*.doc") Do While Fichier <> "" x = x + 1 Cells(x, 1) = Fichier Fichier = Dir Loop End Sub
-- Salutations JJ
"tobias" a écrit dans le message de news:
>À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms >des > documents apparaissant dans un répertoire Word ( les répertoires n'ont pas > nécessairement le même nombre de documents > > Merci
.
Jacky
Bonsoir Stéphane
Merci pour cette méthode que j'ignorais totalement. D'ailleurs, je ne comprends pas son fonctionnement et ==>just for fun ==> explication ?? ;o)) -- Salutations JJ
"LSteph" a écrit dans le message de news:
Bonjour, ( just for fun sans macro)
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc")) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
-- lSteph
On 26 oct, 13:06, tobias wrote:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des documents apparaissant dans un répertoire Word ( les répertoires n'ont pas nécessairement le même nombre de documents
Merci
Bonsoir Stéphane
Merci pour cette méthode que j'ignorais totalement.
D'ailleurs, je ne comprends pas son fonctionnement
et ==>just for fun ==> explication ??
;o))
--
Salutations
JJ
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news:
080c9dfa-fbba-47e6-be30-f60805c46f2f@m1g2000vbi.googlegroups.com...
Bonjour, ( just for fun sans macro)
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc"))
Ensuite dans ta feuille selectionner dans une colonne un nb cellule
suffisant
=listeW
valider par Crl+maj+Entrée
--
lSteph
On 26 oct, 13:06, tobias <tob...@discussions.microsoft.com> wrote:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des
documents apparaissant dans un répertoire Word ( les répertoires n'ont pas
nécessairement le même nombre de documents
Merci pour cette méthode que j'ignorais totalement. D'ailleurs, je ne comprends pas son fonctionnement et ==>just for fun ==> explication ?? ;o)) -- Salutations JJ
"LSteph" a écrit dans le message de news:
Bonjour, ( just for fun sans macro)
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc")) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
-- lSteph
On 26 oct, 13:06, tobias wrote:
À partir d'une macro dans excel, je voudrais lister (A1 à An) les noms des documents apparaissant dans un répertoire Word ( les répertoires n'ont pas nécessairement le même nombre de documents
Merci
Modeste
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc")) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
Merci pour cette méthode que j'ignorais totalement. D'ailleurs, je ne comprends pas son fonctionnement et ==>just for fun ==> explication ??
;o))) un truc de dinosaure ... Macro XL4
FICHIERS(Répertoire_texte) Renvoie une matrice de texte horizontale de tous les fichiers du répertoire spécifié
Répertoire_texte accepte les jokers * et ? si Répertoire_texte n'est pas spécifié , le repertoire courant est utilisé
TRANSPOSE transforme la matrice horizontale en matrice verticale
sous forme matricielle si le repertoire contient moins d'entrées que la plage selectionnées les cellules supplémentaires recoivent la valeur #N/A
on peut préalablement utiliser COLONNES(FICHIERS(xxxx)) pour compter le nbre d'entrées dans la matrice renvoyée
Fonctions corrélatives FENETRES(), DOCUMENTS()
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc"))
Ensuite dans ta feuille selectionner dans une colonne un nb cellule
suffisant
=listeW
valider par Crl+maj+Entrée
Merci pour cette méthode que j'ignorais totalement.
D'ailleurs, je ne comprends pas son fonctionnement
et ==>just for fun ==> explication ??
;o))) un truc de dinosaure ...
Macro XL4
FICHIERS(Répertoire_texte) Renvoie une matrice de texte horizontale de tous les fichiers du répertoire spécifié
Répertoire_texte accepte les jokers * et ?
si Répertoire_texte n'est pas spécifié , le repertoire courant est utilisé
TRANSPOSE transforme la matrice horizontale en matrice verticale
sous forme matricielle si le repertoire contient moins d'entrées que la plage selectionnées les cellules supplémentaires recoivent la valeur #N/A
on peut préalablement utiliser COLONNES(FICHIERS(xxxx)) pour compter le nbre d'entrées dans la matrice renvoyée
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc")) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
Merci pour cette méthode que j'ignorais totalement. D'ailleurs, je ne comprends pas son fonctionnement et ==>just for fun ==> explication ??
;o))) un truc de dinosaure ... Macro XL4
FICHIERS(Répertoire_texte) Renvoie une matrice de texte horizontale de tous les fichiers du répertoire spécifié
Répertoire_texte accepte les jokers * et ? si Répertoire_texte n'est pas spécifié , le repertoire courant est utilisé
TRANSPOSE transforme la matrice horizontale en matrice verticale
sous forme matricielle si le repertoire contient moins d'entrées que la plage selectionnées les cellules supplémentaires recoivent la valeur #N/A
on peut préalablement utiliser COLONNES(FICHIERS(xxxx)) pour compter le nbre d'entrées dans la matrice renvoyée
Fonctions corrélatives FENETRES(), DOCUMENTS()
Jacky
Ok! Merci Modeste ;o))) un truc de dinosaure ... Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl, même moderne. Dommage!.
-- Salutations JJ
"Modeste" a écrit dans le message de news: % Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc")) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
Merci pour cette méthode que j'ignorais totalement. D'ailleurs, je ne comprends pas son fonctionnement et ==>just for fun ==> explication ??
;o))) un truc de dinosaure ... Macro XL4
FICHIERS(Répertoire_texte) Renvoie une matrice de texte horizontale de tous les fichiers du répertoire spécifié
Répertoire_texte accepte les jokers * et ? si Répertoire_texte n'est pas spécifié , le repertoire courant est utilisé
TRANSPOSE transforme la matrice horizontale en matrice verticale
sous forme matricielle si le repertoire contient moins d'entrées que la plage selectionnées les cellules supplémentaires recoivent la valeur #N/A
on peut préalablement utiliser COLONNES(FICHIERS(xxxx)) pour compter le nbre d'entrées dans la matrice renvoyée
Fonctions corrélatives FENETRES(), DOCUMENTS()
Ok!
Merci Modeste
;o))) un truc de dinosaure ...
Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl,
même moderne.
Dommage!.
--
Salutations
JJ
"Modeste" <GD@libre.fr> a écrit dans le message de news:
%23HFRl41VKHA.5584@TK2MSFTNGP05.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc"))
Ensuite dans ta feuille selectionner dans une colonne un nb cellule
suffisant
=listeW
valider par Crl+maj+Entrée
Merci pour cette méthode que j'ignorais totalement.
D'ailleurs, je ne comprends pas son fonctionnement
et ==>just for fun ==> explication ??
;o))) un truc de dinosaure ...
Macro XL4
FICHIERS(Répertoire_texte) Renvoie une matrice de texte horizontale de tous
les fichiers du répertoire spécifié
Répertoire_texte accepte les jokers * et ?
si Répertoire_texte n'est pas spécifié , le repertoire courant est utilisé
TRANSPOSE transforme la matrice horizontale en matrice verticale
sous forme matricielle si le repertoire contient moins d'entrées que la
plage selectionnées les cellules supplémentaires recoivent la valeur #N/A
on peut préalablement utiliser COLONNES(FICHIERS(xxxx)) pour compter le nbre
d'entrées dans la matrice renvoyée
Ok! Merci Modeste ;o))) un truc de dinosaure ... Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl, même moderne. Dommage!.
-- Salutations JJ
"Modeste" a écrit dans le message de news: % Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Insertion nom définir nom:listeW ref à: =TRANSPOSE(FICHIERS("*.doc")) Ensuite dans ta feuille selectionner dans une colonne un nb cellule suffisant =listeW valider par Crl+maj+Entrée
Merci pour cette méthode que j'ignorais totalement. D'ailleurs, je ne comprends pas son fonctionnement et ==>just for fun ==> explication ??
;o))) un truc de dinosaure ... Macro XL4
FICHIERS(Répertoire_texte) Renvoie une matrice de texte horizontale de tous les fichiers du répertoire spécifié
Répertoire_texte accepte les jokers * et ? si Répertoire_texte n'est pas spécifié , le repertoire courant est utilisé
TRANSPOSE transforme la matrice horizontale en matrice verticale
sous forme matricielle si le repertoire contient moins d'entrées que la plage selectionnées les cellules supplémentaires recoivent la valeur #N/A
on peut préalablement utiliser COLONNES(FICHIERS(xxxx)) pour compter le nbre d'entrées dans la matrice renvoyée
Fonctions corrélatives FENETRES(), DOCUMENTS()
LSteph
:,. ou la la
...Monseignausaure ..on est decouverts!
Salut les amis,
;o))) un truc de dinosaure ... Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl, même moderne. Dommage!.
Ca c'est bien vrai Jacky mais j'ai gardé la bible, ...! Faudra que je fasse le tour au bureau si cela se trouve il y en qui l'on gardé et ne s'en servent mm pas..
au fait tu viens le 5..?
-- lSteph
:,. ou la la
...Monseignausaure ..on est decouverts!
Salut les amis,
;o))) un truc de dinosaure ...
Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl,
même moderne.
Dommage!.
Ca c'est bien vrai Jacky mais j'ai gardé la bible, ...!
Faudra que je fasse le tour au bureau si cela se trouve il y en qui l'on
gardé et ne s'en servent mm pas..
;o))) un truc de dinosaure ... Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl, même moderne. Dommage!.
Ca c'est bien vrai Jacky mais j'ai gardé la bible, ...! Faudra que je fasse le tour au bureau si cela se trouve il y en qui l'on gardé et ne s'en servent mm pas..
au fait tu viens le 5..?
-- lSteph
Jacky
Re...
au fait tu viens le 5..?
Hélas non ! sauf revirement de situation de dernière minute.
-- Salutations JJ
"LSteph" a écrit dans le message de news:
:,. ou la la
...Monseignausaure ..on est decouverts!
Salut les amis,
;o))) un truc de dinosaure ... Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl, même moderne. Dommage!.
Ca c'est bien vrai Jacky mais j'ai gardé la bible, ...! Faudra que je fasse le tour au bureau si cela se trouve il y en qui l'on gardé et ne s'en servent mm pas..
au fait tu viens le 5..?
-- lSteph
Re...
au fait tu viens le 5..?
Hélas non ! sauf revirement de situation de dernière minute.
--
Salutations
JJ
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eXghZiBWKHA.5208@TK2MSFTNGP05.phx.gbl...
:,. ou la la
...Monseignausaure ..on est decouverts!
Salut les amis,
;o))) un truc de dinosaure ...
Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl,
même moderne.
Dommage!.
Ca c'est bien vrai Jacky mais j'ai gardé la bible, ...!
Faudra que je fasse le tour au bureau si cela se trouve il y en qui l'on
gardé et ne s'en servent mm pas..
Hélas non ! sauf revirement de situation de dernière minute.
-- Salutations JJ
"LSteph" a écrit dans le message de news:
:,. ou la la
...Monseignausaure ..on est decouverts!
Salut les amis,
;o))) un truc de dinosaure ... Certes, mais il n'existe plus d'équivalence (sauf erreur) en fonction xl, même moderne. Dommage!.
Ca c'est bien vrai Jacky mais j'ai gardé la bible, ...! Faudra que je fasse le tour au bureau si cela se trouve il y en qui l'on gardé et ne s'en servent mm pas..
