Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Date + word

Date + word

6 réponses
Avatar
oliver
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Daniel.C
Bonsoir.
Je ne connais pas trop Word. La macro copie la cellule A1 à l'emplacement du
signet "fin". Il y a sans doute plus malin.
Dans le classeur Excel :

Sub MacroWord()
Set Wordobj = GetObject(, "Word.Application")
Wordobj.Visible = True
' Mets en dessous le nom de ton document
Wordobj.Documents.Open "E:donneesdanielCOURRIER.DOC"
Wordobj.Run "Macro1", [A1]
Set Wordobj = Nothing
End Sub

Dans le document Word :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
Selection.TypeText Text:Út
End Sub

Cordialement.
Daniel
"oliver" a écrit dans le message de news:
47cefb67$0$25472$
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci



Avatar
LSteph
Bonsoir,

il existe comment, ce champ ..dans word?

--
lSteph

Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci




Avatar
oliver
Merci les macros tournent bien, deux soucis
1)- la date au format "jjjj jj mmmm aaaa" dans EXCEL arrive dans WORD au
format "jj/mm/aaaa"
2)- lorsque relance la macro depuis EXCEL, la date s'incrémente donc je
cumule les date et je passe à la ligne.
Merci
"Daniel.C" a écrit dans le message de news:

Bonsoir.
Je ne connais pas trop Word. La macro copie la cellule A1 à l'emplacement
du signet "fin". Il y a sans doute plus malin.
Dans le classeur Excel :

Sub MacroWord()
Set Wordobj = GetObject(, "Word.Application")
Wordobj.Visible = True
' Mets en dessous le nom de ton document
Wordobj.Documents.Open "E:donneesdanielCOURRIER.DOC"
Wordobj.Run "Macro1", [A1]
Set Wordobj = Nothing
End Sub

Dans le document Word :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
Selection.TypeText Text:Út
End Sub

Cordialement.
Daniel
"oliver" a écrit dans le message de news:
47cefb67$0$25472$
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci







Avatar
Daniel.C
Pour le premier ppoint, il suffit de mettre :

Sub MacroWord()
Set Wordobj = GetObject(, "Word.Application")
Wordobj.Visible = True
' Mets en dessous le nom de ton document
Wordobj.Documents.Open "E:donneesdanielCOURRIER2.DOC"
Wordobj.Run "Macro1", [A1].Text
Set Wordobj = Nothing
End Sub

Par contre, pour le second, je passe la main. Cela excède mes maigres
connaissances.
Daniel
"oliver" a écrit dans le message de news:
47cf193d$0$717$
Merci les macros tournent bien, deux soucis
1)- la date au format "jjjj jj mmmm aaaa" dans EXCEL arrive dans WORD au
format "jj/mm/aaaa"
2)- lorsque relance la macro depuis EXCEL, la date s'incrémente donc je
cumule les date et je passe à la ligne.
Merci
"Daniel.C" a écrit dans le message de news:

Bonsoir.
Je ne connais pas trop Word. La macro copie la cellule A1 à l'emplacement
du signet "fin". Il y a sans doute plus malin.
Dans le classeur Excel :

Sub MacroWord()
Set Wordobj = GetObject(, "Word.Application")
Wordobj.Visible = True
' Mets en dessous le nom de ton document
Wordobj.Documents.Open "E:donneesdanielCOURRIER.DOC"
Wordobj.Run "Macro1", [A1]
Set Wordobj = Nothing
End Sub

Dans le document Word :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
Selection.TypeText Text:Út
End Sub

Cordialement.
Daniel
"oliver" a écrit dans le message de news:
47cefb67$0$25472$
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci











Avatar
Daniel.C
Pour un remplacement systématique de la date (elle doit préexister à la
première exécution de la macro) :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
For i = 1 To 4
Selection.Expand wdWord
Selection.Delete
Next i
Selection.TypeText Text:Út
End Sub

Daniel
"oliver" a écrit dans le message de news:
47cf193d$0$717$
Merci les macros tournent bien, deux soucis
1)- la date au format "jjjj jj mmmm aaaa" dans EXCEL arrive dans WORD au
format "jj/mm/aaaa"
2)- lorsque relance la macro depuis EXCEL, la date s'incrémente donc je
cumule les date et je passe à la ligne.
Merci
"Daniel.C" a écrit dans le message de news:

Bonsoir.
Je ne connais pas trop Word. La macro copie la cellule A1 à l'emplacement
du signet "fin". Il y a sans doute plus malin.
Dans le classeur Excel :

Sub MacroWord()
Set Wordobj = GetObject(, "Word.Application")
Wordobj.Visible = True
' Mets en dessous le nom de ton document
Wordobj.Documents.Open "E:donneesdanielCOURRIER.DOC"
Wordobj.Run "Macro1", [A1]
Set Wordobj = Nothing
End Sub

Dans le document Word :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
Selection.TypeText Text:Út
End Sub

Cordialement.
Daniel
"oliver" a écrit dans le message de news:
47cefb67$0$25472$
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci











Avatar
oliver
C'est parfait
Merci
"Daniel.C" a écrit dans le message de news:

Pour un remplacement systématique de la date (elle doit préexister à la
première exécution de la macro) :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
For i = 1 To 4
Selection.Expand wdWord
Selection.Delete
Next i
Selection.TypeText Text:Út
End Sub

Daniel
"oliver" a écrit dans le message de news:
47cf193d$0$717$
Merci les macros tournent bien, deux soucis
1)- la date au format "jjjj jj mmmm aaaa" dans EXCEL arrive dans WORD au
format "jj/mm/aaaa"
2)- lorsque relance la macro depuis EXCEL, la date s'incrémente donc je
cumule les date et je passe à la ligne.
Merci
"Daniel.C" a écrit dans le message de news:

Bonsoir.
Je ne connais pas trop Word. La macro copie la cellule A1 à
l'emplacement du signet "fin". Il y a sans doute plus malin.
Dans le classeur Excel :

Sub MacroWord()
Set Wordobj = GetObject(, "Word.Application")
Wordobj.Visible = True
' Mets en dessous le nom de ton document
Wordobj.Documents.Open "E:donneesdanielCOURRIER.DOC"
Wordobj.Run "Macro1", [A1]
Set Wordobj = Nothing
End Sub

Dans le document Word :

Sub Macro1(Dat)
Selection.GoTo What:=wdGoToBookmark, Name:="fin"
Selection.TypeText Text:Út
End Sub

Cordialement.
Daniel
"oliver" a écrit dans le message de news:
47cefb67$0$25472$
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci