Fonction shell VBA

Fermé

Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 - 4 août 2009 à 14:22
Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 - 11 août 2009 à 12:29

Bonjour,

je souhaite realiser un programme VBA qui appelle un fichier (LTSpice) exterieur afin de le faire tourner.
Pour ceci, j utilise la fonction Shell comme suit :

RetVal = Shell("""C:\Programme\LTC\SwCADIII\scad3.exe -b test.cir""", 1)

mais j obtiens un message d erreur me disant a chaue fois que le fichier n existe pas.

Pourriez-vous m en dire un peu plus sur l utilisation de la fonction shell en general et eventuellement me proposer une solution pour appeler un programme exterieur (ici LTSpice), un fichier de ce programme (ici test.cir), et effectuer des commandes sur ce fichier, le tout via VBA ?

Je vous remercie d avance,

Charlotte

A voir également:

Vba shell
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Classic shell windows 10 français - Télécharger - Personnalisation
Vba range avec variable ✓ - Forum VB / VBA
Shell pause ✓ - Forum Shell
Erreur 1004 vba ✓ - Forum VB / VBA

8 réponses

Réponse 1 / 8

redonky Messages postés 102 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 31 octobre 2010 23
4 août 2009 à 14:47

Mon intervention va paraitre stupide, mais n'aurais tu pas simplement des guillemets en trop?

RetVal = Shell("""C:\Programme\LTC\SwCADIII\scad3.exe -b test.cir""", 1)

qui deviendrait

RetVal = Shell("C:\Programme\LTC\SwCADIII\scad3.exe -b test.cir", 1)

Voilà

Par contre attention,

l'appel d'une exécution extérieure par RetVal se fait en tache de fond et donc ton code continuera de s'exécuter...

Pour changer cela il faut que tu attende une réponse du RetVal si tu veux attendre la fin de l'exe si c'est en parallèle tu n'aura pas se pb

tiens moi au courant si tu as besoin de savoir comment faire pour attendre la rep et si ça marche ou non ;)

Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 3
5 août 2009 à 11:15

Merci pour ta reponse Redonky !

Oui, j avais aussi essaye avec les guillemets simples ("...") mais ca ne fonctionnait pas non plus. POur ce qui est de RetVal, je l ai recopie d un forum et je ne savais pas que ca avait une application particuliere : pourrais-tu m en dire un peu plus ?

Sinon, j ai reussi a lancer mon programme (LTSpice) comme ceci :
Public Sub ltspice_work()

Dim Software As String
Dim File As String
Dim ToLaunch
Dim RetVal

Software = """C:\Programme\LTC\SwCADIII\scad3.exe"""

File = """C:\Dokumente und Einstellungen\gaud\Desktop\test.cir"""

ToLaunch = Software & " " & File

RetVal = Shell(ToLaunch, 1)

End Sub

mais mon probleme est maintenant de modifier, a partir de VBA, des parametres dans le fichier LTSpice (ici test.cir) que j ouvre.

Saurais-tu comment modifier un programme exterieur a partir de VBA ?

Merci beaucoup,

Charlotte

blux Messages postés 26006 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 25 avril 2024 3 289 > Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009
5 août 2009 à 11:23

Salut,

tout dépend où sont tes paramètres : s'ils sont dans un fichier "texte", tu peux l'ouvrir et le modifier en VBA...

Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 3 > blux Messages postés 26006 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 25 avril 2024
5 août 2009 à 11:32

Salut Blux,

non, les parametres sont dans ce qui s appelle une netlist en LTSpice (c est un fichier .cir je crois).

Mais si tu sais deja modifier un fichier .txt sous VBA, je suis tout de meme preneuse !

Merci beaucoup,

Charlotte

Réponse 4 / 8

Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 3
5 août 2009 à 13:06

J ai un autre probleme aussi, c est que le changement de format (le fait d ouvrir mon .cir sous excel) modifie certaines de mes donnees mais je pense que ca, c est un probleme secondaire.

blux Messages postés 26006 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 25 avril 2024 3 289
5 août 2009 à 13:34

Ca peut devenir un problème primaire très rapidement !

As-tu essayé de l'ouvrir avec le bloc-note (c:\windows\notepad.exe) ?

Ca marche aussi avec le notepad mais dans ce cas j imagine qu il sera plus difficile de changer mes parametres dans la mesures ou il ne sont plus "ranges dans des cases".

sauf qu'enregistrer en VBA un fichier ouvert avec excel, c'est pas gagné... en vba, on ne gère pas les 'cases' avec un 'open' de fichier.

Alors a partir de la, comment est-ce que je demande a VBA de venir modifier automatiquement les parametres inscrits dans le fichier ?

Pour info, le probleme general c est de comparer la courbe obtenue en simulation LTSpice avec une courbe excel et de venir ensuite modifier les parametres de la courbe LTSpice jusqu a ce qu elle soit identique a la courbe enregistree sous Excel, le tout de facon automatisee sous VBA.

Merci beaucoup !

Cha

Réponse 5 / 8

redonky Messages postés 102 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 31 octobre 2010 23
5 août 2009 à 14:29

Alors pour enregistrer tu peux faire ce que tu veux ;)

Après avoir modifié tes données bien sur, voilà un bout d'un de mes codes :

Sub Export_Fichier_reactions()
' Saisie du nom de la base de données
Dim Filt As String, Title As String, writedata As String, Fichier_reactions As Range
Dim FilterIndex As Integer, i As Double, texte As String, n As Integer
Dim FileName As Variant, InitialFilename As Variant, Fichier_resultat As Range
' Nom de fichier proposé
InitialFilename = "Test.rxn"
' Filtre
Filt = "Fichier des réactions (*.rxn),*.rxn,"
' Met *.* par défaut
FilterIndex = 5
' Légende
Title = "Entrer le nom du Fichier des réactions"
' Saisie du nom du fichier des réactions
FileName = Application.GetSaveAsFilename _
(InitialFilename:=InitialFilename, _
FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
' Ouverture du fichier
If FileName = False Then GoTo fin
Open FileName For Output As #1
For i = 1 To index + index_relatif + 1
writedata = Workbooks(ArbeitName).Sheets("reactions").Range("A" & i)
Print #1, writedata
Next i
Close #1
' Mise à jour de la cellule "Fichier_reactions"
Set Fichier_reactions = Workbooks(ArbeitName).Sheets("Thermo_ZNS").Range("Fichier_reactions")
Fichier_reactions = FileName
' Mise à jour de la cellule "Fichier_resultat" = "Fichier_contraintes" sans extension
Set Fichier_resultat = Workbooks(ArbeitName).Sheets("Thermo_ZNS").Range("Fichier_resultat")

texte = Left(FileName, Len(FileName) - 4) & "-" & datedujour & ".txt"

If Dir(texte) <> "" Then
n = 1
Do Until Dir(texte) = ""
n = n + 1
texte = Left(FileName, Len(FileName) - 4) & n & "-" & datedujour & ".txt"
Loop
Workbooks(ArbeitName).Sheets("Thermo_ZNS").Range("Fichier_resultat") = Left(FileName, Len(FileName) - 4) & n & "-" & datedujour & ".txt"
Else
Workbooks(ArbeitName).Sheets("Thermo_ZNS").Range("Fichier_resultat") = Left(FileName, Len(FileName) - 4) & "-" & datedujour & ".txt"
End If

fin:
End Sub

Dans cet exemple je sauvegarde deux fichiers je crois le premier ou je m'en fiche qu'il écrase un fichier du même nom déjà existant et le deuxième ou il me faut à tout prix changer le nom en incrémentant...

Tu peux aussi t'assurer de ne pas avoir de conflit avec Kill texte kan la Dir existe ;)

J'espère que tout ça va t'aider(le filtre utile pour toi étant .cir et non .rxn) :D

Réponse 6 / 8

redonky Messages postés 102 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 31 octobre 2010 23
5 août 2009 à 14:34

Il te faut d'abord l'ouvrir sous Excel après c'est du tout cuit

et après ma macro te permet d'enregistrer au format que tu veux ;)

Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 3
5 août 2009 à 14:48

Wouhhh, moi qui ne connaissais pas VBA il y a deux semaines, je suis servie ; )

Qu entends-tu par "Tu peux aussi t'assurer de ne pas avoir de conflit avec Kill texte kan la Dir existe" ?

Par ailleurs, si j ai bien compris, ce long code sert juste a enregistrer le fichier, c est ca ?
Comment est-ce que je fais pour modifier mon fichier depuis VBA ? En fait j ai deux choses a faire : comparer la courbe resultant de la simulation du fichier sous LTSpice a une autre courbe enregistree sous excel puis faire varier les parametres de mon fichier .cir pour que la courbe ressemble plus a la courbe Excel.

Mon probleme c est que je n arrive deja pas a acceder a la courbe avec VBA, je n accede qu a la netlist (.cir), que je dois par ailleurs ensuite modifier. Mais une fois que je saurai modifier cette netlist avec VBA, j aurai deja un peu avance.

Merci bcp !

Réponse 7 / 8

redonky Messages postés 102 Date d'inscription jeudi 2 avril 2009 Statut Membre Dernière intervention 31 octobre 2010 23
5 août 2009 à 15:03

La Dir c'est le chemin de ton fichier si la Dir est différente de "" c'est que ton fichier existe déjà

à partir de là s'ouvre les choix ou tu change le nom (tu incrémente) ou bien tu écrase, des fois l'écrasement se passe mal, pour cela lorsque texte est <> "" il m'arive de faire un Kill texte

c'est à dire de détruire le fichier existant

dans mon code là ce n'est pas le cas

PS: mon code n'est pas à prendre Brut mais à adapter à ta situation :D

Alors pour modifier tes paramètres :

Si ils sont dans des cases il te suffit de les comparer et de les optimiser, mais là helas je ne suis pas dans ton ordi alors essai de nous expliquer exactement ce qu'il se passe...quand tu ouvre le fichier .cir dans Excel, comment cela se fait t'il?(dans des cases?) ou sont les paramètres de la courbe Excel?(dans des cases?)

Enfin avec plus de détail on pourra te venir en aide, et ne t'inquiète pas se genre de manip ne sont pas facile, c'est pour cela que c'est pas évident ;)

Chachou1980 Messages postés 30 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 20 août 2009 3
5 août 2009 à 15:31

Merci beaucoup a tous les deux de me prendre par la main pour mon premier saut perilleux VBA ; )

Alors, deja, merci pour tes precisions sur ton code (que je vais, bien sur, adapter a ma situation ; )).

En ce qui concerne mon projet :
- quand j ouvre le .cir avec excel, j obtiens bien les parametres dans des cases (c est pour ca que je disais que ce serait durement plus simple avec excel)
- en revanche, je n arrive pas a ouvrir directement la courbe (.raw) sous excel avec VBA. Cependant, je peux manuellement enregistrer cette courbe en format .xls sous LTSpice donc peut etre que je peux arriver a automatiser cette commande via VBA pour pouvoir ensuite disposer de cette courbe en .xls, ce qui me faciliterait la vie.
- La courbe d origine, celle a laquelle je dois comparer les courbes LTSpice jusqu a obtenir une courbe identique apres variation des parametres du .cir, est en format .xls egalement.

Je te mets un copier-coller de ce que j obtiens quand j ouvre mon .cir avec notepad pour info :

*Solar cell with bypass diode
* Save as Tab delimited text file *.cir and run it in LTSpice
* DC sweep of external voltage
.dc Va -.65 3.08 .04
Va 0 terminal 450
.save I(R000) ; save current values through Va during dc sweep"""""""

* Bypass Diode
.model ndiode D Is= 6.48E-14 Isr= 0.00E+00 Rs= 1.39E-01

* Definition of Diode Models
.model nzelle0101 D Is= 9.1E-18 Isr= 1.10E-11 N= 2.9998 Nr= 6

* Series resistances
R000 terminal n01013 1.00E-08 ; dummy""""""" für neg-strom reihenfolge der Knoten ändern
R0101 n01012 n01013 0.205

* SC Junctions
D0101 n01011 n01012 nzelle0101

* Bypass Diodes
D00101 n01013 n01011 ndiode

*Current Sources
I0101 n01011 n01012 -0.144459

*Shunt resistances
R20101 n01012 n01011 1.00E+10

*wire bonds
R90101 n01011 0 0.001

.end

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

VBA : Range avec références variables..

VBA EXCEL utilisation.like

Fonction Application.Match VBA

Récupérer la date du jour sous VBA

Fonction Cell en VBA-excel

Discussions similaires

Newsletters