Fonction shell VBA

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?

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 ?

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.

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

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

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

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