Erreur 7 (mémoire insuffisante) lors de l'exécution de mon code VBA

Question

Bonsoir,

Depuis 2 jours, j'essaies d'exécuter le code suivant :

Sub ConvertWordFile()

Dim WordApp As Word.Application

Set WordApp = New Word.Application

With WordApp

    .Visible = True

    .Activate

    .Documents.Add

End With

End Sub

Lorsque j'exécutes le code celui-ci s'arrête à la ligne : Set WordApp = New Word.Application en me disant qu'il y a une erreur de mémoire insuffisante. Pourtant, j'ai plus de 112Go sur mon Mac, j'ai supprimer tout mes fichiers Excel existant et j'ai réécris le même code dans un fichier excel où j'ai simplement ajouter un module et insérer le code mais l'erreur persiste. Je sais pas quoi faire ...

Ps: Je possède Excel version 16.42 et je bosses sur un Mac 

Merci pour votre aide !

Answer 1

Le message d'erreur n'est pas à prendre au pied de la lettre (c'est le moins qu'on puisse dire), il ne s'agit pas d'une question de mémoire. Enfin, pas directement. Mais Excel pioche dans sa bibliothèque de messages d'erreur ce qui lui semble le plus approchant...

Il va falloir écrire un peu différemment ta macro pour qu'elle puisse fonctionner sur Mac (les ActiveX sont "Windows only"). J'ai laissé les lignes qui rendent visible le document, elles sont a priori inutiles mais tu peux avoir d'autres instructions à placer à cet endroit (?)

Sub ConvertWordFile()

Dim WordApp As Object

On Error GoTo DejaLa

Set WordApp = CreateObject("Word.Application")

On Error GoTo 0

'With WordApp

'    .Visible = True

'    .Activate

'    .Documents.Add

'End With

DejaLa:

End Sub

Ça devrait suffire pour lancer Word ou, si Word est déjà lancé, pour l'activer...