Problème Macro entre Excel et Word Résolu

Question

Bonjour, 
Après plusieurs questions posées sur le forum, et dont les réponses m'ont été très utiles, je me tourne à nouveau vers CCM pour un autre point à éclaircir :

J'ai un environnement de travail qui lie deux classeurs, en l'ouvrant je tombe sur le classeur [Nomenclature] qui est lié au classeur [Liste des Fournisseurs].

Sur la feuille Liste Matériel Aéraulique du classeur [Nomenclature], il y a un bouton qui me permet d'ouvrir un fichier Word afin de créer un publipostage automatique à l'aide d'un VBA.
Mon problème est le suivant : lorsque je test le VBA sous Word, il fonctionne parfaitement, mais lorsque je l'utilise par le bouton Excel, une erreur s'affiche et donc cela ne fonctionne pas.
Pour visualiser le fonctionnement, je pense qu'il faut d'abord regarder le programme du fichier Word (pour info, pour ouvrir le fichier word, maintenir Maj enfoncé car il y a une fermeture auto), puis essayer le bouton excel après.

Merci de votre aide.

Liste des fichiers : https://www.cjoint.com/?BHom5aYnbaD 



Configuration: Windows Vista / Safari 537.1

Le Pingou · Answer

Bonjour,
Il me semble avoir repérer une procédure dans le fichier que vous m'avez transmis hier.
Je regarde si c'est faisable.

Le Pingou · Answer

Bonjour,
Pouvez-vous me communiquer le message d'erreur exact... ?
Merci.

Le Pingou · Answer

Bonjour,
Dans votre document Word, ce n'est vraiment pas une bonne idée de mettre une procédure qui ferme le fichier sitôt que l'on veut l'ouvrir ... a quoi cela sert-il...,  quel impératif ... !Neutraliser cette macro [Private Sub Document_Open()] et ensuite essayé depuis l'application Excel, cela devrait marcher.

nicodu072 · Answer

Le message d'erreur est le suivant : "Erreur d'exécution '5852'. L'objet demandé n'est pas disponible."
Ensuite lorsque je lance le débogage j'ai : 

With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument (=> surligné en jaune)
        .SuppressBlankLines = True

Je souhaite fermer le fichier word de base par une fois le publipostage terminé, je nai pas besoin d'avoir 2 fichier Word d'ouvert mais seulement le fichier provenant du publipostage.

Je ne comprend pas pourquoi vous souhaité neutraliser [Private Sub Document_Open()] car s'est cela qui lance le publipostage automatique à l'ouverture de word.

Dans l'attente de votre réponse.

Le Pingou · Answer

Bonjour,
Merci de l'information.
Il serait mieux d'avoir les commandes de publipostage directement dans la macro sur Excel [Sub Bouton1_Clic] est c'est là que vous fermez votre document de base après utilisation.
En plus dans votre code l'extension du fichier Word est [.docx] et le document de base est en [.docm] ; ce qui ne fonctionne pas.
Concernant l'erreur avec : [wdSendToNewDocument] contrôler dans Outils de de l'éditeur VBA sous Référence que la [Microsoft Word xx.0 Object Library] soit coché (si pas le cas la chercher dans la liste..)
Essayer déjà avec ce dernier point pour voir... !

nicodu072 · Answer

Concernant [Micrososf Word xx.0 Object Library], il est bien coché, donc mon problème est toujours présent.

Ensuite dans mes fichier les extensions sont bien en .doxm.

Enfin, pour votre début de réponse, je suis novice dans le VBA (comme vous avez pu le remarquer je pense). Je croyais que Excel ne pouvait pas contrôler Word et inversement.

Le Pingou · Answer

Bonjour,
Depuis Excel on peut commander Word sans aucun problème. Dans votre code Excel vous avez bien utilisé cette instruction (Set Wrd = CreateObject("word.Application") qui permet d'avoir accès à l'objet Word.
Je regarde pour corriger la procédure et je vous la transmets dès que tout fonctionne.

nicodu072 · Answer

Bonsoir,

D'accord, je pensait que l'on pouvait seulement ouvrir des fichiers.
Je vous remercie.

Cordialement.

Le Pingou · Answer

Bonjour,
Vous utilisez le document [Fiche Technique DOE AERAULIQUE.docx] sans la macro [Private Sub Document_Open()] (la supprimer)
Dans le module du classeur [Nomenclature.xlsm ] vous coller la procédure qui suit valable pour la feuille [Liste Matériel Aéraulique] :
Note : contrôler que le chemin ("C:\Users\Nico\Des....... ) si nécessaire corriger !
Le code :
Sub Bouton1_Clic()
Dim Wrd As Object
Dim DocWord As Object
Set Wrd = CreateObject("word.Application")
Wrd.Visible = True
nombase = "C:\Users\Nico\Desktop\Nomenclature et Fiche tecnique\Nomenclature.xlsm" 
feuilbase = "'Lien Aéraulique$'"
nompubli = "C:\Users\Nico\Desktop\Nomenclature et Fiche tecnique\Fiche Technique DOE AERAULIQUE.docx" 
Set DocWord = Wrd.Documents.Open(nompubli)
With DocWord.MailMerge
    .OpenDataSource Name:=nombase, SQLStatement:="SELECT * FROM " & feuilbase
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    .Execute Pause:=False
'        nomfich = Wrd.ActiveDocument.Name
End With
DocWord.Close False
End Sub

nicodu072 · Answer

Bonjour,
votre protocole fonctionne, mais à l'ouverture du fichier Word [Fiche Technique DOE AERAULIQUE], celui-ci me demande de sélectionner ma table, or mon classeur n'est pas disponible dans le choix des classeurs et quand je fais annuler, mes champs de mon fichier Word ne sont plus liés à ceux d'Excel.
Quand je retourne sur le protocole, j'ai "erreur 4198, la commande à échouée" et la ligne suivante est surlignée :

.OpenDataSource Name:=nombase, SQLStatement:="SELECT * FROM " & feuilbase

On s'approche de la réussite ;-).

Le Pingou · Answer

Bonjour,  
Suite à votre message,  j'ai constaté une petite erreur de syntaxe qui se produit dans le message de réponse ou Le signe accent grave ['] est transformé en apostrophe ['], ce qui provoque le problème que vous rencontrez.  
Je suis en train de vous préparer une solution globale pour les 3 listes que je transmettrai par lien et il n'y aura plus de problème.  
Si toutefois vous désirez faire la correction, il s'agit de ce code :  
feuilbase = "'Lien Aéraulique$'"  
Il faut l'accent grave à la place de l'apostrophe, avant le [L] et après le [$]

Salutations.  
Le Pingou

Le Pingou · Answer

Bonjour,
Ma proposition se base sur le principe que tous les fichiers (xlsm, docx) sont dans le même dossier du répertoire. Pour le test j'ai créé 2 documents fictifs.
Toutes les procédures se trouvent dans le module [lepingou] tout le reste a été supprimer sauf le module1 (étrange car il n'y a pas de feuille  [Fournisseur]... !)
Il vous suffit d'enregistre la proposition dans le dossier de votre choix : https://www.cjoint.com/?3HppxyC4V77

nicodu072 · Answer

Merci pour ce travail,
cependant j'ai un peu de mal à saisir la démarche à effectuer (désolé).

Que dois-je faire avec [Sub Publipostage(nompubli, nombase, feuilbase, chemin)] ?

Par exemple, pour le bouton 1, dois-je mettre :

Option Explicit

Sub Bouton1_Clic()
Dim docpub As Variant, nomcla As Variant, nomfeuil As Variant, chemin As Variant
docpub = "Fiche Technique DOE AERAULIQUE.docx"
nomcla = ActiveWorkbook.Name
nomfeuil = "Lien Aéraulique"
chemin = ActiveWorkbook.Path & "\"
Publipostage docpub, nomcla, nomfeuil, chemin
End Sub

Suivi de : 

ub Publipostage(nompubli, nombase, feuilbase, chemin)
Dim DocWord As Object, Wrd As Object
Dim nomfich As String
Set Wrd = CreateObject("word.Application")
Set DocWord = Wrd.Documents.Open(chemin & nompubli)
With DocWord.MailMerge
    .OpenDataSource Name:=(chemin & nombase), SQLStatement:="SELECT * FROM '" & feuilbase & "$'"
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    .Execute Pause:=False
    nomfich = Wrd.ActiveDocument.Name
End With
DocWord.Close False
Set DocWord = Nothing: Set Wrd = Nothing
MsgBox "Le document " & nomfich & " est pret"
End Sub

Ou dois-je compiler l'ensemble ? Et idem pour les autres boutons ?
Si vous pouvez m'éclaircir sur ce point.
Cordialement.

Le Pingou · Answer

Bonjour,
Premier point, avez-vous essayé directement ma proposition ?

nicodu072 · Answer

Bonsoir, oui j'ai utilisé votre proposition. J'ai fait un copier / coller sur un module, mais lorsque je clique sur les boutons j'ai une "erreur de compilation : variable non définie" qui apparaît et plus précisément à cette endroit : 


Sub Publipostage(nompubli, nombase, feuilbase, chemin) (=>Surligné en jaune)
Dim DocWord As Object, Wrd As Object
Dim nomfich As String
Set Wrd = CreateObject("word.Application")
Set DocWord = Wrd.Documents.Open(chemin & nompubli)
With DocWord.MailMerge
    .OpenDataSource Name:=(chemin & nombase), SQLStatement:="SELECT * FROM '" & feuilbase & "$'"
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord (=>Mis en surbrillance)
            .LastRecord = wdDefaultLastRecord
        End With
    .Destination = wdSendToNewDocument
    .SuppressBlankLines = True
    .Execute Pause:=False
    nomfich = Wrd.ActiveDocument.Name
End With
DocWord.Close False
Set DocWord = Nothing: Set Wrd = Nothing
MsgBox "Le document " & nomfich & " est pret"
End Sub

Cependant, lorsque je clic droit sur le(s) bouton(s) et que je fait modifier la macro, cela me renvoi directement sur la partie de programme correspondant au bouton. Donc sur ce point, je pense que cela devrait fonctionner si l'erreur précédente n'apparaissait pas.

Mais cela marchait lors des essais de votre coté ?
Cordialement.

Le Pingou · Answer

Bonjour,
Je vous ai demandé si ma proposition fonctionnait et pas de réponse, j'apprécie.. !
Par principe, on essaie la proposition et ensuite on copiera le code sur le classeur de travail.
Maintenant vous précisez exactement ce que vous avez copier et ou vous l'avez coller, je ne suis pas devin.

nicodu072 · Answer

Rebonsoir, 
pour être clair, j'ai essayé votre proposition tel quelle et l'erreur est apparue, puis en remplaçant mes fichiers par les votre toujours pareil.
Voyant cela, j'ai essayé sur les miens en supprimant mes anciens modules et en en créant un nouveau sur lequel j'ai réalisé le copier / coller.
désolé si ma réponse n'a pas été assez rapide, je me suis absenté dans la soirée.

Le Pingou · Answer

Bonjour,
Je vous joints le fichier que j'ai testé et qui fonctionne pour les 3 listes (Aera, Hydr et Regu). https://www.cjoint.com/?3Hpw1pj9u4G
Vous copier le fichier ZIP sur le bureau ensuite extraire tous les fichiers vers un nouveau dossier sur le bureau et vous ouvrez ce nouveau dossier puis le classeur [Nomenclature_jpp.xlw] et essayer les 3 listes.
Note, pas d'autre application Excel ou Word en attente.
J'attends la réponse (en cas d'erreur vous faite une copie d'écran que vous collez sur un document que vous me faite parvenir.).

nicodu072 · Answer

Il y a toujours un problème, cependant maintenant le message d'erreur indique "Projet ou bibliothèque introuvable" et non plus "Variable non définie".
Ci joint les message d'erreur : https://www.cjoint.com/?BHpxIx8llcJ

Cela ne proviendrait-il pas d'un problème de chemin?

Le Pingou · Answer

Bonjour,
Merci.
Et ceci que j'avais déjà précisé :
Concernant l'erreur avec : [wdSendToNewDocument] contrôler dans Outils de de l'éditeur VBA sous Référence que la [Microsoft Word xx.0 Object Library] soit coché (si pas le cas la chercher dans la liste..)

Le Pingou · Answer

Bonjour,
Je vous donne la marche à suivre uniquement si tout fonctionne correctement.
Copier le module [lepingou] complet et le coller dans le module du classeur de travail.
Enregistrer puis faite correspondre chaque bouton de commande via clic droit [Affecter à une macro...] et clic sur le bouton adéquat dans la liste puis sur OK et recommencer pour les 2 autres.
Bon travail et bonne nuit.

nicodu072 · Answer

Magnifique,
cela fonctionne très bien. En effet, [Microsoft Word xx.0 Object Library] n'était plus coché. Ayant déjà été cocher avant, cette fonction ne reste pas par défaut ?

Maintenant, je supose que si je créé d'autres boutons pour publiposter à partir d'une autre base, je complète votre protocole en reprenant votre base pour ajouter les boutons et en modifiant simplement les variables [docpub] et [nomfeuil] ?

Dernière question, connaissez vous également un site ou autre qui explique en détail et de facon complète le VBA car pour moi cela me semble complexe de savoir quoi et comment déclarer les varibles et surtout l'écriture à utiliser.

En tout cas je vous suis très reconnaissant pour toute l'aide et le temps que vous m'avez accordé pour résoudre mes différents problèmes.

Encore un grand merci.

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Pour une nouvel commande vous copier l'une des macros (par exemple [Bouton_Aera_Clic()]) vous modifier son nom [Sub Bouton_nouveau_Clic()] et vous modifier uniquement [docpub] et [nomfeuil] les 2 autres sont renseignées par les références du classeur de base. 
Par contre j'ai un point qui n'est pas clair : pourquoi vous avez 2500 lignes avec des formules sur chacune des feuilles [Lie....] et pour les tableaux correspondants des feuilles [Liste Mat ...] il n'y a pas plus de 45 lignes ..... ?
A quoi doit servir les tableaux ?
Lien divers :
https://heureuxoli.developpez.com/office/word/vba-all/
http://boisgontierjacques.free.fr/
https://www.developpez.net/forums/
https://www.lecompagnon.info//demos/index.html

nicodu072 · Answer

Bonjour,

j'ai 2500 lignes car je ne sais pas comment compléter automatiquement le tableau [Lien ...] lorsque je rentre des infos dans le tableau [Liste ...], dans j'ai étendu les formules sur un certain nombre de ligne dans [Lien...] qui est lié à [Liste].

Je suis en train d'optimiser mes classeurs : 

- Avec un bouton que j'ai rajouté, j'ajoute une nouvelle ligne à la fin du tableau [Liste Matériel Aéra], cependant je n'arrive pas dans ma cellule Gx à glisser la formule de la cellule Gx-1. Aujourd'hui, j'arrive simplement à coller exactement la même formule et non pas à  la lié à sa ligne. Je suis à l'aide de ce même bouton obliger d'étirer depuis ma première ligne de la feuille [Lien Aéra] sur toutes mes autre lignes de cette feuille pour être sûr d'avoir une suite cohérente de formule dans le cas d'ajout ou de suppression de ligne sur la feuille [Liste Matériel Aéra].

- Je réalise également un trie de A à Z avec un autre bouton en [Liste Matériel Aéra] qui par la même occasion supprime les doublons sur la feuille [LienAéra] pour éviter les répétitions lors du publipostage.

Auriez-vous une solution pour mon premier problème? Et y a t'il un moyen d'optimiser mes différents boutons?

Pour info, mes macros se situes dans le Module 2 du classeur [Nomenclature].

Dossier: https://www.cjoint.com/?BHqpB3elh7D

Cordialemnent.

Le Pingou · Answer

Bonjour, 
Note, ajouter une ligne avec un bouton n'est vraiment pas une bonne idée. 
Le comprends que les tableaux [lien..] sont là uniquement pour le publipostage ...Oui / Non ? 
Avant d'entreprendre quelque chose, quelle est le but exact de vos 3 listes ? 

  
  
Salutations. 
Le Pingou

nicodu072 · Answer

Alors le tableau [Liste Matériel ...] est un tableau que nous devons fournir à nos clients et le tableau [Lien ...] permet en effet de regrouper les différentes informations pour le publipostage. Ces informations proviennent donc des classeurs [Liste Fournisseurs] et [Nomenclature].

Je souhaitais ajouter une ligne avec un bouton car j'ai, comme expliqué précédemment, un problème de formule qui ne se suis plus sur la feuille [Lien ...] lorsque j'ajoute ou que je supprime une ligne sur la feuille [Liste...].

Pour remédier à cela, j'ai donc créer (par mon manque de connaissance) ce bouton ou j'enregistré la macro qui ajoute une ligne en fin de tableau de la feuille [Liste Matériel ...] et qui étire ma formule sur les 2500 lignes de la feuille [Lien ...] afin que celle-ci se suivent bien.

Je n'aurais pas créer ce bouton si ce problème n'existait pas. Pour info, au final les feuilles [Lien ...] ne seront pas modifiables ni visibles par les utilisateurs de ces classeurs. C'est pour cela que je souhaitais modifier cette erreur par une suite d'action via le bouton.

Si des points ne sont pas encore assez clair pour vous, je me tiens à votre disposition.

Le Pingou · Answer

Bonjour,
Merci, mais je ne vous demande pas comment vous faite mais plutôt ce que vous devez avoir comme résultat.
Le tableau est donc établi pour un client et vous l'enregistrez dans une archive et dans le même temps il sert pour établir la Fiche Technique pour DOE.
Ensuite on recommence avec un nouveau client.... !
Si c'est juste alors combien de ligne vous avez besoin par client   .... Là est la question...
La solution est dépendante de tout cela.
Au passage, les 3 tableaux [Lien..] ne sont là que pour le publipostage alors on peut simplement se contenter d'un seul tableau qui sera établi uniquement lors de la commande de la Fiche Technique pour DOE..... Oui  /  Non ?

nicodu072 · Answer

Alors pour répondre à vos questions,

Le tableau est donc établi pour un client et vous l'enregistrez dans une archive et dans le même temps il sert pour établir la Fiche Technique pour DOE. 
Ensuite on recommence avec un nouveau client.... ! 

OUI

Si c'est juste alors combien de ligne vous avez besoin par client .... Là est la question..

Chaque document est variable. En fait il n'y a pas de nombre de ligne fixe, cela est variable en fonction du matériel que nous installons chez nos clients. Il peut y avoir 5 lignes comme 200 lignes (d'ou mes 2500 lignes pour être sûr d'avoir suffisamment de cellule avec les formules).

Au passage, les 3 tableaux [Lien..] ne sont là que pour le publipostage alors on peut simplement se contenter d'un seul tableau qui sera établi uniquement lors de la commande de la Fiche Technique pour DOE..... Oui / Non ? 

Oui les 3 tableaux [Lien...] ne sont effectivement la que pour le publipostage.
Et il est vrai qu'il est possible d'avoir un seul tableau qui regroupe les 3 tableaux [Liste Matériel...]. Cependant dans ce tableau, l'aéraulique, l'hydraulique et la régulation ne doivent pas être mélangés et dans la cas ou j'ajoute un matériel dans le tableau [Liste Matériel Aéraulique], il faut que celui-ci se mette avant le premier matériel Hydraulique dans le tableau [Lien].


Donc pour faire le point, mon résultat est comme vous l'avez dit d'avoir 3 listes de matériels (Aéraulique, Hydraulique et Régulation) prenant en compte les répétitions de ligne. Les listes doivent être triées de A à Z puis incrémentées à l'aide de la formule que vous m'avez transmise dans un des ancien post résolu.

Ensuite on créé un fichier publipostage reprenant ces 3 listes en ne prenant pas en compte des répétitions (doublons).

Cela est-il assez clair ?

Cordialement.

Le Pingou · Answer

Bonjour,
Je vous laisse la découverte : https://www.cjoint.com/?3HrxnkXiTSF

nicodu072 · Answer

Bonjour,  

je ne sais que dire à par BRAVO et un GRAND MERCI pour tout ce que vous avez fait pour moi. Cela fonctionne très bien et répond exactement à ce que je souhaitais.  

Encore merci

Le Pingou · Answer

Merci, de rien.

nicodu072 · Answer

Petit souci, quand j'ai testé tout à l'heure, je n'est pas ouvert les fichiers publipostage Word, j'ai juste vérifié qu'ils s'ouvrait bien. En les ouvrant, je me suis aperçu que quand je fait le publipostage sur [Liste Matériel Aérau], cela fonctionne, mais qu'ensuite lorsque je lance depuis [Liste Matériel Hydrau], le publipostage s'ouvre mais le fichier word correspond à la [Liste Matériel Aérau].
Pour vérifier je suis allé sur la feuille [Lien publipostage] et la le tableau ce met bien à jour comme prévu.

Est-ce un bug de mon côté ? Car pour la commande "Sub Publipostage(nompubli, nombase, feuilbase, chemin)" vous n'avez rien modifier à par la msgBox et cela fonctionnait très bien avant.

Cordialement.

Le Pingou · Answer

Bonjour,
Ayant testé l'application avant de vous la transmettre je vous affirme que les 3 documents Word correspondent.
Vous m'expliquez ce que vous avez entrepris ....¨ !

Le Pingou · Answer

Bonjour,
Voici une copie du résultat de l'application que j'ai envoyé : https://www.cjoint.com/?3Hsp5UORAqB

Le Pingou · Answer

Bonjour,
Petite information concernant les procédures trier A-Z et insérer-ligne, j'ai laissé vos procédures dans le module [Module2] de sorte que vous ayez une comparaison avec les 2 miennes [TrierB_AZ] et [ajoutligformu]

nicodu072 · Answer

Bonjour, 
alors j'ai extrait le zip dans un nouveau fichier sur mon bureau, j'ai activé Microsoft Word xx.0 Object Library et là, en cliquant sur les boutons pour Publipostage cela reste toujours sur le premier publipostage qui provient de la Régulation alors que j'appui sur le bouton Aéraulique. Mais pour rappel, le tableau Lien_Publipostage est bien mis à jour. 

Je ne comprends pas car pour réessayé et réessayé, je supprime le fichier entier et je retourne sur votre lien pour recommencer la procédure et toujours la même chose.

Peut-être que quelque chose n'est encore pas activé dans mon Excel

Le Pingou · Answer

Bonjour,
Merci pour la vidéo c'est super bien réalisé (chose que je ne sais pas faire).
Essayer encore une fois mais sans supprimer le document Word .... !

nicodu072 · Answer

Bonsoir, 
cela ne change rien, rejoignez moi vos fichiers, peut-être un beug lors du compressage ou de l'envoie (en espérant). 

Pour la vidéo, c'est ici : https://www.commentcamarche.net/telecharger/photo-graphisme/5423-camstudio/

Le Pingou · Answer

Bonjour,
Vous avez éveillé ma curiosité et j'ai cherché à réaliser une vidéo.
Voici le premier résultat http://dl.free.fr/getfile.pl?file=/FNBIEoKV

nicodu072 · Answer

En effet, cela fonctionne très bien chez vous. Je vais être obligé de vous demander de venir travailler chez nous ;-).
Je vois que vous travaillez avec Office 2010, je travaille avec 2007. Cela peut-il avoir une incidence ?
Pensez à me renvoyer votre fichier pour voir svp.

Cordialement.

Le Pingou · Answer

Bonjour,
Dans ce cas une nouvelle mise à disposition du fichier n'y changera rien. Il faut mettre un point d'arrêt dans la procédure [Publipostage(nompubli, nombase, feuilbase, chemin)] au niveau de [DocWord.Close False] pour voir ce qui se passe dans le document Word.

nicodu072 · Answer

Bonjour,
J'ai réalisé le point d'arrêt comme vous me l'avez demander. Tout ce passe bien jusqu'à la sélection de destinataire dans le publipostage qui reste sur les références RAx (voir vidéo): https://www.cjoint.com/?BHtnAc7DtW7

J'ai donc réaliser un point d'arrêt sur l'ancien fichier (de fin de semaine sans le publipostagesansdoublon) pour voir ce qui se passait et la la mise à jour de destinataire s'effectue correctement : https://www.cjoint.com/?BHtnEqWahX7

Pour essayer, j'ai pris l'ancien document Word, ou la procédure fonctionnait, et je l'ai mis à la place du nouveau. Rien ne change, la mise à jour ne s'effectue pas non plus. 
Donc, on sait déjà que cela ne provient pas du fichier Word.
Maintenant pourquoi cela fonctionne chez vous et pas chez moi ! 
J'ai essayé sur un ordinateur fonctionnant sous SEVEN comme vous me semble-t-il) et cela fonctionne parfaitement.
Je l'ai enregistrer et renvoyé sur mon PC (Vista) et la rebellote. Mais cette fois ci la référence reste sur Hx, qui est le dernier publipostage lancé avant enregistrement sur l'autre PC.

Le problème proviendrait donc du système d'exploitation et peut-être de la partie publipostagesansdoublon ? Bizarre !

Le Pingou · Answer

Bonjour, 
Merci pour les informations. 
En tout cas pas de partie [publipostagesansdoublon], je pense plutôt à une information manquante dans le code... !
Est-ce que [ sous SEVEN] la version MSO est 2007 ou 2010 ?
Pour l'instant je n'ai rien trouvé.  
Patience car demain je vais tester sur un autre PC avec MSO 2007 et peut être je trouverai la clef du problème.
 

   
Salutations.  
Le Pingou

nicodu072 · Answer

Bonjour,
Alors sous SEVEN, la version utilisée est MSO 2007. Dans ce cas, cela voudrait dire qu'il manque une information dans le code pour fonctionner sous Vista ?
Comment cela est-ce possible ? Car nul part vous ne faite référence à un système d'exploitation.
Cordialement.

Le Pingou · Answer

Bonjour,
Information très intéressante.
Patientez jusqu'à demain.

Le Pingou · Answer

Bonjour,
Eh bien, mon test avec PC sous Windows Vista et MSO2007 a révélé les mêmes problèmes que vous avez constatés. Il semble que sous Vista l'UAC s'emmêle ?
Pour l'instant je n'ai pas trouvé le pourquoi et de ce fait la correction.
Je ne désespère pas de trouver.... !

nicodu072 · Answer

Bonsoir,
Cela me rassure. Ne vous en faite pas pour cela, tout du moins n'y passé pas trop de temps pour moi, car j'ai testé au bureau et cela fonctionne sur mon PC étant sous Seven.
Je ne pourrais simplement pas l'utiliser sur mon PC perso.
Cependant merci de votre aide.
J'améliore encore le fichier. Si cela vous intéresse, je vous le joint quand j'aurai terminé pour avoir l'avis de l'expert ;-)..
Bonne soirée.
Cordialement

Le Pingou · Answer

Bonjour,
Merci de réaliser un essai avec cette version : https://www.cjoint.com/?3Hvtly5XMhj

nicodu072 · Answer

Bonsoir,

Félicitation !

Le fichier fonctionne parfaitement bien. Je n'ai pas pris le temps de tout comprendre au code mais j'ai remarqué que vous aviez modifié le type de variable, spécifier plus en détail l'ouverture de la base de donnée et créé l'enregistrement automatique des fichiers dans le répertoire en fonction d'un nom prédéfini.

Encore merci pour votre aide.

Cordialement.

Le Pingou · Answer

Bonjour,
Content de savoir que c'est bon chez vous.
En fait comme toujours lorsque plus rien ne vas j'écris le code une nouvelle fois sans tenir compte de l'existant, c'est le pourquoi vous voyez une autre manière d'écriture. Mais le problème avec Windows Vista est qu'il ne comprend pas les changements dans le fichier source (Excel) si l'on ne les a pas enregistrés (au contraire de Windows 7). En marge si vous essayez la version avec les 3 feuilles de liens vous constaterez que si vous modifiez les données dans un des tableaux [Listes...], les documents Word seront faux.
Concernant : l'enregistrement automatique des fichiers dans le répertoire en fonction d'un nom prédéfini  c'est dans le but de pouvoir contrôler le résultat obtenu en rapport avec la demande de départ (qui va avec qui).

nicodu072 · Answer

Bonsoir,
Très bien, merci pour ce complément d'explications.
Et encore merci pour votre travail.
Cordialement.

Problème Macro entre Excel et Word

51 réponses

Votre réponse

Newsletters