Problème avec l'instruction Set

Salut,

Je génère un fichier Word à partir d'une macro Excel. La procédure est :

1 J'ouvre le fichier Word qui me sert de trame :

Set WordApp = CreateObject("Word.Application")

Set AC158 = WordApp.Documents.Open(Dossier_logiciel & "Documents\Formulaire AC-158.doc")

2 Après remplissage, je sauvegarde ce fichier sous un nom différent

AC158.SaveAs Filename:=Nouveau nom

Jusque là tout va bien.

3 Après sauvegarde je veux que la variable AC158 soit affectée au nouveau fichier et non plus à la trame

Set AC158 = Nouveau nom

Mais là ça ne marche plus.

Vous auriez une idée du pourquoi du comment ?

Manu

Bonjour,

Le fait d'enregistrer-sous ton document fait que la variable est affectée d'office au document qui vient d'être créé par Enregistrer-Sous :

Sub Test()

    Dim AppWord As Object
    Dim AC158 As Object

    'crée une instance de Word
    Set AppWord = CreateObject("Word.Application")

    With AppWord

        .Visible = True

        'ouvre un document
        Set AC158 = .Documents.Open(Dossier_logiciel & "Documents\Formulaire AC-158.doc")

        With AC158

            '...insèrer le texte de la cellule A1 après le signet (nommé ici "S1") <--- adapter, ici pour le test !
            .Bookmarks("S1").Range.InsertAfter " " & Range("A1")
            .SaveAs Dossier_logiciel & "Documents\Formulaire AC-Nouveau Code.doc"

            MsgBox "le nom du document affecté à la variable 'AC158' est maintenant : " & AC158.Name

        End With

    End With

End Sub

Bonsoir

un fichier avec le code serait le bienvenu, pour une aide plus ciblée, enfin je crois.

Cordia5