Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Contrôler Minitab ou faire comme lui

  • Initiateur de la discussion Initiateur de la discussion double-ien
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

double-ien

XLDnaute Junior
Bonjour humble forum

Est ce que vous savez s'il est possible de commander Minitab via Excel?

J'ai des graphiques et je voudrai appliquer des tests dessus comme Minitab le fait.(pièce jointe)

1.La première idée est donc de commander Excel pour envoyer les données du graphique vers Minitab et récupérer le graphique sous Excel.
2.La seconde serait de pouvoir faire le même types de tests sous excel.


Quelqu'un a une idée?


Merci pour votre aide
Très bonne soirée à vous 😀

ien
 

Pièces jointes

  • tests minitab.jpg
    40.6 KB · Affichages: 111
Re : Contrôler Minitab ou faire comme lui

Bonsoir double-ien,

J'ai testé chez moi. Voici le principe de code que je te propose pour "télécommander" Minitab. J'utilise pour cela l'envoi de touches par la fonction SenKeys.

Le principe est le suivant : pour activer un élément de menu : frappe au clavier de <ALT> + S devient SendKeys "%S". Ensuite, le menu ouvert, il suffit d'envoyer le code de la lettre soulignée dans le menu. Exemple ANOVA devient SenKeys "A".

Ci-dessous un bout de code pour te permettre de comprendre le principe. Ensuite, ce sera à toi de jour en relevant le chemin utilisé pour tes calculs.

Code:
Public RetVal
Sub Minitab()
    Selection.Copy
    RetVal = Shell("C:\Program Files\Minitab 15\Mtb.exe", 1)
    SendKeys "%S"
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "s"
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "d"
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "{TAB 2}"
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "{ENTER}"
    Application.Wait (Now + TimeValue("0:00:01"))
    SendKeys "a"
    Application.Wait (Now + TimeValue("0:00:01"))
End Sub

A+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
48
Affichages
7 K
N
Réponses
3
Affichages
4 K
Nicolas_T
N
Réponses
9
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…