XL 2016 VBA afin d'utiliser un Add-in

[Karim48]

Bonjour,

Dans le fichier Excel ci-joint j'ai importé un add-in que j'aimerai automatiser par VBA:

Dans l'idée, je souhaiterais via la macro appeler l'add-in, compléter le "nom d'utilisateur" ainsi que "le mot de passe", me connecter et "sauvegarder les données ans...". Le hic c'est que lorsque je lance l'enregistreur de macro, il me ressort ainsi

J'ai également essayé cela :

[Public Sub Connect_COM_AddIn()

Application.COMAddIns("SAPBusinessByDesignExcelAddIn").Connect = True

End Sub]

Mais rien n'y fait. Débutant en VBA, je désespère pour le coup.

Merci d'avance pour votre aide.

Cordialement.

Karim

 

[kiki29]

Salut, via une recherche ?

 

[Karim48]

Comment ça? J'en ai réalisé des recherches avant mon poste ;-)

 

[kiki29]

Re, cela m'étonnerait, à preuve ceci

 

[Karim48]

Merci.

Si je me trompe pas, le bout de code qui me concerne serait celui-ci

<
'Function to find the SAP bydesign Excel Add-in from Installed COM Add-ins
Private Function initialize() As Boolean
Dim comaddin As comaddin
For Each comaddin In Application.COMAddIns
If comaddin.progID = SHIPPED_ADDIN_PROGID And comaddin.Connect Then
Set addin = comaddin.Object
'Call your Desired Function
Dashboard
initialize = True
Exit Function
End If
Next comaddin

For Each comaddin In Application.COMAddIns
If comaddin.progID = DEBUG_ADDIN_PROGID And comaddin.Connect Then
Set addin = comaddin.Object
DashBoard
initialize = True
Exit Function
End If
Next comaddin

If addin Is Nothing Then
feedback "addin not found"
initialize = False
End If

End Function>

mais je me retrouve avec ce message lorsque je veux l'utiliser

Et je m'y perds un peu pour être honnete.

 

[Karim48]

Il me semble que la différence entre mon souci est la solution proposée est que j'ai besoin d'envoyer des données dans SAP en utilisant l'add-in alors que le lien semble présenter l'extration de rapports de données