Contenu récent par crurik

la voici: Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier = Dir(sFichier) <> "" End Function Sub EnvoiMail() Dim objMail As Outlook.MailItem Dim outapp As Outlook.Application Set outapp = New Outlook.Application Dim X As Object Dim sNomFichier As String...

je te remercie de Je te remercie d'avoir pris autant de temps avec moi pour résoudre le fichier excel que j'avais besoin ainsi qu' aux aide que j'ai pu avoir sur le forum j'ai enfin trouver ce qu'il me fallait. ps: jetait pointilleux pour que excel s'ouvre automatiquement car a mon taf tout le...

ton fichier marche que si outlook et en arrière plans donc il me faudrait la même chose mais avec l'ouverture d' outlook si celui-ci est fermer.

si vous avez plus simple en code avec les meme fonction je suis preneur. ce code vérifie: si outlook et en tache de fond, il l'ouvre si ce n'est pas le cas.

il affiche le chemin du fichier en cour La meilleur solution a mon problème pour envoyer un mail depuis excel si outlook ne l'envoie pas (reste dans le dossier envoie si pas d'ouverture manuel Outlook) c'est celle-ci: Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier =...

reinstallation d'office faite, toujours le même probleme reste dans le dossier d'envoie.

oui

et je fais ca comment stp

ce n'est plus la piece jointe le probleme, c'est que je suis obliger d'ouvrir Outlook pour envoyer les mails voila mon gros probleme.

je vient de le tester, comme je l'ai déja dis précédemment je suis obligé d'ouvrir Outlook pour qui ce mette a l'envoyer. ps: chez toi Outlook n'est pas en tache de fond!

Private Sub CommandButton1_Click() Dim LeMail As Object Dim fichier As String Set LeMail = CreateObject("Outlook.Application") With LeMail.CreateItem(olMailItem) .To = "adresse du destinataire" fichier = "E:\nomfichier.zip" .Attachments.Add fichier '.Display .Send End With End Sub

vue que tu a l'air bien caller pourrait tu voir pour mon probleme, j'ai tester le code du deuxieme message mais celui-ci reste bloquer dans la boite d'envoie si je n'ouvre pas Outlook manuellement. que ce soit avec la selection display et send.

je suis sur 2016 comme office.