Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA: lancer un exécutable!

VBA: lancer un exécutable!

11 réponses
Avatar
Kyvu
Bon dimanche!

J'ai trouv=E9 sur ce forum une proc=E9dure qui permet de=20
lancer un ex=E9cutable via VBA:

Sub Word()
Shell "Winword.exe", vbNormalFocus
End Sub

Mais j'aurais une question subsidiaire: comment ouvrir un=20
ex=E9cutable avec un fichier qui lui est attribu=E9?

Par exemple, lancer Winamp et lui faire jouer directement=20
un mp3 ou ouvrir Word avec un document de notre choix?

Merci pour votre aide.

@micalement.



Kyvu On Line!
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jean-François Aubert
Bonjour,

Alain, c'est super ! ce code, tel que tu l'as pondu, sans toucher à quoique ce soit,
est exactement ce qu'il me fallait pour lancer ce satané Lotus Notes.
Mile Merci.

Je retouche encore quelques bricoles à mon code, fais quelques testes, et je publierai sur ce forum,
la méthode complète, que j'utilise, de gestion d'ouverture de Lotus Notes,
envoi de SMS et E-Mail avec pièce jointe.

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Alain CROS" a écrit dans le message de news:
Bonjour.

Je n'ai pas Notes pour tester mais peut être ...

Sub OuvreNotes()
Dim Chemin As String, Lecteur as String
Chemin = CurDir
Lecteur = Left(Chemin, 1)
ChDrive "h"
ChDir "h:systemnotes"
MyAppID = Shell ("C:Program Filesnotesnotes.exe", 1)
'Traitement pour envoyer le mail
AppActivate MyAppID
ChDrive Lecteur
ChDir Chemin
End Sub

Alain CROS.

"Jean-François Aubert" <à a écrit dans le message de news:


Salut Philippe,

Je te remercie de la peine que tu t'es donné à me répondre.

Je possède déjà cette macro, et d'autres du même acabit.
le problème est que cela coince à la ligne:
Set objNotesSession = CreateObject("Notes.NotesSession")
et donne une erreur du genre:

"un contrôle ActiveX ne peut ...je ne sais plus quoi",
si une session n'est pas déjà ouverte.
Alors j'ai bidouillé une combine avec un lien hypertexte MailTo (création d'un message E-Mail
bidon)


pour forcer l'ouverture d'une session de ce sacré LotusNotes(j'utilise Notes pour envoyer des
SMS).



Ma question était pour ouvrir Notes d'une manière plus propre, sans ce message E-Mail bidon.

J'espérais que quelqu'un me donne une syntaxe des paramètres, du genre:
MyAppID = Shell _
("C:Program Filesnotesnotes.exe h:systemnotes)

afin de combiner la Target "C:Program Filesnotesnotes.exe"
et le start in h:systemnotes





--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Philippe.R" a écrit dans le message de
news:u$bbrc%
Bonsoir Jean-François,

Il y avait ce message d'Eric Renaud, le 13 Mars ; cela te permettra peut être d'avancer ?

"======================================================================="
Bonjour,
Cherchant des infos sur ce sujet, j'en ai trouvé sur le site de Frédéric
Signonneau.
J'ai choisi un exemple et je l'ai testé et adapté à mon besoin
(multi-diffusion)
Je vous le livre tel quel, cela pourra intéresser certains d'entre vous.

' Envoyer un mail avec Lotus Notes (y compris avec pièce jointe)

Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object

Function SendMail()
'mpep, auteur inconnu
On Error GoTo SendMailError
' Plage d'adresses e-mail dans une feuille de calcul
For Each Cell In Range("Adresses")
' Cas avec la plage
EMailSendTo = Cell.Value ' Required - Send to address
' Cas avec une seule adresse
'EMailSendTo = "" ' Required - Send to address

EMailCCTo = "" '' Optional
EMailBCCTo = "" '' Optional
EmailSubject = "Envoi d'un document joint" ' Optional

''Establish Connection to Notes
Set objNotesSession = CreateObject("Notes.NotesSession")

''Establish Connection to Mail File
'' .GETDATABASE("SERVER", "FILE")
Set objNotesMailFile = objNotesSession.GETDATABASE("", "")

''Open Mail
objNotesMailFile.OPENMAIL

''Create New Memo
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT

''Create 'Subject Field'
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject",
EmailSubject)

''Create 'Send To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo",
EMailSendTo)

''Create 'Copy To' Field
Set objNotesField = _
objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)

''Create 'Blind Copy To' Field
Set objNotesField = _
objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)

''Create 'Body' of memo
Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")

With objNotesField
.APPENDTEXT "Cet e-mail a été généré par un processus
automatique."
.ADDNEWLINE 1
.APPENDTEXT "This e-mail is generated by an automated process."
'.APPENDTEXT "Please follow established contact " & _
"procedures should you have any questions."
.ADDNEWLINE 2
.APPENDTEXT "Cordialement"
.ADDNEWLINE 1
.APPENDTEXT "Eric RENAUD"
End With

''Attach the file --1454 indicate a file attachment
objNotesField = _
objNotesField.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)

''Send the e-mail
objNotesDocument.SEND (0)
Next Cell
''Release storage
Set objNotesSession = Nothing
Set bjNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing

''Set return code
SendMail = True
Exit Function

SendMailError:
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
SendMail = False
End Function

--
------------------------
Cordialement
Eric RENAUD
http://www.erenaud.fr.fm
"========================================================================"

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jean-François Aubert" <à a écrit dans le message de
news:
Bonjour,
Dans le même ordre d'idée, quel serai la syntaxe pour lancer l'application LotusNotes, plus
précisement sa fenêtre permettant de se "Log On".(WinNT, Excel97)
avec les paramètres suivants(récupérés dans les propriétés d'un raccourci de cette
application):





' Target "C:Program Filesnotesnotes.exe"
' start in h:systemnotes

Merci
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Kyvu" a écrit dans le message de
news:057a01c36fca$50edbb20$


Bon dimanche!

J'ai trouvé sur ce forum une procédure qui permet de
lancer un exécutable via VBA:

Sub Word()
Shell "Winword.exe", vbNormalFocus
End Sub

Mais j'aurais une question subsidiaire: comment ouvrir un
exécutable avec un fichier qui lui est attribué?

Par exemple, lancer Winamp et lui faire jouer directement
un mp3 ou ouvrir Word avec un document de notre choix?

Merci pour votre aide.

@micalement.



Kyvu On Line!
















1 2