J'ai un grand nombre de fichier écrits avec Word dernière version - or,
un ami n'ayant que Word 98 (sur Mac) me les demande. la meilleure façon,
à mon sens, pour qu'il puisse les obtenir, serait de les transformer en
format .RTF (sachant que ces fichiers ne sont pas trop complexes).
Sauriez-vous comment faire cette transfo automatiquement car je ne me
vois pas les ré-enregistrer l'un après l'autre en format .rtf ?
Il te parlait d'une macro pour balayer les répertoires, que tu vas devoir rabouter à une macro pour lire le fichier et le convertir.
"Romer" a écrit dans le message de news:1g6dqna.1m8zrlo18ofefqN%
geo wrote:
Le plus efficace est de copier les documents dans un dossier qui ne servira qu'à ça et de traiter tous les doucuemnts de ce répertoire. Tu as un exmple de macro dans la faq (partie vba) qui devrait t'aider.
Je viens de parcourir toutes les questions traitant du VBA dans la FAQ
et n'ai pas bien vu celle qui pourrait me faire enregistrer automatiquement des centaines de fichiers texte en .rtf ou du moins un
exemple approchant.
-- A+ Romer
Il te parlait d'une macro pour balayer les répertoires, que tu vas
devoir rabouter à une macro pour lire le fichier et le convertir.
"Romer" <romer@himmel.com> a écrit dans le message de
news:1g6dqna.1m8zrlo18ofefqN%romer@himmel.com...
geo <anonymous@discussions.microsoft.com> wrote:
Le plus efficace est de copier les documents dans un
dossier qui ne servira qu'à ça
et de traiter tous les doucuemnts de ce répertoire.
Tu as un exmple de macro dans la faq (partie vba) qui
devrait t'aider.
Je viens de parcourir toutes les questions traitant du VBA dans la
FAQ
et n'ai pas bien vu celle qui pourrait me faire enregistrer
automatiquement des centaines de fichiers texte en .rtf ou du moins
un
Il te parlait d'une macro pour balayer les répertoires, que tu vas devoir rabouter à une macro pour lire le fichier et le convertir.
"Romer" a écrit dans le message de news:1g6dqna.1m8zrlo18ofefqN%
geo wrote:
Le plus efficace est de copier les documents dans un dossier qui ne servira qu'à ça et de traiter tous les doucuemnts de ce répertoire. Tu as un exmple de macro dans la faq (partie vba) qui devrait t'aider.
Je viens de parcourir toutes les questions traitant du VBA dans la FAQ
et n'ai pas bien vu celle qui pourrait me faire enregistrer automatiquement des centaines de fichiers texte en .rtf ou du moins un
exemple approchant.
-- A+ Romer
Geo
Bonjour Romer,
Je viens de parcourir toutes les questions traitant du VBA dans la FAQ
et n'ai pas bien vu celle qui pourrait me faire enregistrer automatiquement des centaines de fichiers texte en .rtf ou du moins un
exemple approchant.
Non pas exactement, c'est une macro qui balaye tout un répertoire : http://faq.ms.word.free.fr/VBA/VBA_rep.htm#v103 C'est toujours ça de fait.
Il faut y remplacer le msgbox par un open et un save en rtf. Pour cette partie tu le fais une fois à la main en demandant à ton ami l'enregistreur de macros de te donner le code, que tu adaptes ensuite.
Si tu n'y arrives pas, reviens-nous. Si, comme dit Corentin, la police est Unicode il faut prévoir de remplacer tout le texte par une police non unicode.
A+
Bonjour Romer,
Je viens de parcourir toutes les questions traitant du VBA dans la
FAQ
et n'ai pas bien vu celle qui pourrait me faire enregistrer
automatiquement des centaines de fichiers texte en .rtf ou du moins
un
exemple approchant.
Non pas exactement, c'est une macro qui balaye tout un répertoire :
http://faq.ms.word.free.fr/VBA/VBA_rep.htm#v103
C'est toujours ça de fait.
Il faut y remplacer le msgbox par un open
et un save en rtf.
Pour cette partie tu le fais une fois à la main en demandant à ton ami
l'enregistreur de macros de te donner le code, que tu adaptes ensuite.
Si tu n'y arrives pas, reviens-nous.
Si, comme dit Corentin, la police est Unicode il faut prévoir de
remplacer tout le texte par une police non unicode.
Je viens de parcourir toutes les questions traitant du VBA dans la FAQ
et n'ai pas bien vu celle qui pourrait me faire enregistrer automatiquement des centaines de fichiers texte en .rtf ou du moins un
exemple approchant.
Non pas exactement, c'est une macro qui balaye tout un répertoire : http://faq.ms.word.free.fr/VBA/VBA_rep.htm#v103 C'est toujours ça de fait.
Il faut y remplacer le msgbox par un open et un save en rtf. Pour cette partie tu le fais une fois à la main en demandant à ton ami l'enregistreur de macros de te donner le code, que tu adaptes ensuite.
Si tu n'y arrives pas, reviens-nous. Si, comme dit Corentin, la police est Unicode il faut prévoir de remplacer tout le texte par une police non unicode.
A+
Geo
Psstt Corentin ,
Il y a une autre question pour Mac : de Fabian le 22 à 15 h 52 heure de Paris Je te laisse transposer :-)
A+
Psstt Corentin ,
Il y a une autre question pour Mac :
de Fabian le 22 à 15 h 52 heure de Paris
Je te laisse transposer :-)
Il y a une autre question pour Mac : de Fabian le 22 à 15 h 52 heure de Paris Je te laisse transposer :-)
J'y vais de ce pas... Celui-ci a dû passer mes filtres ;-))) Merci beaucoup Geo :-)
Corentin
-- --- Mac:MS MVP (Francophone) --- (MS) MVP: http://mvp.support.microsoft.com/ MVPs.org: http://www.mvps.org/ Retirez NoSpam de mon adresse pour m'écrire/Remove NoSpam to e-mail me
romer
Corentin Cras-Méneur [MVP] wrote:
Il faut s'assurer qu'Internet Config a une application enregistrée par défaut pour ce protocole... Autrement, le lien ne peut être transféré nulle part. Option 2, copier le lien et entrer l'adresse manuellement dans le lecteur news choisi...
C'est comme cela que ça a marché mais pas dans mon navigateur et pourtant ce n'est pas faute d'avoir essayé plusieurs combinaisons même les plus abstruses. -- A+ Romer
Il faut s'assurer qu'Internet Config a une application enregistrée par
défaut pour ce protocole... Autrement, le lien ne peut être transféré
nulle part. Option 2, copier le lien et entrer l'adresse manuellement
dans le lecteur news choisi...
C'est comme cela que ça a marché mais pas dans mon navigateur et
pourtant ce n'est pas faute d'avoir essayé plusieurs combinaisons même
les plus abstruses.
--
A+
Romer
Il faut s'assurer qu'Internet Config a une application enregistrée par défaut pour ce protocole... Autrement, le lien ne peut être transféré nulle part. Option 2, copier le lien et entrer l'adresse manuellement dans le lecteur news choisi...
C'est comme cela que ça a marché mais pas dans mon navigateur et pourtant ce n'est pas faute d'avoir essayé plusieurs combinaisons même les plus abstruses. -- A+ Romer
romer
Corentin Cras-Méneur [MVP] wrote:
Pour le RTF, il faudra aussi s'assurer que les ficheirs ne sont pas encodés avec de l'Unicode car il est clair que Word 98 (et X) ne reconnait pas l'Unicode.
Ce sont des fichiers créés avec Word derniere version - il y a de l'unicode là-dedans ? -- A+ Romer
Pour le RTF, il faudra aussi s'assurer que les ficheirs ne sont pas
encodés avec de l'Unicode car il est clair que Word 98 (et X) ne
reconnait pas l'Unicode.
Ce sont des fichiers créés avec Word derniere version - il y a de
l'unicode là-dedans ?
--
A+
Romer
Pour le RTF, il faudra aussi s'assurer que les ficheirs ne sont pas encodés avec de l'Unicode car il est clair que Word 98 (et X) ne reconnait pas l'Unicode.
Ce sont des fichiers créés avec Word derniere version - il y a de l'unicode là-dedans ? -- A+ Romer
romer
Clément Marcotte wrote:
Il te parlait d'une macro pour balayer les répertoires, que tu vas devoir rabouter à une macro pour lire le fichier et le convertir.
Je vais essayer mais je sens que ce n'est pas gagné ! .-- A+ Romer
Il te parlait d'une macro pour balayer les répertoires, que tu vas devoir rabouter à une macro pour lire le fichier et le convertir.
Je vais essayer mais je sens que ce n'est pas gagné ! .-- A+ Romer
romer
Geo wrote:
....
Dim listeFichiers() Dim Compte as integer ' se positionner sur le dossier concerné : CurDir Temp = Dir(CurDir, MacID("TEXT")) ' mac
Compte = -1 While Temp <> "" ReDim Preserve listeFichiers(Compte) listeFichiers(Compte) = Temp Temp = Dir() Wend ....
C'est très gentil de ta part de te donner tout ce mal mais ça ressemble pour moi à du haut-islandais primitif et hautement hermétique. Je n'y arriverai pas - pour cette année du moins. Faudrait songer à se plonger dans un cours de VBA. -- A+ Romer
Geo <Geo@sans.pub> wrote:
....
Dim listeFichiers()
Dim Compte as integer
' se positionner sur le dossier concerné : CurDir
Temp = Dir(CurDir, MacID("TEXT")) ' mac
Compte = -1
While Temp <> ""
ReDim Preserve listeFichiers(Compte)
listeFichiers(Compte) = Temp
Temp = Dir()
Wend
....
C'est très gentil de ta part de te donner tout ce mal mais ça ressemble
pour moi à du haut-islandais primitif et hautement hermétique. Je n'y
arriverai pas - pour cette année du moins. Faudrait songer à se plonger
dans un cours de VBA.
--
A+
Romer
Dim listeFichiers() Dim Compte as integer ' se positionner sur le dossier concerné : CurDir Temp = Dir(CurDir, MacID("TEXT")) ' mac
Compte = -1 While Temp <> "" ReDim Preserve listeFichiers(Compte) listeFichiers(Compte) = Temp Temp = Dir() Wend ....
C'est très gentil de ta part de te donner tout ce mal mais ça ressemble pour moi à du haut-islandais primitif et hautement hermétique. Je n'y arriverai pas - pour cette année du moins. Faudrait songer à se plonger dans un cours de VBA. -- A+ Romer
romer
Geo wrote:
Si tu n'y arrives pas, reviens-nous. Si, comme dit Corentin, la police est Unicode il faut prévoir de remplacer tout le texte par une police non unicode.
Merci - je m'y mets demain avec des cellules grises reposées. -- A+ Romer
Geo <Geo@sans.pub> wrote:
Si tu n'y arrives pas, reviens-nous.
Si, comme dit Corentin, la police est Unicode il faut prévoir de
remplacer tout le texte par une police non unicode.
Merci - je m'y mets demain avec des cellules grises reposées.
--
A+
Romer
Si tu n'y arrives pas, reviens-nous. Si, comme dit Corentin, la police est Unicode il faut prévoir de remplacer tout le texte par une police non unicode.
Merci - je m'y mets demain avec des cellules grises reposées. -- A+ Romer
