Code inactif suite copie de Feuille

[popaul88]

Bonjour,

J'ai développé un code pour faire un publipostage de données Excel dans un Word notamment avec un ajout de ligne dans un tableau contenu dans le word avec ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 'ajout du tableau des produits
    Set oTbl = LeDocWord.Tables(1)
    ligne = 40
    oTbl.Rows.Last.Cells(1).Range.Text = Cells(ligne, 7)
    oTbl.Rows.Last.Cells(2).Range.Text = Cells(ligne, 8)
    oTbl.Rows.Last.Cells(3).Range.Text = Cells(ligne, 9)
    oTbl.Rows.Last.Cells(4).Range.Text = Cells(ligne, 10)
    ligne = ligne + 1
 
    'ajout dans les balises
    balisetableauprod = "<destignationprod>" & Cells(ligne, 7) & "</destignationprod><quantitéprod>" & Cells(ligne, 8) & "</quantitéprod><prixunitaireprod>" & Cells(ligne, 9) & "</prixunitaireprod><totalprod>" & Cells(ligne, 10) & "</totalprod>"
 
        Do While Not IsEmpty(Cells(ligne, 7))
 
            'ajout des infos pour chaque produit dans le tableau de la facture
            oTbl.Rows.Add
            oTbl.Rows.Last.Cells(1).Range.Text = Cells(ligne, 7)
            oTbl.Rows.Last.Cells(2).Range.Text = Cells(ligne, 8)
            oTbl.Rows.Last.Cells(3).Range.Text = Cells(ligne, 9)
            oTbl.Rows.Last.Cells(4).Range.Text = Cells(ligne, 10)
 
            'ajout dans les balises
            balisetableauprod = balisetableauprod & "<destignationprod>" & Cells(ligne, 7) & "</destignationprod><quantitéprod>" & Cells(ligne, 8) & "</quantitéprod><prixunitaireprod>" & Cells(ligne, 9) & "</prixunitaireprod><totalprod>" & Cells(ligne, 10) & "</totalprod>"
 
            ligne = ligne + 1
        Loop
 
    'inscription des balises du tableau dans la facture
    With LeDocWord
    .Bookmarks("tableprod").Range.Text = balisetableauprod
    End With
 
    Set oTbl = Nothing

Sur mon document Excel d'origine pas de problème tout marche très bien. Puis j'ai dupliquer l'onglet (il n'y a pas d'interaction avec d'autres onglets) concerné sur un autre document excel que j'ai enregistré au même endroit que le premier classeur et là uniquement le nouveau classeur ne veux pas me générer les tableau alors que d'autre modification du même doc word via des bookmarks marche très bien.... (les librairies activées sont les mêmes)

Un indice peut être est que lorsque j'enregistre le classeur excel qui marche bien, il me met ce message : "Avertissement concernant la confidentialité : ce document contient des macro, des controle active X, des informations sur le kit d'extention XML ou des composants web. Ils peuvent renfermer des informations personnelles qui ne peuvent pas être supprimées par l'inspecteur de document".

Avez-vous des idées ??

Merci

[Duddy]

Bonjour le forum,

Si tu es en version 2007, le format d'enregistrement d'un fichier contenant des macros est "XLSM" tout autre format ne permet pas le fonctionnement des codes.

Vérifies ton format d'enregistrement peut-être est-ce "XLSX"

[popaul88]

mes deux fichiers sont bel et bien enregistré en .xlsm.
la macro ne marque que partiellement et ne me révèle pas d erreur durant son execution...elle ne veux simplement pas me definir la table.