J'utilise ce bout de code avec la version Office XP, j'essaie de l'utiliser
avec Office 2003 et il gèle sur la ligne 1120.
Y a-t-il une façon différente de l'écrire avec Office 2003`
1100 Set appWD = CreateObject("Word.Application") ' un objet word est créé
1110 Set doc1 = appWD.Documents.Open(W & ":\L\Data\Bbs\sku" & oo)
1120 doc1.SaveAs Filename:=W & ":\Document\Claire\Caisse de Noël\" & nom, _
FileFormat:=wdFormatDocument
1130 appWD.Quit ' je quitte Word
1140 Set appWD = Nothing
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
Gaenonius
La constante wdFormatDocument n'est probablement pas reconnue. Si tu as dans Excel une référence à la bibliothèque des objets de Word, elle concerne Word 10 et il faut sans doute la mettre à jour vers Word 11. Mais le plus simple est peut-être de remplacer la constante par sa valeur (0 en Word 2002), en espérant qu'elle n'a pas changé entre les deux versions (sinon, il faudra tester la version courante pour passer la bonne valeur).
-- Gaenonius
Bonjour,
J'utilise ce bout de code avec la version Office XP, j'essaie de l'utiliser avec Office 2003 et il gèle sur la ligne 1120.
Y a-t-il une façon différente de l'écrire avec Office 2003`
1100 Set appWD = CreateObject("Word.Application") ' un objet word est créé 1110 Set doc1 = appWD.Documents.Open(W & ":LDataBbssku" & oo) 1120 doc1.SaveAs Filename:=W & ":DocumentClaireCaisse de Noël" & nom, _ FileFormat:=wdFormatDocument 1130 appWD.Quit ' je quitte Word 1140 Set appWD = Nothing
Merci Claire
La constante wdFormatDocument n'est probablement pas reconnue. Si tu as dans
Excel une référence à la bibliothèque des objets de Word, elle concerne Word 10
et il faut sans doute la mettre à jour vers Word 11.
Mais le plus simple est peut-être de remplacer la constante par sa valeur (0 en
Word 2002), en espérant qu'elle n'a pas changé entre les deux versions (sinon,
il faudra tester la version courante pour passer la bonne valeur).
--
Gaenonius
Bonjour,
J'utilise ce bout de code avec la version Office XP, j'essaie de l'utiliser
avec Office 2003 et il gèle sur la ligne 1120.
Y a-t-il une façon différente de l'écrire avec Office 2003`
1100 Set appWD = CreateObject("Word.Application") ' un objet word est créé
1110 Set doc1 = appWD.Documents.Open(W & ":LDataBbssku" & oo)
1120 doc1.SaveAs Filename:=W & ":DocumentClaireCaisse de Noël" & nom, _
FileFormat:=wdFormatDocument
1130 appWD.Quit ' je quitte Word
1140 Set appWD = Nothing
La constante wdFormatDocument n'est probablement pas reconnue. Si tu as dans Excel une référence à la bibliothèque des objets de Word, elle concerne Word 10 et il faut sans doute la mettre à jour vers Word 11. Mais le plus simple est peut-être de remplacer la constante par sa valeur (0 en Word 2002), en espérant qu'elle n'a pas changé entre les deux versions (sinon, il faudra tester la version courante pour passer la bonne valeur).
-- Gaenonius
Bonjour,
J'utilise ce bout de code avec la version Office XP, j'essaie de l'utiliser avec Office 2003 et il gèle sur la ligne 1120.
Y a-t-il une façon différente de l'écrire avec Office 2003`
1100 Set appWD = CreateObject("Word.Application") ' un objet word est créé 1110 Set doc1 = appWD.Documents.Open(W & ":LDataBbssku" & oo) 1120 doc1.SaveAs Filename:=W & ":DocumentClaireCaisse de Noël" & nom, _ FileFormat:=wdFormatDocument 1130 appWD.Quit ' je quitte Word 1140 Set appWD = Nothing
