XL 2016 Gérer une application à partir d'excel

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Tout d'abord, je vous souhaite un très beau dimanche,
J'ai une question "très particulière" et bien évidemment, mon niveau ne me permets pas de solutionner mon besoin.

Dans le cadre se mon boulot, les opérations sont répétitives.
Chaque "seconde" gagnée est importante !
Je cherche à automatiser au maxi l'envoi de sms.

J'ai cherché sur le net et j'ai trouvé peu de fils à ce sujet.
Toutefois, j'ai trouvé cette faq : https://excel.developpez.com/faq/?page=Automation
Mais je ne m'en sors pas.

Alors, je me tourne vers mes magiciens préférés qui m'ont sorti tellement de fois de l'embarras.
J'ai réussi, avec votre aide, à coder pour automatiser jusqu'à la préparation du n° de tel et du texte à envoyer.

J'aimerais pouvoir aller jusqu'au bout, c'est à dire :
Jusqu'à ce que soient copiés dans le logiciel d'envoi du sms
1 - le n°,
2 - le texte à envoyer,

J'ai fait un petit fichier gif qui, je l'espère, vous montrera mieux mon attente.
Ce fichier gif est issu de l'excellent logiciel LICEcap que patricktoulon a eu la gentillesse de me faire connaître.

Voici la procédure :
Au prélable :
- le classeur de travail est ouvert,
- le logiciel CallPad est ouvert,

Acheminement :
1 - clic dans la colonne K à partir de la ligne 7 pour ouvrir l'UF et choisir le type de sms,
2 - afficher le CallPad pour faire CTRL V à l'emplacement du N° -sélectionner sms + clic la où sera copié le texte,
3 - clic sur le bouton "copie texte" (dans la feuille Textes SMS qui s'est affichée),
4 - afficher le CallPad pour faire CTRL V,
5 - et peut-être (je continue de rêver) le clic sur "envoyer" si tout ça est fiable à 100%)

Je joins 3 fichiers :
- classeur de travail,
- photo du CallPad qui montre où est le bouton "sms",
sms_bouton.jpg
- le gif qui montre le cheminement.
test.gif


Voilà certainement une codification particulière et si c'est possible, ce serait génial pour mon travail et serait certainement utiles pour d'autres.

Merci déjà pour m'avoir lu :)
Amicalement,
lionel
 

Pièces jointes

  • isitelImmobRdV_test_allege.xlsm
    144 KB · Affichages: 10
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

Je pense avoir enfin trouvé ce qui me manquait.
Juste une ch'tite ligne de code : AppActivate ("Keyyo CallPad")

Sauf nouvelle découverte, il me reste à automatiser le collage dans le Callpad par CTRL V

J'ai trouvé ce code mais ça ne fonctionne pas.
code dans excel mais sans effet sur l'application Callpad :
VB:
With New DataObject
.GetFromClipboard
contenu = .GetText(1)
End With
Je continue mes recherches,
Bonne fin de dimanche :)
lionel,
 
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Poursuivant mes recherches, j'ai trouvé ce code :
VB:
Sub notepad()
With Application
  Selection.Copy
  Shell "Notepad.exe", 3
  SendKeys "^v"
  VBA.AppActivate .Caption
  .CutCopyMode = False
End With
End Sub
Il ouvre notepad et y copie les cellules sélectionnées.

Dans mon cas, le logiciel concerné est "Callpad",
Il est déjà ouvert et il ne reste qu'à l'afficher et coller le Clipboard ou valeur sélection.

Mais je n'arrive pas à modifier le code.
Je joins le classeur .... en cas :)
et je continue mes recherches,
Bonne fin de dimanche,
lionel
,
 

Pièces jointes

  • test_blocnote.xlsm
    19.2 KB · Affichages: 6
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour à toutes et à tous,

Je n'ai pas eu de réponses à mon fil :)
Personne ne semble intéressé ou peut-être trop compliqué :)
Ne m'en veuillez pas mais c'est si important pour moi ..., je vais voir sur un autre forum.
Si j'obtiens la solution, je ne manquerai pas de la mettre ici pour tous ceux à qui cela pourrait servir.
Amicalement,
lionel,
 

Dranreb

XLDnaute Barbatruc
Mais peut être que je m'égare. Est-ce que ça passe par un site internet ?
Sinon, si c'est bien une appli continue tes essais avec des SendKeys "^V" et AppActivate après avoir copié des choses dans le presse papier.
Ou demande des précisions et des exemples de codes aux auteurs de l'application.
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
OUI, ça passe par internet,

Mon fournisseur Keyyo met à ma disposition un téléphone dit "softphone" (téléphone sur ordinateur ) et un autre utilitaire lié au softphone qui s'appelle CallPas pour envoyer des sms.

J'ai essayé mais Keyyo m'a confirmé qu'il n'est pas possible de piloter le CallPad à partir d'excel sans utiliser un API qu'il met gracieusement à disposition sur son site https://www.keyyo.com/fr/telephonie-api
et qu'il faut un développement "spécifique" pour pouvoir piloter le CallPad à partir de mon fichier excel.

Je suis allé sur le site mais je n'y comprends vraiment rien :(
 

Roland_M

XLDnaute Barbatruc
Poursuivant mes recherches, j'ai trouvé ce code :
VB:
Sub notepad()
With Application
  Selection.Copy
  Shell "Notepad.exe", 3
  SendKeys "^v"
  VBA.AppActivate .Caption
  .CutCopyMode = False
End With
End Sub
Il ouvre notepad et y copie les cellules sélectionnées.
. . .

lionel
,

EDIT:
chez moi ça ne fonctionne pas, ça ne copie rien dans notepad !?
par contre ça me désactive verrouille num !?
sinon voir plutôt ainsi:
d'abord il faut sauvegarder les données dans un fichier texte(.txt) exp MonFichText$
puis, selon le dossier, exp:
FichPath$ = "E:\Documents\" & MonFichText$ & ".TXT"
Shell "notepad.exe " & FichPath, vbNormalFocus
 
Dernière édition:

eriiic

XLDnaute Barbatruc
Bonjour,

j'ai jeté un oeil sur le site, ils disent d'appeler l'API ainsi :
VB:
https://ssl.keyyo.com/sendsms.html?ACCOUNT=<ligne keyyo>&CALLEE=<destination>&MSG=<contenu du sms>
Tu devrais essayer d'ouvrir cette adresse fabriquée dans un navigateur, des exemples en vba se trouvent.

Peut-être possible aussi avec Hyperlink.Follow (?)
eric
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bjr, Roland,
Merci de t'inquiéter de moi :), j'ai déjà testé avec le notepad et ça fonctionne (ça colle bien dedans à partir de mon fichier excel).
Mais ce n'est pas possible d'après Keyyo sans utiliser son API avec un développement spécifique pour excel.

Je dois donc voir côté API Keyyo :mad:

Bonjour eriiiic,
Merci pour ton lien ... je vais y aller dès que j'ai un moment en courant LOL
J'y suis allé :
Flûte, je viens d'essayer = Invalid parameters
ça marche chez toi ?

lionel,
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Information: La référence Microsoft XML, v6.0 à cocher, permet d'ouvrir un objet XMLHTTP muni d'une méthode Open. Après je ne sais pas comment il marche en sortie. Peut être .Open "PUT", "Lien supprimé<ligne keyyo>&CALLEE=<destination>&MSG=<" & ZMsg & ">", False suivi de .Send
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390