Fonction shell VBA Fermé

Question

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

redonky · Accepted Answer

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 ;)

redonky · Answer

Alors avant de t'en dire un peu plus voyons l'ouverture de ton .cir

Essaye de l'ouvrir dans Excel ce fichier si celà est possible et si tel est le cas on l'automatisera ;)

ensuite entraine toi si il s'ouvre à modifier les lignes que tu désir et à réenregistrer (moi je modifie des .dat .con .rxn fin n'importe quoi dans excel ;) )

Alors est ce que l'ouverture fonctionne? Sais tu modifier tes paramètres? sais tu réenregistrer tes mofifs?

Chachou1980 · Answer

Oui, il me l ouvre !

Quand je change mon code en :
Software = """C:\Programme\Microsoft Office\OFFICE11\excel.exe"""

ca marche !

Si j essaye de le modifier, je dois l enregistrer au format .xls ou pas ? Lui donner un autre nom ou pas ?

Chachou1980 · Answer

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.

redonky · Answer

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

redonky · Answer

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 ;)

redonky · Answer

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 · Answer

Quelqu´un aurait une idée pour m´aider à avancer ?

Fonction shell VBA

8 réponses

Discussions similaires