Discussion :

[bastou93]

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 :

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

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:

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

[kiki29]

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

[bastou93]

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

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 :

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

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 :

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

Set Wd = Word.Application

Pas compris pourquoi...

Merci d'avance

[bastou93]

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

[xavion]

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 :

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

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.