Discussion :

[Invité]

Bonjour à tous,

Encore un problème à régler.
Je reçois des mails sur OUTLOOK de mes employés avec en PJ un fichier EXCEL qui rentre dans mon classeur récapitulatif de tous les chauffeurs. J'ai donc trouvé ce bout de code qui marche trés bien (il m'imprime les PJ au fur à mesure des réceptions) mais il faut qu'à chaque enregistrement dans mon dossier, je valide par "Oui" pour écraser le fichier existant à l'enregistrement. (plus de 65 chauffeurs)
j'ai bien essayé avec "Application.DisplayAlerts" (false & true), mais sans résultat.
Auriez-vous une solution pour m'éviter ce contretemps.

Merci d'avance

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
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub ShellImprime(fichier As String)
        ShellExecute 0, "print", fichier, "", "C:\Users\Toto\Documents\Employés\", 0
End Sub
 
Sub script(MyMail As MailItem)
Set fichier = MyMail.Attachments
Repertoire = "C:\Users\Toto\Documents\Employés\"
fichier(1).SaveAsFile Repertoire & fichier(1).FileName
ShellImprime (fichier(1).FileName)
End Sub

[tamtam64]

Tu ne peux pas il faut revoir ton algo, j'ai eu le meme probleme , ce genre de message n'est pas géré.
Je laisse les pros en parler mais , je sais que le sujet a deja été traité , regarde sur google, certain messages ne peuvent etre éviter , il faut donc revoir ton appli

[Invité]

Code :

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

1
2
application.displayalert=false
fichier(1).SaveAsFile Repertoire & fichier(1).FileName

[Invité]

Bonjour et merci pour vos réponses

application.displayalerts=false, je l'ai déjà essayé et il me donne un message d'erreur.

Alors est ce que problème vient du script qui est sur Outlook ou de Windows?

[Invité]

je viens de faire le test et ça fonctionne!

Code :

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

1
2
3
4
Sub test()
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Environ("userprofile") & "\toto.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

[Invité]

Bonsoir à tous,

J'ai résolu le problème en créant un autre dossier pour le transfert vers mon classeur EXCEL avec l'effacement du dossier qui reçoit les PJ d'outlook.

Merci de votre participation