Je reçois tous les jours un fichier de plusiseurs dizaines de pages
ayant le même formatage et notamment un cartouche :
|Date | Texte |
| | |
est-il possible de faire une recherhce sur la chaine
"|Date |" de remplacer 10 espaces par la date du jour et
de mettre mon nom entre les 2 traits comme l'exemple ci dessous :
|Date 14/03/2006 | Texte |
|Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même
nombre de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier
tous mes bouts de macros.
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
AB
Bonjour,
La macro ci-après fait à peu près ce que tu souhaites (je n'ai pas bien compris les barres verticales). Mais elle suppose que le mot "date" est en début de document (ce qui m'étonnerait). A adapter, en fonction de l'emplacement du mot "date". Si ce mot n'est pas toujours au même endroit, c'est plus compliqué, car il va falloir le chercher avant de procéder aux changements. AB
Sub essai() ' ' essai Macro ' Macro enregistrée le mardi 14 mars 2006 par AB ' Selection.HomeKey Unit:=wdStory Selection.MoveRight Unit:=wdCharacter, Count:=4 Selection.Delete Unit:=wdCharacter, Count: Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy", InsertAsField:= _ False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:úlse Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeText Text:="Mon Nom" End Sub
"lolo" a écrit dans le message de news: 44172fcc$0$12864$
Salut à tous,
Je reçois tous les jours un fichier de plusiseurs dizaines de pages ayant le même formatage et notamment un cartouche :
|Date | Texte | | | |
est-il possible de faire une recherhce sur la chaine "|Date |" de remplacer 10 espaces par la date du jour et de mettre mon nom entre les 2 traits comme l'exemple ci dessous : |Date 14/03/2006 | Texte | |Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même nombre de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier tous mes bouts de macros.
D'avance merci.
Bonjour,
La macro ci-après fait à peu près ce que tu souhaites (je n'ai pas bien
compris les barres verticales). Mais elle suppose que le mot "date" est en
début de document (ce qui m'étonnerait).
A adapter, en fonction de l'emplacement du mot "date". Si ce mot n'est pas
toujours au même endroit, c'est plus compliqué, car il va falloir le
chercher avant de procéder aux changements.
AB
Sub essai()
'
' essai Macro
' Macro enregistrée le mardi 14 mars 2006 par AB
'
Selection.HomeKey Unit:=wdStory
Selection.MoveRight Unit:=wdCharacter, Count:=4
Selection.Delete Unit:=wdCharacter, Count:
Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy",
InsertAsField:= _
False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:úlse
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:="Mon Nom"
End Sub
"lolo" <l.maire_nospam@free.fr> a écrit dans le message de news:
44172fcc$0$12864$626a54ce@news.free.fr...
Salut à tous,
Je reçois tous les jours un fichier de plusiseurs dizaines de pages ayant
le même formatage et notamment un cartouche :
|Date | Texte |
| | |
est-il possible de faire une recherhce sur la chaine
"|Date |" de remplacer 10 espaces par la date du jour et de
mettre mon nom entre les 2 traits comme l'exemple ci dessous :
|Date 14/03/2006 | Texte |
|Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même nombre
de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier
tous mes bouts de macros.
La macro ci-après fait à peu près ce que tu souhaites (je n'ai pas bien compris les barres verticales). Mais elle suppose que le mot "date" est en début de document (ce qui m'étonnerait). A adapter, en fonction de l'emplacement du mot "date". Si ce mot n'est pas toujours au même endroit, c'est plus compliqué, car il va falloir le chercher avant de procéder aux changements. AB
Sub essai() ' ' essai Macro ' Macro enregistrée le mardi 14 mars 2006 par AB ' Selection.HomeKey Unit:=wdStory Selection.MoveRight Unit:=wdCharacter, Count:=4 Selection.Delete Unit:=wdCharacter, Count: Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy", InsertAsField:= _ False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:úlse Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeText Text:="Mon Nom" End Sub
"lolo" a écrit dans le message de news: 44172fcc$0$12864$
Salut à tous,
Je reçois tous les jours un fichier de plusiseurs dizaines de pages ayant le même formatage et notamment un cartouche :
|Date | Texte | | | |
est-il possible de faire une recherhce sur la chaine "|Date |" de remplacer 10 espaces par la date du jour et de mettre mon nom entre les 2 traits comme l'exemple ci dessous : |Date 14/03/2006 | Texte | |Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même nombre de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier tous mes bouts de macros.
D'avance merci.
lolo
Bonjour, Les barres verticales sont presentes dans le document. C'est pour cela que je les ai fait apparaitre. La cartouche que j'ai mis en exemple ressemble à celle que l'on reçoit.
En fait je reçois un fichier de plusieurs pages, séparés par des sauts de page. A la fin de chaque facture (qui peuvent tenir sur 2 pages), j'ai une cartouche que je remplis pour l'instant avec un tampon. C'est pour cela que je cherche à automatiser la date et le nom.
Bonjour,
La macro ci-après fait à peu près ce que tu souhaites (je n'ai pas bien compris les barres verticales). Mais elle suppose que le mot "date" est en début de document (ce qui m'étonnerait). A adapter, en fonction de l'emplacement du mot "date". Si ce mot n'est pas toujours au même endroit, c'est plus compliqué, car il va falloir le chercher avant de procéder aux changements. AB
Sub essai() ' ' essai Macro ' Macro enregistrée le mardi 14 mars 2006 par AB ' Selection.HomeKey Unit:=wdStory Selection.MoveRight Unit:=wdCharacter, Count:=4 Selection.Delete Unit:=wdCharacter, Count: Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy", InsertAsField:= _ False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:úlse Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeText Text:="Mon Nom" End Sub
"lolo" a écrit dans le message de news: 44172fcc$0$12864$
Salut à tous,
Je reçois tous les jours un fichier de plusiseurs dizaines de pages ayant le même formatage et notamment un cartouche :
|Date | Texte | | | |
est-il possible de faire une recherhce sur la chaine "|Date |" de remplacer 10 espaces par la date du jour et de mettre mon nom entre les 2 traits comme l'exemple ci dessous : |Date 14/03/2006 | Texte | |Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même nombre de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier tous mes bouts de macros.
D'avance merci.
Bonjour,
Les barres verticales sont presentes dans le document.
C'est pour cela que je les ai fait apparaitre.
La cartouche que j'ai mis en exemple ressemble à celle que l'on reçoit.
En fait je reçois un fichier de plusieurs pages, séparés par des sauts
de page. A la fin de chaque facture (qui peuvent tenir sur 2 pages),
j'ai une cartouche que je remplis pour l'instant avec un tampon.
C'est pour cela que je cherche à automatiser la date et le nom.
Bonjour,
La macro ci-après fait à peu près ce que tu souhaites (je n'ai pas bien
compris les barres verticales). Mais elle suppose que le mot "date" est en
début de document (ce qui m'étonnerait).
A adapter, en fonction de l'emplacement du mot "date". Si ce mot n'est pas
toujours au même endroit, c'est plus compliqué, car il va falloir le
chercher avant de procéder aux changements.
AB
Sub essai()
'
' essai Macro
' Macro enregistrée le mardi 14 mars 2006 par AB
'
Selection.HomeKey Unit:=wdStory
Selection.MoveRight Unit:=wdCharacter, Count:=4
Selection.Delete Unit:=wdCharacter, Count:
Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy",
InsertAsField:= _
False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:úlse
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:="Mon Nom"
End Sub
"lolo" <l.maire_nospam@free.fr> a écrit dans le message de news:
44172fcc$0$12864$626a54ce@news.free.fr...
Salut à tous,
Je reçois tous les jours un fichier de plusiseurs dizaines de pages ayant
le même formatage et notamment un cartouche :
|Date | Texte |
| | |
est-il possible de faire une recherhce sur la chaine
"|Date |" de remplacer 10 espaces par la date du jour et de
mettre mon nom entre les 2 traits comme l'exemple ci dessous :
|Date 14/03/2006 | Texte |
|Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même nombre
de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier
tous mes bouts de macros.
Bonjour, Les barres verticales sont presentes dans le document. C'est pour cela que je les ai fait apparaitre. La cartouche que j'ai mis en exemple ressemble à celle que l'on reçoit.
En fait je reçois un fichier de plusieurs pages, séparés par des sauts de page. A la fin de chaque facture (qui peuvent tenir sur 2 pages), j'ai une cartouche que je remplis pour l'instant avec un tampon. C'est pour cela que je cherche à automatiser la date et le nom.
Bonjour,
La macro ci-après fait à peu près ce que tu souhaites (je n'ai pas bien compris les barres verticales). Mais elle suppose que le mot "date" est en début de document (ce qui m'étonnerait). A adapter, en fonction de l'emplacement du mot "date". Si ce mot n'est pas toujours au même endroit, c'est plus compliqué, car il va falloir le chercher avant de procéder aux changements. AB
Sub essai() ' ' essai Macro ' Macro enregistrée le mardi 14 mars 2006 par AB ' Selection.HomeKey Unit:=wdStory Selection.MoveRight Unit:=wdCharacter, Count:=4 Selection.Delete Unit:=wdCharacter, Count: Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy", InsertAsField:= _ False, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:úlse Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeText Text:="Mon Nom" End Sub
"lolo" a écrit dans le message de news: 44172fcc$0$12864$
Salut à tous,
Je reçois tous les jours un fichier de plusiseurs dizaines de pages ayant le même formatage et notamment un cartouche :
|Date | Texte | | | |
est-il possible de faire une recherhce sur la chaine "|Date |" de remplacer 10 espaces par la date du jour et de mettre mon nom entre les 2 traits comme l'exemple ci dessous : |Date 14/03/2006 | Texte | |Mon NOM | |
J'aimerais bien automatiser le principe car je n'ai jamais le même nombre de pages par jour.
J'ai essayé en lançant l'editeur de macro, mais je n'arrive pas à relier tous mes bouts de macros.
D'avance merci.
Geo
Bonjour, Les barres verticales sont présentes dans le document. C'est pour cela que je les ai fait apparaître. La cartouche que j'ai mis en exemple ressemble à celle que l'on reçoit.
En fait je reçois un fichier de plusieurs pages, séparés par des sauts de page. A la fin de chaque facture (qui peuvent tenir sur 2 pages), j'ai une cartouche que je remplis pour l'instant avec un tampon. C'est pour cela que je cherche à automatiser la date et le nom.
Si c'est systématiquement la fin du document, il me semble que le plus simple serait : lancer l'enregistreur de macro aller à la fin (CTL+ Fin) puis se mettre en mode extension F8 Remonter d'autant de caractères que nécessaire (Touche flèche à gauche) Supprimer, arrêter le mode extension f8 et taper le texte. Arrêter l'enregistreur de macro. Dans la macro enregistrée remplacer la date par Selection.InsertAfter Format(Date, "dd mm yyyy")
-- A+
Bonjour,
Les barres verticales sont présentes dans le document.
C'est pour cela que je les ai fait apparaître.
La cartouche que j'ai mis en exemple ressemble à celle que l'on reçoit.
En fait je reçois un fichier de plusieurs pages, séparés par des sauts de page. A la
fin de chaque facture (qui peuvent tenir sur 2 pages), j'ai une cartouche que je
remplis pour l'instant avec un tampon.
C'est pour cela que je cherche à automatiser la date et le nom.
Si c'est systématiquement la fin du document, il me semble que le plus
simple serait :
lancer l'enregistreur de macro
aller à la fin (CTL+ Fin)
puis se mettre en mode extension F8
Remonter d'autant de caractères que nécessaire (Touche flèche à gauche)
Supprimer, arrêter le mode extension f8
et taper le texte.
Arrêter l'enregistreur de macro.
Dans la macro enregistrée remplacer la date par
Selection.InsertAfter Format(Date, "dd mm yyyy")
Bonjour, Les barres verticales sont présentes dans le document. C'est pour cela que je les ai fait apparaître. La cartouche que j'ai mis en exemple ressemble à celle que l'on reçoit.
En fait je reçois un fichier de plusieurs pages, séparés par des sauts de page. A la fin de chaque facture (qui peuvent tenir sur 2 pages), j'ai une cartouche que je remplis pour l'instant avec un tampon. C'est pour cela que je cherche à automatiser la date et le nom.
Si c'est systématiquement la fin du document, il me semble que le plus simple serait : lancer l'enregistreur de macro aller à la fin (CTL+ Fin) puis se mettre en mode extension F8 Remonter d'autant de caractères que nécessaire (Touche flèche à gauche) Supprimer, arrêter le mode extension f8 et taper le texte. Arrêter l'enregistreur de macro. Dans la macro enregistrée remplacer la date par Selection.InsertAfter Format(Date, "dd mm yyyy")
