Discussion :

[cleytus]

Bonjour,

Voila je suis un débutant en vba j'ai commencé jeudi car on m'a demandé de faire une petite macro durant mon stage. Jusque la j'ai réussi à gérer la plupart de mes (nombreuses) erreurs. Mais la je séche complètement il n'y a pas moyen qu'il enregistre ce fichier word.
Pour info j'utilise un fichier excel pour récupérer des références et je m'en sers pour ajouter l'image correspondant dans le fichier word en question et je suis censé enregistrer sous le forme ref.doc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim WordApp3 As Word.Application
Set WordApp3 = CreateObject("word.application")
Dim WordDoc3 As Word.Document
WordApp3.Visible = False '-- ne pas montrer l'application Word
Set WordDoc3 = WordApp3.Documents.Add 
'ajoute une image 
 
'sauvegarde le document word
Adr = "C:\Documents and Settings\joly\Bureau"
WordDoc3.SaveAs (Adr & "\" & ref & ".doc")

Voila sauf qu'il plante toujours sur l'instruction SaveAs.

C'est peut-être un truc tout con et je vais probablement me mettre des baffes après mais comme ça va faire 3 jours que je m'arrache les cheveux la dessus ...