Vba code pour condition read only

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/04/2018, 00h00
parmi

Met le CopyAs avant de l'envoyer.
Pour ce qui est du Kill, n'oublie pas de spécifier le chemin et le nom du fichier
05/04/2018, 15h16
Jfn1234

Citation:

Envoyé par Jfn1234

Mais je veux que les autres utilisateurs puissent utiliser la macro!
Mais le premier truc fonctionne nikel!!

Pour la copie je mets ou la ligne dans la macro!
MonMessage.attachment.add après ca ou avant

Peux tu être plus clair car quand je met ça dans le code il me dit que le fichier n exsiste pa!!
05/04/2018, 22h51
parmi

Ce serait pas mal plus simple si tu mettais le bout de code que tu utilises pour envoyer le fichier en n'oubliant pas d'utiliser le bouton # pour le formater dans le message.
06/04/2018, 06h19
Jfn1234

Citation:

Envoyé par parmi

Ce serait pas mal plus simple si tu mettais le bout de code que tu utilises pour envoyer le fichier en n'oubliant pas d'utiliser le bouton # pour le formater dans le message.

Voilà le code! Mais j ai un autre problème! Qd j envoie mon fichier sur une adresse sharepoint il me le met en extension eml sur sharepoint mais si je fais la procédure sans la macro donc en appuyer sur pièce jointe et en choisissant mon fichier la tt va bien !???

Bizarre non??

Voilà mon code

Sub envoiClasseur()
If ThisWorkbook.ReadOnly Then Exit Sub
Dim Fichier As Variant
MsgBox Fichier
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("outlook.application")
Set MonMessage = MaMessagerie.Createitem(0)
MonMessage.to = "XXXXX@hotmail.com"
MonMessage.Attachments.Add "c:\users\jf\desktop\XXXXX.xlsm"
MonMessage.Send
Set MaMessagerie = Nothing
MsgBox "Votre mail à bien été envoyé"
End Sub
06/04/2018, 11h29
parmi

Tu n'as pas utilisé le bouton # pour formater ton code...

Où enregistres-tu une copie de ton fichier ?
Si tu ne l'as pas fait, c'est peut-être normal que la macro ne le trouve pas...
Autrement, il faut que tu sauvegardes après

Code:

If ThisWorkbook.ReadOnly Then Exit Sub
06/04/2018, 12h01
Jfn1234

Citation:

Envoyé par parmi

Tu n'as pas utilisé le bouton # pour formater ton code...

Où enregistres-tu une copie de ton fichier ?
Si tu ne l'as pas fait, c'est peut-être normal que la macro ne le trouve pas...
Autrement, il faut que tu sauvegardes après

Code:

If ThisWorkbook.ReadOnly Then Exit Sub

Une Copie?? Pk pas envoyer l originale??

Je dois mettre quoi??
06/04/2018, 12h22
parmi

Citation:

Envoyé par Jfn1234

Une Copie?? Pk pas envoyer l originale??

Je dois mettre quoi??

Parce que c'est ce que tu demandais au message #13...
06/04/2018, 12h43
Jfn1234

Citation:

Envoyé par parmi

Parce que c'est ce que tu demandais au message #13...

Oui je demandais ça mais ça fonctionne pas donc que ce sois la copie ou autre ça me met le fichier sur sharepoint en .eml alors que si je fais la procédure manuellement on va dire ca me le bon fichier
06/04/2018, 14h17
parmi

As-tu essayé l'enregistreur de macro pour voir le genre de code que ça te donne ?
Il suffira de le modifier quelque peu par la suite...
06/04/2018, 14h55
Jfn1234

Citation:

Envoyé par parmi

As-tu essayé l'enregistreur de macro pour voir le genre de code que ça te donne ?
Il suffira de le modifier quelque peu par la suite...

Enregistreur ne fonctionne pas pour un envoi mail avec la saisie des adresses mail

Effectivement... désolé...
Essaie comme ceci pour envoyer ton fichier
Code:

1 2 ThisWorkbook.Save 'pour être certain qu'il soit à jour MonMessage.Attachments.Add ThisWorkbook.FullName

06/04/2018, 15h16
Jfn1234
Citation:
Envoyé par parmi

Effectivement... désolé...
Essaie comme ceci pour envoyer ton fichier

Code:

1 2 ThisWorkbook.Save 'pour être certain qu'il soit à jour MonMessage.Attachments.Add ThisWorkbook.FullName
Full name ou alors le chemin d accès ( full name) ou le nom???
06/04/2018, 15h25
parmi

As-tu essayé ou même regardé l'aide sur ce mot?
FullName retourne le chemin et le nom du classeur, ici Thisworkbook, soit ton fichier avec la macro...
06/04/2018, 15h27
Jfn1234

Citation:

Envoyé par parmi

As-tu essayé ou même regardé l'aide sur ce mot?
FullName retourne le chemin et le nom du classeur, ici Thisworkbook, soit ton fichier avec la macro...

Peux tu me faire le code en mettant des xxx à la place d un nom! Stp merci merci

En principe, ceci devrait fonctionner
Si ça ne fonctionne pas, donne le message d'erreur exact.
Peut-être que le fait d'être partagé le fichier ne peut s'envoyer tel quel. À ce moment-là, faire une copie et envoyer cette copie passerait peut-être mieux...(?)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub envoiClasseur()
     Dim MaMessagerie As Object
     Dim MonMessage As Object
 
     If ThisWorkbook.ReadOnly Then Exit Sub
 
     Set MaMessagerie = CreateObject("outlook.application")
     Set MonMessage = MaMessagerie.Createitem(0)
 
     MonMessage.to = "XXXXX@hotmail.com"
     MonMessage.Attachments.Add ThisWorkbook.FullName
     MonMessage.Send
 
     Set MonMessage = Nothing
     Set MaMessagerie = Nothing
     MsgBox "Votre mail à bien été envoyé"
 
 End Sub

Citation:
Envoyé par parmi
En principe, ceci devrait fonctionner
Si ça ne fonctionne pas, donne le message d'erreur exact.
Peut-être que le fait d'être partagé le fichier ne peut s'envoyer tel quel. À ce moment-là, faire une copie et envoyer cette copie passerait peut-être mieux...(?)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub envoiClasseur() Dim MaMessagerie As Object Dim MonMessage As Object If ThisWorkbook.ReadOnly Then Exit Sub Set MaMessagerie = CreateObject("outlook.application") Set MonMessage = MaMessagerie.Createitem(0) MonMessage.to = "XXXXX@hotmail.com" MonMessage.Attachments.Add ThisWorkbook.FullName MonMessage.Send Set MonMessage = Nothing Set MaMessagerie = Nothing MsgBox "Votre mail à bien été envoyé" End Sub
Je mets full name et pas le nom du fichier

J ai essayé sans le partager

07/04/2018, 15h01
Jfn1234

Citation:

Envoyé par Jfn1234

Je mets full name et pas le nom du fichier

J ai essayé sans le partager

Cela ne crée pas de message erreur !

Juste un fichier en eml est envoyé et pas le fichier joint!
J envoie un message de 3 mega et qd c est en eml c Est moins
07/04/2018, 18h19
parmi

J'ai vu que tu avais posé la question dans un autre message...
Il y a une différence entre Outlook et Outlook Express.

Ce que tu utilises CreateObject(Outlook.application) s'applique à Outlook, mais pas à l'autre.

Fais une recherche sur CDO
Voir ICI (en anglais)
07/04/2018, 18h24
Jfn1234

Citation:

Envoyé par parmi

J'ai vu que tu avais posé la question dans un autre message...
Il y a une différence entre Outlook et Outlook Express.

Ce que tu utilises CreateObject(Outlook.application) s'applique à Outlook, mais pas à l'autre.

Fais une recherche sur CDO
Voir ICI (en anglais)

Ce qui est bizarre c est quand quand dans Excel j vais dans partager fichier envoyer par mail et qu’en je met pièce jointe ça fonctionne et pas quand je fais la macro
07/04/2018, 19h34
parmi

Excel doit utiliser le programme de messagerie par défaut.
Toi tu utilises la méthode Outlook.
Avec CDO, tu devrais régler ton problème.

Voir 40 message(s) de cette discussion en une page