Forum automatisme

Bonjour,

je cherche à faire un inventaire du parc schneider de mon entreprise. Essentiellement des Premium.

Il a t il possibilité d' imprimer depuis la configuration matérielle, la configuration complète de mon automate??? modèle de cpu rack et le reste...

Merci par avance.

bye

slts,
Dans STATION clic droit faire exporter/importer FNES / Exporter FNE
Et passer le fichier *.fne exporté à la moulinette ci dessous .
Procédure :
Copier les lignes du script ci dessous et les coller dans le « Bloc notes » enregistrer sous ExtraitMatos.vbs
Avec l’explorateur de fichiers cliquer sur ExtraitMatos.vbs pour lancer la moulinette et ouvrir le fichier *.fne
Résultat dans fichier *.txt
---------------------------------------

Option explicit
Dim TXT, sREF, sDESI
Dim fileNameSource, fileNameCible
Dim X1, X2,X1m
Dim FSO,Rtxt,Wtxt
Dim yaBon
fileNameSource=GetFileNameDlg()
fileNameSource = Ucase(Replace(fileNameSource, vbcrlf, ""))
if InStr(fileNameSource,".FNE")=0 then
MsgBox("Extension fichier Source non valide .FNE")
WScript.Quit 0
end if
'Fichier avec la liste du materiel
fileNameCible = Replace(fileNameSource, ".FNE", ".TXT")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Rtxt = FSO.OpenTextFile(fileNameSource)
Set Wtxt = FSO.createTextFile(fileNameCible,true)
Do While Not Rtxt.AtEndOfStream
TXT = Rtxt.Readline
yaBon=InStr(TXT, "RACK") or yaBon
X1 = InStr(TXT, "REFERENC ")
If X1 > 0 Then
sREF = replace(Mid(TXT, X1+9)," ","")
End If
X2 = InStr(TXT, "DESIGNAT ")
If X2 > 0 Then
sDESI = Mid(TXT, X2+9)
End If
If X1m > 0 And X2 > 0 and yaBon Then
Wtxt.writeline (sREF & vbTab & sDESI)
End If
X1m=X1
Loop
Rtxt.Close
Wtxt.Close
Set FSO = Nothing
Set Rtxt = Nothing
Set Wtxt = Nothing
MsgBox "Fin des opérations" , vbInformation, fileNameCible
Function GetFileNameDlg()
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll
End Function

Déjà, merci pour le coup de main.
Par contre quand je fait de l'export ça me propose uniquement .FEF et non FEN.... et ça ne fonctionne pas....

du coup j ai remplacer :
Option explicit
Dim TXT, sREF, sDESI
Dim fileNameSource, fileNameCible
Dim X1, X2,X1m
Dim FSO,Rtxt,Wtxt
Dim yaBon
fileNameSource=GetFileNameDlg()
fileNameSource = Ucase(Replace(fileNameSource, vbcrlf, ""))
if InStr(fileNameSource,".FEF")=0 then
MsgBox("Extension fichier Source non valide .FEF")
WScript.Quit 0
end if
'Fichier avec la liste du materiel
fileNameCible = Replace(fileNameSource, ".FEF", ".TXT")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Rtxt = FSO.OpenTextFile(fileNameSource)
Set Wtxt = FSO.createTextFile(fileNameCible,true)
Do While Not Rtxt.AtEndOfStream
TXT = Rtxt.Readline
yaBon=InStr(TXT, "RACK") or yaBon
X1 = InStr(TXT, "REFERENC ")
If X1 > 0 Then
sREF = replace(Mid(TXT, X1+9)," ","")
End If
X2 = InStr(TXT, "DESIGNAT ")
If X2 > 0 Then
sDESI = Mid(TXT, X2+9)
End If
If X1m > 0 And X2 > 0 and yaBon Then
Wtxt.writeline (sREF & vbTab & sDESI)
End If
X1m=X1
Loop
Rtxt.Close
Wtxt.Close
Set FSO = Nothing
Set Rtxt = Nothing
Set Wtxt = Nothing
MsgBox "Fin des opérations" , vbInformation, fileNameCible
Function GetFileNameDlg()
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll
End Function

Et ça me sort un fichier txt vide

slts
il faut pas exporter l'application mais faire et rien modifier dans le script, tu sais pas lire ?

Dans STATION tout en haut de la liste clic droit faire exporter/importer FNES / Exporter FNE

je dois mal comprendre. regarde mes photos

je comprend mieux ce que tu dit mais tu vois bien que je n'ai pas le même onglet

arfffff j ai le V4.5 pas le 5.5