Macro pour lancer une appli

[ipotez]

Bonjour,

J'ai un classeur excel tout automatisé dont la finalité est de générer des feuilles au format PDF afin de les mettre en ligne.

J'aimerais pouvoir lancer Filezila directement après la création des pdf.

Kek'un aurait un bout de code a ajouter à ma macro please ? 🙂

Merci d'avance

 

[PMO2]

Re : Macro pour lancer une appli

Bonjour,

Voici 2 pistes dans la mesure où j'ai bien compris votre demande.
Il vous faudra adapter les constantes cernées par des ###.

Dans l'état actuel, le code ouvre le Bloc-notes soit par une méthode Excel (Shell), soit par l'usage d'une API (ShellExecute).

Copiez le code dans un module standard

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)
  
'### Constantes à adapter ###
Const CHEMIN As String = "C:\WINDOWS\system32\"
Const FICHIER_EXE As String = "notepad.exe"
'############################
  
Const SW_SHOWNORMAL = 1

Sub OuvertureParAPI()
ShellExecute 0, vbNullString, FICHIER_EXE, vbNullString, CHEMIN, SW_SHOWNORMAL
End Sub

Sub OuvertureParMethodeExcel()
Shell CHEMIN & FICHIER_EXE, 1
End Sub

Cordialement.

PMO
Patrick Morange

 

[ipotez]

Re : Macro pour lancer une appli

je stock ce code, merci beaucoup pour votre réponse.

en revanche je viens de découvir qu'on pouvait éviter cette étape en liant directement excel au FTP, j'ai posté a ce sujet. Si vous avez une idée de ce qui cloche dans le code cela m'aiderait bcp.
Merci encore