Problème:
Lors de la première exécution du code ci-dessous: pas d'erreur -
fonctionnement normal.
Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert le
fichier word provenant du publispostage alors se produit l'erreur suivante
"Ereur exécution '4160' Nom du fichier incorrect"?.
Cette erreur n'apparait pas si je ferme au préalable le fichier word
provenant du premier publipostage.
Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter
cette erreur??
Private Sub BcContinuer_Click()
Dim ObjWord As Object
Dim DocWord As Variant
Set ObjWord = CreateObject("Word.Application")
With ObjWord
.Documents.Open FileName:="MaîtreFusion_Fax.Doc"
.Visible = True
End With
Set DocWord = ObjWord.ActiveDocument.MailMerge
If DocWord.State = wdMainAndDataSource Then
DocWord.Destination = wdSendToNewDocument
DocWord.Execute
End If
Set ObjWord = Nothing
Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
End Sub
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
3stone
Salut,
"Phil" | Problème: | Lors de la première exécution du code ci-dessous: pas d'erreur - | fonctionnement normal. | Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert le | fichier word provenant du publispostage alors se produit l'erreur suivante | "Ereur exécution '4160' Nom du fichier incorrect"?. | Cette erreur n'apparait pas si je ferme au préalable le fichier word | provenant du premier publipostage. | | Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter | cette erreur?? | | | Private Sub BcContinuer_Click() | Dim ObjWord As Object | Dim DocWord As Variant | | Set ObjWord = CreateObject("Word.Application") | With ObjWord | .Documents.Open FileName:="MaîtreFusion_Fax.Doc" | .Visible = True | End With | Set DocWord = ObjWord.ActiveDocument.MailMerge | If DocWord.State = wdMainAndDataSource Then | DocWord.Destination = wdSendToNewDocument | DocWord.Execute | End If | Set ObjWord = Nothing | Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges | End Sub
essaies en modifiant la fin ainsi :
... End if ObjWord.Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges ObjWord.Quit Set DocWord = Nothing Set ObjWord = Nothing
"Phil"
| Problème:
| Lors de la première exécution du code ci-dessous: pas d'erreur -
| fonctionnement normal.
| Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert le
| fichier word provenant du publispostage alors se produit l'erreur suivante
| "Ereur exécution '4160' Nom du fichier incorrect"?.
| Cette erreur n'apparait pas si je ferme au préalable le fichier word
| provenant du premier publipostage.
|
| Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter
| cette erreur??
|
|
| Private Sub BcContinuer_Click()
| Dim ObjWord As Object
| Dim DocWord As Variant
|
| Set ObjWord = CreateObject("Word.Application")
| With ObjWord
| .Documents.Open FileName:="MaîtreFusion_Fax.Doc"
| .Visible = True
| End With
| Set DocWord = ObjWord.ActiveDocument.MailMerge
| If DocWord.State = wdMainAndDataSource Then
| DocWord.Destination = wdSendToNewDocument
| DocWord.Execute
| End If
| Set ObjWord = Nothing
| Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
| End Sub
essaies en modifiant la fin ainsi :
...
End if
ObjWord.Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
ObjWord.Quit
Set DocWord = Nothing
Set ObjWord = Nothing
"Phil" | Problème: | Lors de la première exécution du code ci-dessous: pas d'erreur - | fonctionnement normal. | Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert le | fichier word provenant du publispostage alors se produit l'erreur suivante | "Ereur exécution '4160' Nom du fichier incorrect"?. | Cette erreur n'apparait pas si je ferme au préalable le fichier word | provenant du premier publipostage. | | Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter | cette erreur?? | | | Private Sub BcContinuer_Click() | Dim ObjWord As Object | Dim DocWord As Variant | | Set ObjWord = CreateObject("Word.Application") | With ObjWord | .Documents.Open FileName:="MaîtreFusion_Fax.Doc" | .Visible = True | End With | Set DocWord = ObjWord.ActiveDocument.MailMerge | If DocWord.State = wdMainAndDataSource Then | DocWord.Destination = wdSendToNewDocument | DocWord.Execute | End If | Set ObjWord = Nothing | Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges | End Sub
essaies en modifiant la fin ainsi :
... End if ObjWord.Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges ObjWord.Quit Set DocWord = Nothing Set ObjWord = Nothing
Autre question: Est-t'il possible de définir le nom du new fichier (wdSendToNewDocument)??
Phil
"3stone" a écrit dans le message de news:
Salut,
"Phil" | Problème: | Lors de la première exécution du code ci-dessous: pas d'erreur - | fonctionnement normal. | Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert le
| fichier word provenant du publispostage alors se produit l'erreur suivante
| "Ereur exécution '4160' Nom du fichier incorrect"?. | Cette erreur n'apparait pas si je ferme au préalable le fichier word | provenant du premier publipostage. | | Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter | cette erreur?? | | | Private Sub BcContinuer_Click() | Dim ObjWord As Object | Dim DocWord As Variant | | Set ObjWord = CreateObject("Word.Application") | With ObjWord | .Documents.Open FileName:="MaîtreFusion_Fax.Doc" | .Visible = True | End With | Set DocWord = ObjWord.ActiveDocument.MailMerge | If DocWord.State = wdMainAndDataSource Then | DocWord.Destination = wdSendToNewDocument | DocWord.Execute | End If | Set ObjWord = Nothing | Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
| End Sub
essaies en modifiant la fin ainsi :
... End if ObjWord.Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
ObjWord.Quit Set DocWord = Nothing Set ObjWord = Nothing
Autre question:
Est-t'il possible de définir le nom du new fichier (wdSendToNewDocument)??
Phil
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
eX1UjSTyFHA.596@TK2MSFTNGP12.phx.gbl...
Salut,
"Phil"
| Problème:
| Lors de la première exécution du code ci-dessous: pas d'erreur -
| fonctionnement normal.
| Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert
le
| fichier word provenant du publispostage alors se produit l'erreur
suivante
| "Ereur exécution '4160' Nom du fichier incorrect"?.
| Cette erreur n'apparait pas si je ferme au préalable le fichier word
| provenant du premier publipostage.
|
| Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter
| cette erreur??
|
|
| Private Sub BcContinuer_Click()
| Dim ObjWord As Object
| Dim DocWord As Variant
|
| Set ObjWord = CreateObject("Word.Application")
| With ObjWord
| .Documents.Open FileName:="MaîtreFusion_Fax.Doc"
| .Visible = True
| End With
| Set DocWord = ObjWord.ActiveDocument.MailMerge
| If DocWord.State = wdMainAndDataSource Then
| DocWord.Destination = wdSendToNewDocument
| DocWord.Execute
| End If
| Set ObjWord = Nothing
| Documents("MaîtreFusion_Fax.Doc").Close
SaveChanges:=wdDoNotSaveChanges
| End Sub
essaies en modifiant la fin ainsi :
...
End if
ObjWord.Documents("MaîtreFusion_Fax.Doc").Close
SaveChanges:=wdDoNotSaveChanges
ObjWord.Quit
Set DocWord = Nothing
Set ObjWord = Nothing
Autre question: Est-t'il possible de définir le nom du new fichier (wdSendToNewDocument)??
Phil
"3stone" a écrit dans le message de news:
Salut,
"Phil" | Problème: | Lors de la première exécution du code ci-dessous: pas d'erreur - | fonctionnement normal. | Par contre lorsque j'exécute une seconde fois ce code en laissant ouvert le
| fichier word provenant du publispostage alors se produit l'erreur suivante
| "Ereur exécution '4160' Nom du fichier incorrect"?. | Cette erreur n'apparait pas si je ferme au préalable le fichier word | provenant du premier publipostage. | | Que dois-je modifier dans mes lignes de codes ou rajouter afin d'éviter | cette erreur?? | | | Private Sub BcContinuer_Click() | Dim ObjWord As Object | Dim DocWord As Variant | | Set ObjWord = CreateObject("Word.Application") | With ObjWord | .Documents.Open FileName:="MaîtreFusion_Fax.Doc" | .Visible = True | End With | Set DocWord = ObjWord.ActiveDocument.MailMerge | If DocWord.State = wdMainAndDataSource Then | DocWord.Destination = wdSendToNewDocument | DocWord.Execute | End If | Set ObjWord = Nothing | Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
| End Sub
essaies en modifiant la fin ainsi :
... End if ObjWord.Documents("MaîtreFusion_Fax.Doc").Close SaveChanges:=wdDoNotSaveChanges
ObjWord.Quit Set DocWord = Nothing Set ObjWord = Nothing
