-- Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne ! ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48) &CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102 )&CAR(114)
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1 Incrémentation chronologique ? http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3 Chiffres en lettres ? (Word et Excel) http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4 Excel : http://www.excelabo.net/ http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl http://dj.joss.free.fr/faq.htm http://perso.wanadoo.fr/frederic.sigonneau/ http://excel.1.free.fr/ Module de classe ? ici : http://www.info-3000.com/vbvba/modulesdeclasse.php
"Pascal" a écrit dans le message de news:
Bonjour, Connaissez vous une macro qui me permettrait de lister tous les documents d'un répertoire Word.
Merci
Pascal
Salut Pascal !
Tu trouvera tout ce dont tu a besoin directement à l'adresse suivante :
--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)
Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php
"Pascal" <pabd@wanadoo.fr> a écrit dans le message de
news:uc1Ya3QpDHA.1728@TK2MSFTNGP09.phx.gbl...
Bonjour,
Connaissez vous une macro qui me permettrait de lister tous les documents
d'un répertoire Word.
-- Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne ! ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48) &CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102 )&CAR(114)
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1 Incrémentation chronologique ? http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3 Chiffres en lettres ? (Word et Excel) http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4 Excel : http://www.excelabo.net/ http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl http://dj.joss.free.fr/faq.htm http://perso.wanadoo.fr/frederic.sigonneau/ http://excel.1.free.fr/ Module de classe ? ici : http://www.info-3000.com/vbvba/modulesdeclasse.php
"Pascal" a écrit dans le message de news:
Bonjour, Connaissez vous une macro qui me permettrait de lister tous les documents d'un répertoire Word.
Merci
Pascal
Pascal
salut Dédé, Je me suis mal exprimé, il s'agit de Doc Word dans un répertoire Word. Donc j'ai bien une macro VBA destiné à XL mais elle ne marche sous Word C'est celle ci:
Sub CreationLiens() Dim Feuille As Worksheets, n As Integer, L As Integer Dim ExisteFeuille As Boolean, wCell As Range, Réponse As Long On Error Resume Next ExisteFeuille = Worksheets("Répertoire").Name If Err.Number = 9 Then Err.Clear Réponse = _ MsgBox("Il faut une feuille nommée ""Répertoire"" !" & vbCrLf _
Etc Etc Hors les Feuille et Worksheets, Word il connait pas. Tu vois le truc
pascal
"Dédé" a écrit dans le message de news: #
Salut Pascal !
Tu trouvera tout ce dont tu a besoin directement à l'adresse suivante :
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1 Incrémentation chronologique ? http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3 Chiffres en lettres ? (Word et Excel) http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4 Excel : http://www.excelabo.net/ http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl http://dj.joss.free.fr/faq.htm http://perso.wanadoo.fr/frederic.sigonneau/ http://excel.1.free.fr/ Module de classe ? ici : http://www.info-3000.com/vbvba/modulesdeclasse.php
"Pascal" a écrit dans le message de news:
Bonjour, Connaissez vous une macro qui me permettrait de lister tous les documents
d'un répertoire Word.
Merci
Pascal
salut Dédé,
Je me suis mal exprimé, il s'agit de Doc Word dans un répertoire Word.
Donc j'ai bien une macro VBA destiné à XL mais elle ne marche sous Word
C'est celle ci:
Sub CreationLiens()
Dim Feuille As Worksheets, n As Integer, L As Integer
Dim ExisteFeuille As Boolean, wCell As Range, Réponse As Long
On Error Resume Next
ExisteFeuille = Worksheets("Répertoire").Name
If Err.Number = 9 Then
Err.Clear
Réponse = _
MsgBox("Il faut une feuille nommée ""Répertoire"" !" & vbCrLf _
Etc Etc
Hors les Feuille et Worksheets, Word il connait pas.
Tu vois le truc
pascal
"Dédé" <blablabla@blablabla.com> a écrit dans le message de news:
#bGzo5QpDHA.2652@TK2MSFTNGP09.phx.gbl...
Salut Pascal !
Tu trouvera tout ce dont tu a besoin directement à l'adresse suivante :
salut Dédé, Je me suis mal exprimé, il s'agit de Doc Word dans un répertoire Word. Donc j'ai bien une macro VBA destiné à XL mais elle ne marche sous Word C'est celle ci:
Sub CreationLiens() Dim Feuille As Worksheets, n As Integer, L As Integer Dim ExisteFeuille As Boolean, wCell As Range, Réponse As Long On Error Resume Next ExisteFeuille = Worksheets("Répertoire").Name If Err.Number = 9 Then Err.Clear Réponse = _ MsgBox("Il faut une feuille nommée ""Répertoire"" !" & vbCrLf _
Etc Etc Hors les Feuille et Worksheets, Word il connait pas. Tu vois le truc
pascal
"Dédé" a écrit dans le message de news: #
Salut Pascal !
Tu trouvera tout ce dont tu a besoin directement à l'adresse suivante :
