Discussion :

[projeesp]

Bonjour,

malgré de nombreuses recherches je n'arrive pas à résoudre le souci suivant.

Devant créer un formulaire de saisie (objet non existant pour Mac) je l'ai remplacé par une feuille excel. L'objectif de la macro est de reprendre les informations saisies dans Excel dans des emplacements spécifiques (= signets) d'un fichier word. A chaque lancement de la macro l'erreur ci-dessus s'affiche au moment de l'ouverture de word. Je dois donc chaque fois quitter manuellement word et même après cette opération, la première exécution génère toujours cette erreur.

Comme je dois diffuser le fichier excel auprès de divers utilisateurs il est important que je la supprime.

A noter que mon mac (choix de l'employeur ) affiche un message "type non défini" si j'essaie de déclarer une variable de type Word.Application.

Merci d'avance de votre aide

Ci-dessous le code raccourci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Rempl_FormWord()
 
'Ouverture fichier de base
 
Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open("//Monfichier.docx")
WordApp.Visible = True
 
'Intégration dans le fichier word des infos de base (signet word correspondant)
 
WordDoc.Bookmarks("W_Nom").Select 
WordDoc.Bookmarks("W_Nom").Range.Text = Range("S_Prenom").Value & " " & Range("S_Nom").Value
 
End Sub

[Jean-Philippe André]

Salut,

on peut voir avec l'ajout des balises code que ton guillemet d'ouverture avant le nom du fichier word que tu souhaites ouvrir n'est pas le bon

[projeesp]

Hello,

le code fonctionne, le guillemet "faux" présent et simplement dû au remplacement saisi du nom originel du fichier par "MonFichier.docx".

Merci de l'attention porté à ma demande.

[Jean-Philippe André]

Concernant le type non défini, je pense que c'est parce que tu n'as pas ajouté dans tes references la librairie Word.

[projeesp]

Hello,

j'avais effectivement oublié de préciser que j'avais activés les références, donc le problème est ailleurs.

Comme nous sommes dans ce sujet, comme je dois déployer le fichier est-il possible d'activer par VBA les références ou faut-il passer sur chaque poste ?

Merci du retour,

[Jean-Philippe André]

Un tuto a ce sujet existe :

https://silkyroad.developpez.com/VBA...Editor/#LIII-A

Tu peux ajouter des références par programmation avec des bouts de code.

Et plus loin, tu peux également détacher les références qui seraient MANQUANTES

https://sinarf.developpez.com/access/RefManquant/


Pour ton cas, si ta reference est deja cochée, tu peux alors faire un

Code :

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

Set WordApp = New Word.Application