Outlook VBARésolu/Fermé

Question

Bonjour,

J'ai trouvé un code vba sur le net pour automatiser l'utilisation d'un formulaire sur outlook.

Voici le code :
Sub MakeTemplate()
'Update by Extendoffice 2018/5/24
Dim xDialog As FileDialog
Dim xExcel As Excel.Application
Dim xFilePath As String
Dim xNewItem As Object
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(5)
xFilePath = xFilePath & "K:\Services Generaux Visite.oft"
Set xNewItem = Outlook.Application.CreateItemFromTemplate(xFilePath)
xNewItem.Display True
Set xNewItem = Nothing
End Sub

mais quand je tente de l’exécuter cela me met une erreur à la 4eme ligne disant que l'application excel n'est pas défini.

J'ai vu que la solution pour ce problème étais de vérifier si en reference la librairie est objet étais bien activer, ce qui est fait dans mon cas :

Avez-vous une solution pour m’aiguiller dans mon problème ?

Merci d'avance
Windows / Firefox 110.0

thev · Answer

Bonjour,

Il vous manque la bibliothèque : Microsoft Excel 16.0 Object Library que vous devez cocher dans les références.

alexis4489 · Answer

Bonjour ,

Je vous remercie effectivement j'avais coché les autres mais j'avais pas mis celle d'excel.

donc je n'ai plus d'erreur mais lorsque je tente d’exécuter la macro il ne passe rien , y a t-il une erreur dans le code ?

d’après ce que j'ai compris lorsque que j’exécute la macro cela doit ouvrir le formulaire depuis le fichier enregistré dans mon répertoire "K"

thev · Answer

Bonjour,

Vous avez  une erreur (masquée par l'instruction : On Error Resume Next) relative au chemin de votre fichier modèle.

"xFilePath = CreateObject("WScript.Shell").SpecialFolders(5)" fait référence à votre bureau ! Comment voulez-vous que votre chemin final soit correct en y ajoutant  un nouveau lecteur K: ?

alexis4489 · Answer

Bonjour,

Je m'y connais pas en vba , comme je l'ai mentionné c'est un code que j'ai trouvé sur le net.

Comment je dois modifier le code pour que ca aille chercher mon formulaire dans K ?

en vous remerciant

thev · Answer

Bonjour,

ce code devrait suffire :

Sub MakeTemplate()
    Dim xFilePath As String
    Dim xNewItem As Object
    
    xFilePath = "K:\Services Generaux Visite.oft"
    Set xNewItem = Application.CreateItemFromTemplate(xFilePath)
    xNewItem.Display True
    Set xNewItem = Nothing
End Sub

alexis4489 · Answer

Bonjour,

Je vous remercie cela fonctionne parfaitement.

Outlook VBA

6 réponses

Discussions similaires

Newsletters