Vba code pour condition read only

**parmi** · 05/04/2018, 00h00

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

**Jfn1234** · 05/04/2018, 15h16

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!!

**parmi** · 05/04/2018, 22h51

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.

**Jfn1234** · 06/04/2018, 06h19

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

**parmi** · 06/04/2018, 11h29

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If ThisWorkbook.ReadOnly Then Exit Sub

**Jfn1234** · 06/04/2018, 12h01

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If ThisWorkbook.ReadOnly Then Exit Sub

Une Copie?? Pk pas envoyer l originale??

Je dois mettre quoi??

**parmi** · 06/04/2018, 12h22

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...

**Jfn1234** · 06/04/2018, 12h43

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

**parmi** · 06/04/2018, 14h17

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...

**Jfn1234** · 06/04/2018, 14h55

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

**parmi** · 06/04/2018, 15h15

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Jfn1234** · 06/04/2018, 15h16

Envoyé par parmi

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**parmi** · 06/04/2018, 15h25

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...

**Jfn1234** · 06/04/2018, 15h27

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

**parmi** · 06/04/2018, 17h36

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Jfn1234** · 06/04/2018, 17h55

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Jfn1234** · 07/04/2018, 15h01

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

**parmi** · 07/04/2018, 18h19

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)

**Jfn1234** · 07/04/2018, 18h24

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