Discussion :

[Fabien25360]

Bonjour à tou(te)s

Je suis tout nouveau en programmation excel VBA, j'ai beaucoup lu sur les forums mais je n'arrive pas à résoudre mon problème:
j'ai créé une application qui permet de chiffrer des produits en direct chez les clients par l'intermédiaire de formulaires
Tout fonctionne bien jusqu'au moment ou je souhaite mettre en forme mon devis sur word par publipostage des champs et insertion de la grille de tarif à l'aide d'un signet.
j'ai donc essayé d'adapter vos codes que j'ai trouvé sur plusieurs discussions à mon besoin mais quand je lance le débogage pour voir combien d'erreur j'ai fait ça bloque sur la première ligne : Dim docWord As word.Document en me disant que le type défini par l'utilisateur est non défini
Voici le bout de code en question

Code :

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

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
 Dim docWord As word.Document
Dim appWord As word.Application
Dim NomBase As String
 
NomBase = "D:\ahaVBA\0A-H-A calcul VBA.xlsm"
 
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    Set docWord = appWrd.Documents.Open("D:\ahaVBA\DevisAHA.doc", ReadOnly:=True)
    With docWord.mailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
        Connection:="Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & NomBase & "; ReadOnly=True;", SQLStatement:="SELECT * FROM [tmpBDD$]"
    '        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
Dim TabTarif As Range
    For i = 1 To 20
        If (Worksheets("tmptarif").Range("A" & i) <> "") Then
            TabTarif = Worksheets("tmptarif").Range("A1:B" & i)
            i = i + 1
        End If
    Next i
    docWord.bookmarks("TableauTarif").Range.Text = TabTarif
 
 
    Application.ScreenUpdating = True

(pour info je travail sur office 365)
Je vous remercie par avance pour vos explications et votre temps

[Menhir]

Outils > Références > Cocher la bibliothèque "Microsoft Word XX.0 Object Library" > Ok
En remplaçant XX par le numéro de la version Office.

[Fabien25360]

super merci beaucoup ça fonctionne et le publipostage se fait bien
par contre il se fait sur une copie du document d'origine et le signet que j'ai mis en place sur le .doc d'origine n'existe pas sur la copie donc j'ai encore erreur13

[Menhir]

par contre il se fait sur une copie du document d'origine et le signet que j'ai mis en place sur le .doc d'origine n'existe pas sur la copie donc j'ai encore erreur13

Code :

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

    Set docWord = appWrd.Documents.Open("D:\ahaVBA\DevisAHA.doc", ReadOnly:=True)

Sans voir l'intégralité de ton code, il est difficile de te répondre.
Mais en ouvrant ton document d'origine en ReadOnly, il est logique qu'il ne soit pas modifié lui-même.

[Fabien25360]

J'avais pensé effectivement à readonly=false mais ça crée toujours une copie
J'ai donc essayé d'insérer le tableau avant l'étape de publipostage pour éviter la disparition du signet au moment du publipostage mais j'ai une incompatibilité de type.
Je pense que ça viens de ma déclaration de variable dim tabtarif as range (j'ai testé string, integer, cells, variant mais rien n'a l'air de fonctionner)
Le code présenté fait partie de Private Sub bValider_Click() dans le if (vbyes d'une msgbox) et le reste du code est du traitement de données excel mais le "paragraphe word" est complet dans son état, j'ai peut être oublié des choses

[Fabien25360]

En fait, il bloque sur

Code :

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

TabTarif = Worksheets("tmptarif").Range("A1:B" & i)

et évoque une incompatibilité de type

[Menhir]

On ne peut pas assigner un objet (un Range par exemple) avec un simple "=" comme on le ferait pour une valeur.
Il faut mettre "Set" devant.
https://msdn.microsoft.com/fr-fr/lib.../gg251642.aspx

Code :

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

Set TabTarif = Worksheets("tmptarif").Range("A1:B" & i)