Reconnaitre un format de fichier & appel d'une macro par une autre macro

Question

Bonjour,

J'utilise une macro qui fait appelle &#224; un fichier. Pour l'instant, je l'ai bloquer au fichier .txt. Mais j'aimerai en fonction du type de fichier (.txt ou .xls) executer une partie ou l'autre du programme. Je pr&#233;cise que c'est du VBScript et que l'application est pour Catia V5.

Je sais comment structurer le probl&#232;me mais il me manque la syntaxe. Voila ce le d&#233;but de mon programme :


Language="VBSCRIPT"


Sub CATMain()


' fen&#233;tre de selection de fichier
fich = CATIA.FileSelectionBox("S&#233;lection du fichier texte", "*.txt;.xls", CatFileSelectionModeOpen) 
Set Fso = CreateObject("scripting.filesystemobject") 'cr&#233;ation d'une instance de fso






If Fso.FileExists(fich) then 'v&#233;rification de l'existance du fichier
   Set fichier = Fso.getfile(fich)
   Set Stream = fichier.OpenAsTextStream(ForReading, TristateUseDefault)
   ...

D&#233;ja je ne sais pas ce que sait qu'un fso??? 
"fich" est le chemin d'acc&#233;s de mon fichier.

J'aimerai &#233;crire un truc du genre :

If (fich = blabla.txt) Then
   ...
Else If (fich = blabla.xls) Then
   ...
End If

Voila je pense pas que soit compliquer mais je ne connais pas grand chose en programmation.
Merci d'avance

flabrousse

flabrousse · Answer

J'ai oubli&#233; ma deuxi&#232;me question. 

J'aimerai savoir si il est possible d'executer une macro dans une autre macro. Ceci dans le but d'all&#233;ger la lecture et la compr&#233;hension de chaque application.

En gros dans ma macro, je souhaiterai avoir une fonction du genre :

execute (MaMacro.catvbs)

Voila

merci

econs · Answer

Pour le premier point, &#231;&#224; donne ceci :






If Right$(monNomDeFichier,4) = ".txt" Then

    '    ...

Else

    If Righ$(monNomDeFichier,4) = ".xls" Then

        '    ...

    Else

        MsgBox "Format non reconnu"

    End If

End If

Manu

Reconnaitre un format de fichier & appel d'une macro par une autre macro

2 réponses

Discussions similaires