[vba] Erreur 462 centimetersToPoints(1)

Bonjour à tous
J'ai une macro qui pilote Word à partir d'Outlook. Cependant losque
je la lance 2 fois de suite j'ai une erreur
462 : le serveur distant n'existe pas ou n'est pas disponible.
Sur la ligne

(With appWord.activedocument.pagesetup)
.TopMargin = centimetersToPoints(1)

et si je remplace par
.TopMargin = 28.35
Ca marche ???!!!! Auriez vous une explication ?


Voici mon code
Private Sub OUVREMAIL()
'
' OUVREMAIL Macro
' Macro enregistrée le 09/06/2005 par Olivier CATTEAU
'
'Déclaration des variables
Dim appWord As word.Application

strname = repertoire & "Email " &
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(objCurrentMessage.Subject,
"", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""),
"|", ""), ".", ""), """", "")
objCurrentMessage.SaveAs strname & ".doc", OlSaveAsType.olHTML
Set appWord = CreateObject("Word.Application")
appWord.ActivePrinter = "NOVAXEL PDF"
boucle = 0

'ouvre le fichier
appWord.ChangeFileOpenDirectory repertoire
appWord.DisplayAlerts = wdAlertsNone
appWord.Documents.Open FileName:= _
strname & ".doc", _
ConfirmConversions:úlse, ReadOnly:=True,
AddToRecentFiles:úlse, _
PasswordDocument:="", PasswordTemplate:="", Revert:úlse, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format: > _ wdOpenFormatAuto, XMLTransform:=""
appWord.DisplayAlerts = wdAlertsAll
appWord.ScreenUpdating = False

'mise en page
With appWord.ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = centimetersToPoints(1)
.BottomMargin = centimetersToPoints(1)
.LeftMargin = centimetersToPoints(1)
.RightMargin = centimetersToPoints(1)
.Gutter = 0
.HeaderDistance = centimetersToPoints(1)
.FooterDistance = centimetersToPoints(1)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
' ...
appWord.DisplayAlerts = wdAlertsAll
appWord.Visible = False
If appWord.Documents.Count = 0 Then appWord.Quit
Set appWord = Nothing
End Sub

J'ai une macro qui pilote Word à partir d'Outlook. Cependant losque je la
lance 2 fois de suite j'ai une erreur
462 : le serveur distant n'existe pas ou n'est pas disponible.

Bonjour !

'Oliv'' nous a écrit ...

J'ai une macro qui pilote Word à partir d'Outlook. Cependant losque
je la lance 2 fois de suite j'ai une erreur
462 : le serveur distant n'existe pas ou n'est pas disponible.

Lisez :
http://support.microsoft.com/kb/189618/fr
votre problème était probablement très voisin...

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE