Outlook VBA

Résolu

alexis4489 Messages postés 88 Date d'inscription Statut Membre Dernière intervention -
alexis4489 Messages postés 88 Date d'inscription Statut Membre Dernière intervention - 22 mars 2023 à 12:04

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

A voir également:

Outlook VBA
Synchroniser agenda google et outlook - Guide
Outlook live - Accueil - Mail
Supprimer compte outlook - Guide
Copie cachée outlook - Guide
Créer un compte outlook gratuit - Guide

6 réponses

Réponse 1 / 6

thev Messages postés 1981 Date d'inscription Statut Membre Dernière intervention 711

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

Réponse 2 / 6

thev Messages postés 1981 Date d'inscription Statut Membre Dernière intervention 711

Bonjour,

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

Réponse 3 / 6

alexis4489 Messages postés 88 Date d'inscription Statut Membre Dernière intervention 2

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"

Réponse 4 / 6

thev Messages postés 1981 Date d'inscription Statut Membre Dernière intervention 711

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: ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

alexis4489 Messages postés 88 Date d'inscription Statut Membre Dernière intervention 2

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

Réponse 6 / 6

alexis4489 Messages postés 88 Date d'inscription Statut Membre Dernière intervention 2

Bonjour,

Je vous remercie cela fonctionne parfaitement.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Postmaster outlook c'est quoi ???

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

Votre réponse

Discussions similaires