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 ...

[sabzzz]

bonjour cleytus,

à quoi correspond la variable "ref" ?
est ce que c'est un nom valide de fichier ?
est ce que tu ajoute l'image par l'instruction

Code :

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

.Shapes.AddPicture

[cleytus]

Voici deux exemples de variables ref :
301830A
890093
De manière plus générale c'est une suite de 5 ou 6 chiffres avec éventuellement une lettre au bout.
J'utilise ce code :

Code :

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

1
2
3
WordDoc3.InlineShapes.AddPicture Filename:= _
        (Adr & "\" & "trig.jpg"), LinkToFile:=False, _
        SaveWithDocument:=True

Y-a-t-il une différence notable entre Shapes et InlineShapes ?

[sabzzz]

bonjour cleytus,

Y-a-t-il une différence notable entre Shapes et InlineShapes ?

tu veut ajouter une nouvelle image vide ?

[cleytus]

Non je veux ajouter le dessin technique correspondant à la référence ...

[sabzzz]

bonjour cleytus,

Code :

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

1
2
3
4
5
    With WordDoc3.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
        Adr & "\" & ref & ".jpg" _
        , LinkToFile:=False, SaveWithDocument:=True)
        .WrapFormat.Type = 3
    End With

[cleytus]

Ton code provoque une erreur 450 : nombre d'arguments incorrect ou affectation de propriété incorrecte.
Il semblerait que vba n'aime pas la propriété Anchor