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
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
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" <oliver6@free.fr> a écrit dans le message de news:
47cefb67$0$25472$426a74cc@news.free.fr...
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
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
LSteph
Bonsoir,
il existe comment, ce champ ..dans word?
-- lSteph
Bonjour, comment renvoyer une date (cellule excel) vers un champ dans word? Merci
Bonsoir,
il existe comment, ce champ ..dans word?
--
lSteph
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
Bonjour, comment renvoyer une date (cellule excel) vers un champ dans word? Merci
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
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
euASkQwfIHA.4436@TK2MSFTNGP02.phx.gbl...
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" <oliver6@free.fr> a écrit dans le message de news:
47cefb67$0$25472$426a74cc@news.free.fr...
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
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
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
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" <oliver6@free.fr> a écrit dans le message de news:
47cf193d$0$717$426a74cc@news.free.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
euASkQwfIHA.4436@TK2MSFTNGP02.phx.gbl...
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" <oliver6@free.fr> a écrit dans le message de news:
47cefb67$0$25472$426a74cc@news.free.fr...
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
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
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
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" <oliver6@free.fr> a écrit dans le message de news:
47cf193d$0$717$426a74cc@news.free.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
euASkQwfIHA.4436@TK2MSFTNGP02.phx.gbl...
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" <oliver6@free.fr> a écrit dans le message de news:
47cefb67$0$25472$426a74cc@news.free.fr...
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
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
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
C'est parfait
Merci
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ulyKJhxfIHA.5296@TK2MSFTNGP05.phx.gbl...
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" <oliver6@free.fr> a écrit dans le message de news:
47cf193d$0$717$426a74cc@news.free.fr...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
euASkQwfIHA.4436@TK2MSFTNGP02.phx.gbl...
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" <oliver6@free.fr> a écrit dans le message de news:
47cefb67$0$25472$426a74cc@news.free.fr...
Bonjour,
comment renvoyer une date (cellule excel) vers un champ dans word?
Merci
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