Le but est de faire une lettre d'accompagnement Word avec des données
issues d'un classeur Excel. Le code suivant est dans un module d'Excel.
Sub test_lettre_acc()
lettre = ThisWorkbook.Path & "\CF 1.dot"
Set MonDoc = CreateObject("Word.Application.8")
With MonDoc
.Documents.Add Template:=lettre, NewTemplate:=False
.Visible = True
.WindowState = wdWindowStateMinimize
.Selection.Goto What:=wdGoToBookmark, Name:="adr1"
.WindowState = wdWindowStateNormal
.Application.ScreenUpdating = True
End With
Set MonDoc = Nothing
End Sub
Le problème est que la macro s'arrête sur cette ligne :
.Selection.Goto What:=wdGoToBookmark, Name:="adr1"
sous prétexte que le signet n'existerait pas.
Mais si qu'il existe : c'est moi qui l'ait fait !
Et le code est texto celui de l'enregistreur de macros.
Et quand je le fais à la main, ça marche ...
Si une âme charitable passait dans les environs, elle serait la bienvenue.
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
FxM
Re-
Comme souvent c'est dans la FAQ (pardon Circé de ne pas l'avoir consultée avant).
Cocher Outils - référence - Microsoft Word 10.0 Object Library et modifier la ligne par Set MonDoc = CreateObject("Word.Application")
4 heures sur cette co.... ! Bref passons. Bises aux filles et poignée de main aux hommes.
@+ FxM
Bonjour,
Le but est de faire une lettre d'accompagnement Word avec des données issues d'un classeur Excel. Le code suivant est dans un module d'Excel.
Sub test_lettre_acc() lettre = ThisWorkbook.Path & "CF 1.dot" Set MonDoc = CreateObject("Word.Application.8") With MonDoc .Documents.Add Template:=lettre, NewTemplate:úlse .Visible = True .WindowState = wdWindowStateMinimize .Selection.Goto What:=wdGoToBookmark, Name:="adr1" .WindowState = wdWindowStateNormal .Application.ScreenUpdating = True End With Set MonDoc = Nothing End Sub
Le problème est que la macro s'arrête sur cette ligne : .Selection.Goto What:=wdGoToBookmark, Name:="adr1" sous prétexte que le signet n'existerait pas.
Mais si qu'il existe : c'est moi qui l'ait fait ! Et le code est texto celui de l'enregistreur de macros. Et quand je le fais à la main, ça marche ...
Si une âme charitable passait dans les environs, elle serait la bienvenue.
@+ FxM
Re-
Comme souvent c'est dans la FAQ (pardon Circé de ne pas l'avoir
consultée avant).
Cocher Outils - référence - Microsoft Word 10.0 Object Library
et modifier la ligne par
Set MonDoc = CreateObject("Word.Application")
4 heures sur cette co.... ! Bref passons.
Bises aux filles et poignée de main aux hommes.
@+
FxM
Bonjour,
Le but est de faire une lettre d'accompagnement Word avec des données
issues d'un classeur Excel. Le code suivant est dans un module d'Excel.
Sub test_lettre_acc()
lettre = ThisWorkbook.Path & "CF 1.dot"
Set MonDoc = CreateObject("Word.Application.8")
With MonDoc
.Documents.Add Template:=lettre, NewTemplate:úlse
.Visible = True
.WindowState = wdWindowStateMinimize
.Selection.Goto What:=wdGoToBookmark, Name:="adr1"
.WindowState = wdWindowStateNormal
.Application.ScreenUpdating = True
End With
Set MonDoc = Nothing
End Sub
Le problème est que la macro s'arrête sur cette ligne :
.Selection.Goto What:=wdGoToBookmark, Name:="adr1"
sous prétexte que le signet n'existerait pas.
Mais si qu'il existe : c'est moi qui l'ait fait !
Et le code est texto celui de l'enregistreur de macros.
Et quand je le fais à la main, ça marche ...
Si une âme charitable passait dans les environs, elle serait la bienvenue.
Comme souvent c'est dans la FAQ (pardon Circé de ne pas l'avoir consultée avant).
Cocher Outils - référence - Microsoft Word 10.0 Object Library et modifier la ligne par Set MonDoc = CreateObject("Word.Application")
4 heures sur cette co.... ! Bref passons. Bises aux filles et poignée de main aux hommes.
@+ FxM
Bonjour,
Le but est de faire une lettre d'accompagnement Word avec des données issues d'un classeur Excel. Le code suivant est dans un module d'Excel.
Sub test_lettre_acc() lettre = ThisWorkbook.Path & "CF 1.dot" Set MonDoc = CreateObject("Word.Application.8") With MonDoc .Documents.Add Template:=lettre, NewTemplate:úlse .Visible = True .WindowState = wdWindowStateMinimize .Selection.Goto What:=wdGoToBookmark, Name:="adr1" .WindowState = wdWindowStateNormal .Application.ScreenUpdating = True End With Set MonDoc = Nothing End Sub
Le problème est que la macro s'arrête sur cette ligne : .Selection.Goto What:=wdGoToBookmark, Name:="adr1" sous prétexte que le signet n'existerait pas.
Mais si qu'il existe : c'est moi qui l'ait fait ! Et le code est texto celui de l'enregistreur de macros. Et quand je le fais à la main, ça marche ...
Si une âme charitable passait dans les environs, elle serait la bienvenue.
@+ FxM
Circé
Hello François Xavier,
FxM avait écrit le 23/11/2006 :
Re-
Comme souvent c'est dans la FAQ (pardon Circé de ne pas l'avoir consultée 4 heures sur cette co.... ! Bref passons.
Y a tellement de choses dans la faq, Qu'il faut toujours commencer par là !!! ;)
Bises aux filles et poignée de main aux hommes.
Bises à toi,
Circé
Hello François Xavier,
FxM avait écrit le 23/11/2006 :
Re-
Comme souvent c'est dans la FAQ (pardon Circé de ne pas l'avoir consultée
4 heures sur cette co.... ! Bref passons.
Y a tellement de choses dans la faq,
Qu'il faut toujours commencer par là !!! ;)