Traduire deVBA vers VB.net

Question

Salut je cherche a traduire mon prog de VBA vers VB.net

Dim wID 
As 
Integer


wID = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE ", AppWinStyle.MinimizedNoFocus)



On 
Error 
Resume 
Next


wID = GetObject(, "WINWORD.Application")



If Err.Number 
Then


Err.Clear()


AppActivate(wID)



End 
If     (jusqu'ici &#231;a marche) 


ChangeFileOpenDirectory( _


"C:\Documents and Settings\ara\Bureau\FichierBBS3net")


Word.Documents.Open(Filename:=NomFichier, ConfirmConversions:=
False, 
ReadOnly _


:=
False, AddToRecentFiles:=
False, PasswordDocument:="", PasswordTemplate _


:="", Revert:=
False, WritePasswordDocument:="", WritePasswordTemplate:="" _


, Format:=Word.WdOpenFormat.wdOpenFormatAuto, Encoding:="", Visible:=
True)


sachant que Nomfichier est sous la forme Scs_s.~701 ou Scs_s.~702 etc
Merci

sebmafate · Answer

remplace les GetObject par des CreateObject Sébastien FERRAND Blog : http://blogs.developpeur.org/sebmafate

Traduire deVBA vers VB.net

1 réponse

Discussions similaires