VBA Enregistrer en PDF et quitter totalement WORD

Bonjour a tous,

Je converti une macro Windows sous un mac version 2011
Bon après avoir presque du tout modifier me voila confronter à mes 2 derniers problèmes que j'ai trainé le plus possible mais pas réussi.

1)Enregistrer word PDF

Existe t il sous mac un parametre de "SaveAs" par exemple ou autre comme la sauvegarde au format PDF est d'origine? Ou comment procéder pour enregistrer en PDF à partir de word?

2)Erreur ActiveX lors d'une création d'objet WORD si word et déjà lancé

Code:

---

1 2 3 4 5 6 7 8

Dim Wd As Object Dim Doc As Object   Set Wd = New Word.Application Set Doc = Wd.Documents.Open(MONCHEMIN) with Doc .Bookmarks("date").Range.Text = "TOTO" end with

---

Alors ce code NIKEL si Word est pas ouvert (petit rond bleu en dessous oui je débute sous mac) cependant si il y a ce fameux rond bleu j'obtiens l'erreur suivante:

Citation:

---

Le composant ActiveX ne peut créer l'objet

---

Donc 2 solutions, soit (ce qui est fort possible) j'ai louper un truc et donc je l'utilise mal et il ya un problème de déclaration ou autre.
Soit il me faudrait le code pour fermer TOTALEMENT word (plus de rond bleu ).

Et en bonus, je ne trouve pas l'aide VBA sur le mac, je trouve uniquement l'aide WORD ou EXCEL général mais pas la spécial VBA pour mac...

Merci a tous,

Bastien

Salut, pose plutôt tes questions sur un forum Mac car à mon avis ici tu as peu de chances d'obtenir une réponse ... enfin ne sait-on jamais

Pour l'erreur ActiveX Voir la FAQ http://excel.developpez.com/faq/?pag...iveXFeuilleMac

Bonjour,

Bon j'ai eu beau tenter, je n'ai pas trouver ma solution encore voici mon problème actuelle. Je retente ici car cela reste quelque chose d'assez basique je suppose mais trop dur pour moi :mouarf:

En gros je veux:

1) ouvrir un fichier word
2) remplir plusieurs signet
3) coller un tableau (pré copié auparavant)
4) fermer UNIQUEMENT le fichier précédemment ouvert et non word complet

Si quelqu'un aurait un exemple ou des axes je suis preneur

Actuellement:

Code:

---

1 2 3 4 5 6 7

Set Wd = New Word.Application   Set Doc = Wd.Documents.Open(file)   Doc.Bookmarks("toto").Range.Text = "blabla"   Doc.close

---

Cependant si word est ouvert (rond bleu) il faut que je fasse:

Code:

---

Set Wd = Word.Application

---

Pas compris pourquoi...

Merci d'avance :ccool:

Bonjour,

Toujours pas trouvé une solution, quelqu’un sait il comment ouvrir uniquement word via une macro sous mac? Comme cela j'ouvre Word au début et il n'y a plus de problème ;)

Merci d'avance

Essaie ça, ça devrait marcher. Tu changes par word si tu veux ouvrir word depuis excel. Ca marche avec ou sans le rond bleu.

Code:

---

1 2 3 4 5 6 7

'Get existing instance of Word if it exists. Set wobj = GetObject(, "Excel.Application")   If Err <> 0 Then ' If GetObject fails, then use CreateObject instead. Set wobj = CreateObject("Excel.Application") End If

---

Pour la sauvegarde en pdf, il faut passer par un script apple. Si tu ne connais pas, je te donnerai un bout de code.

Bonne soirée, xav.