Discussion :

[MAKET93]

Bonjour Claude, je n'ai pas touché aux références. Ce soft sur clé USB fonctionne parfaitement sur 2 autres PC . Le logicielPGM présente exactement le même problème. C'est probablement un pb de DLL msadox.dll. Je viens d'acheter PC REPAIR... qui ne parvient pas à réparer. Le Tech me dit de voir avec l'assistance de Microsoft.
merci pour ta réponse

[tee_grandbois]

bonjour MAKET93, Claude

Il ya 15 jours, j'ai changé un PC fixe, je suis depuis sous windows 11, pack office 2013.

il faudrait préciser si la version de Windows 11 et/ou Office 2013 est (sont) en 32 ou 64 bits ...
Penser également à compiler le code à chaque nouvelle installation de l'OS, d'Office ou de la base Access
il y a des API déclarées dans l'appli:

[ClaudeLELOUP]

Merci Tee_grandbois pour le relais.

Marc, désolé de ne pouvoir t'aider davantage : je n'ai plus le matériel ad hoc et surtout mon agilité diminue, j'ai entamé ma quatre-vingtième année...

Amitiés à vous deux.

[tee_grandbois]

Merci Claude, je ferai de mon mieux pour aider Marc.
Porte-toi bien.

[MAKET93]

Bonjour Claude, bonjour Tee_grandbois. Pour lever le doute j'installe le soft associationpgm disponible en téléchargement sur le site. J'utilise un PC fixe W11 en 64bits + Office 2013 32 bits. Tout a fonctionné 15 jrs puis patatra
Je lance un publipostage et j'ai le message suivant
Pièce jointe 659457
Débogage Pièce jointe 659458
Je n'ai pas touché aux références Pièce jointe 659459
J'ai fait plusieurs réparation du pack office, j'ai désinstallé et réinstallé le PackOffice toujours le même problème.
J'ai fini par acheter le logiciel PC REPAIR, qui n'a pas tenu ses promesses, il n'a rien réparé. Le technicien support a pris la main sur le PC... résultat négatif, il m'a envoyé sur l'assistance Microsoft. Je suis dépité alors je me suis tourné vers Claude qui m'a déjà sorti de la panade malgré sont âge avancé qui est souvent associé à la sagesse, à l'expérience et à la tranquillité d'esprit, peut être une idée de génie??
Je suis prêt à faire bruler un cierge s'il le faut... merci pour votre soutien

[tee_grandbois]

J'ai fait plusieurs réparation du pack office, j'ai désinstallé et réinstallé le PackOffice toujours le même problème.

comme je le disais dans mon premier message, si tu es en 64 bits, soit pour l'OS (Windows 11) ou un logiciel (Access 2013) utilisant des API, l'application ne fonctionnera pas tel quel (comme évoqué dans cette discussion), il faut donc modifier les déclarations des API utilisées dans l'application.

Je peux me charger de faire les modifications et te les transmettre

[MAKET93]

Bonjour tee_grandbois,
faire les modifs m'aiderait bien, je ne suis pas un expert en VBA.
Je te propose de faire la modif sur associationPGM dispo sur le site developpez.net. Je te remercie, reposent sur toi tous mes espoirs

[tee_grandbois]

bonsoir,
je mets en ligne la dernière version AssociationSoft.mdb qui prend en compte l'existence de version 32 / 64 bits de Windows et/ou Office :
[EDIT] nouvelle version corrigée le 21/09/2024:
AssociationSoft.zip
j'ai enlevé les API ci-dessous qui ne sont pas utilisées:
EnumWindows
GetWindowThreadProcessId
PostMessage
GetWindowLong

[MAKET93]

Bonjour tee_grandbois,

J'ai une erreur compil qui s'affiche



??

[MAKET93]

Vous pouvez m'appeler si vous préférez Merci Marc en MP

[tee_grandbois]

bonjour,
j'ai modifié la base AssociationSoft.mdb pour gérer l'appel des API en 32/64 bits.
Malheureusement, cela n'a pas réglé complètement le problème de Marc (MAKET93) qui a toujours un message d'erreur du genre: " Erreur d’exécution (????????) bibliothèque non inscrite" quand il utilise l'application.
Marc à l'occasion, pourrais-tu effectuer une copie d'écran du message et du bout de code où ça plante pour avoir le numéro d'erreur exact ? Merci.

Pour moi, cela n'a rien à voir avec la modification que j'ai faite dans les 2 modules contenant des API qui passent bien à la compilation, mais sait-on jamais ...
Et si quelqu'un a une idée d'où cela peut provenir, qu'il n'hésite pas ...

[MAKET93]

Bonjour à tous, Je ne remercierai jamais assez pour leur contribution Claude et tee_grandbois
Je travaille sous Windows 11 (64) fraichement installé et access du Pack office 2013 (32)

Initialement à la première compil j’avais déjà
Tee_grandbois m’a guidé pour charger les réf object MANQUANTES.
Euréka la compil ne présente plus aucune erreur mais la fenêtre pour désigner le chemin du document à publiposter reste désespérément vide.
Alors modification des modules mBoiteDialogue et mDivers
Pour ce qui est mBoiteDialogue

Le chemin vers le document à publier apparait maintenant

Pour autant dès que je clique sur OK j’ai toujours le même message

Si l’un de vous a une piste qu’il n’hésite pas, je n’ai pas un niveau suffisant pour m’en sortir seul. Bien à vous

[tee_grandbois]

Marc,

Pour autant dès que je clique sur OK j’ai toujours le même message

au sujet de l'instruction erreur, il me semblait que c'était dans Publimail:

Code :

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

  Set objWord = New Word.Application

c'est toujours le cas ?

[MAKET93]

Bonsoir tee_grandbois,

c'est toujours le cas,
si je clique sur Attestation alors message :

Code :

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

1
2
3
  'Assigner l'objet Outlook et Word
  Set objOutlook = New Outlook.Application
  Set objWord = New Word.Application

______________________________________
Si je clique sur "Envoi courrier" alors message :

Code :

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

1
2
3
4
5
6
'Publiposter
  '-----------
  Set objWord = New Word.Application
  With objWord
       ' Ouvrir le document modèle
       .Documents.Open ModeleDoc

Bonne soirée

[tee_grandbois]

peux-tu faire une impression d'écran des références cochées ?

[MAKET93]

Bonjour tee_grandbois


Toutes les Réf sont elles présentes?
Bonne journée

[tee_grandbois]

bonjour,
oui, toutes les références sont présentes.

[MAKET93]

Bonjour tee_grandbois, bonjour Claude

Je suis passé du pack office 2013 au pack office 2016. A première vue le logiciel ne dysfonctionne plus... je me laisse un peu de temps pour confirmer et acheter 5 licences. . Merci à vous 2

[tee_grandbois]

Je suis passé du pack office 2013 au pack office 2016

le dysfonctionnement était peut-être dû à une mauvaise installation du pack office 2013 ? (mauvais chiffre ça, le 13 )

[MAKET93]

Je ne crois pas j'ai désinstallé réinstallé plusieurs fois. C'est dommage nous étions proche de réussir.
Amicalement