XL 2016 Erreur 438 lors de l'ouverture d'un fichier Excel sur un répertoire réseau.

[Stephane21]

Bonjour à tous,

J'ai réalisé un fichier Excel avec des formes.
J'ai affecté des macros à chacune de ses formes afin d'aller chercher des documents (Word et Excel) sur différents dossiers d'un réseau.
Tous les fichiers Word s'ouvrent sans problème, les fichiers Excel fonctionnaient hier et aujourd'hui j'ai l'erreur 438 (Propriété ou méthode non gérée par cet objet).

Sub Devis()

Dim MonApplication As Object
Dim MonFichier As Object


Set MonApplication = CreateObject("Excel.Application")
Set MonFichier = MonApplication.Documents.Open("\\xxxxxxxxxxxxxxxxx\Devis_Ouvrages.xlsx")

MonApplication.Visible = True
MonApplication.Activate

End Sub

Si quelqu'un a une idée, je suis preneur.

Merci d'avance

 

[Dranreb]

Bonjour.
Ce serait pour moi, je cocherais la référence Microsoft Word 16.0 Object Library
et je mettrais :

Sub Devis()

Dim MonApplication As Word.Application
Dim MonFichier As Word.Document


Set MonApplication = New Word.Application
Set MonFichier = MonApplication.Documents.Open("\\xxxxxxxxxxxxxxxxx\Devis_Ouvrages.xlsx")

MonApplication.Visible = True
MonApplication.Activate

End Sub

Excel.Application n'a pas de collection Documents

 

[Stephane21]

Bonjour.
Ce serait pour moi, je cocherais la référence Microsoft Word 16.0 Object Library
et je mettrais :

Sub Devis()

Dim MonApplication As Word.Application
Dim MonFichier As Word.Document


Set MonApplication = New Word.Application
Set MonFichier = MonApplication.Documents.Open("\\xxxxxxxxxxxxxxxxx\Devis_Ouvrages.xlsx")

MonApplication.Visible = True
MonApplication.Activate

End Sub

Excel.Application n'a pas de collection Documents

Bonjour et merci pour l'aide, malheureusement, j'ai le message d'erreur Erreur de compilation, Type défini par l'utilisateur non défini. Cette erreur surligne :
MonApplication As Word.Application

 

[Stephane21]

Cette macro avec Word fonctionne très bien et je précise que celle d'Excel fonctionnait hier. Je n'ai rien fait de plus à part éteindre mon ordi hier soir et l'allumer ce matin.

Sub BDC()

Dim MonApplication As Object
Dim MonFichier As Object


Set MonApplication = CreateObject("Word.Application")
Set MonFichier = MonApplication.Documents.Open("\\xxxxxxxxxxxxxx\Bon de commande.dotx")

MonApplication.Visible = True
MonApplication.Activate

End Sub

 

[Dranreb]

Vous avez juste oublié de faire la 1ère chose que j'avais dite: cocher la référence Microsoft Word 16.0 Object Library. C'est le fichier correspondant à cette référence qui contient la définition d'un objet Word.Application. Votre Sub BDC devrait toujours fonctionner, mais bien sûr la Sub Devis ne le pourra jamais, en aucun cas, puisque comme je le disais: Un objet Excel.Application ne possède pas de collection Documents.

 

[Stephane21]

"Cocher la référence Microsoft Word 16.0 Object Library. C'est le fichier correspondant à cette référence qui contient la définition d'un objet Word.Application"
Pourrais-tu m'expliquer comment je peux faire ça? je débute est j'ai encore beaucoup de lacunes
Merci d'avance

 

[Dranreb]

Dans VBE, menu Outils, Références… cherchez parmis les références disponibles celle citée et cochez la.

 

[Stephane21]

Bonjour,
J'ai coché la case dans les références mais j'ai un nouveau message d'erreur :
Erreur exécution 5792
Le fichier apparemment endommagé.

Cela vient peut être du fait de ma connexion, ce jour, en télétravail.
Je referai le test mardi.

Merci pour ton aide et je reviens vers mardi pour les news.

 

[Stephane21]

Bonjour Dranreb
En fait, j'ai trouvé une autre solution pour que cela fonctionne :

Sub DEVISOUV()
Hyperlinks , Address:="\\xxxxxxxxxxxxxxxxx\Devis Ouvrages.xlsx"
End Sub

Qu'en penses-tu?

 

[Dranreb]

Provoque une erreur de compilation chez moi: Utilisation incorrecte de la propriété.
Mais je ne comprends plus rien à ce que vous voulez faire. Si c'est un fichier Excel que vous voulez ouvrir faites simplement Workbooks.Open "\\xxxxxxxxxxxxxxxxx\Devis Ouvrages.xlsx"
Si c'est un Word j'aurais mieux compris ThisWorkbook.FollowHyperlink suivi du nom du fichier

 

[Stephane21]

Provoque une erreur de compilation chez moi: Utilisation incorrecte de la propriété.
Mais je ne comprends plus rien à ce que vous voulez faire. Si c'est un fichier Excel que vous voulez ouvrir faites simplement Workbooks.Open "\\xxxxxxxxxxxxxxxxx\Devis Ouvrages.xlsx"
Si c'est un Word j'aurais mieux compris ThisWorkbook.FollowHyperlink suivi du nom du fichier

Bonjour et merci pour l'aide.
C'est effectivement l'ouverture de fichiers Excel sur un répertoire réseau que je souhaitais faire.
Maintenant ça marche grâce à la commande : Workbooks.Open, Merci

Il faudra à l'avenir que je sois plus précis sur ma demande