convertir du VBA excel en VB.NET

Question

Bonjour,

je voudrais savoir comment s'y prendre pour convertir du code VBA Excel en VB.NET ? (si c'est possible, bien sûr)
Mon problème vient surtout de l'interprétation des UserForm et autres controles, exportés en .frm et .frx !!?? (le basic lui ne pose évidemment pas de pb)

Merci bcp.

Thierry.

mortalino · Answer

salut,

les UserForms ne fonctionnent pas sous VB .Net

@++ 

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>

tberniard · Answer

oui....je voulais savoir s'il existait une sorte de moulinette qui puisse justement convertir les .frx en controles vb.net.......

sinon, ben tant pis.....faudra que je recode tout.....

MERCI.

Thierry

Masea · Answer

bonjour tout le monde;
dans le cadre d'un projet en stage,on m'a demandé de réaliser une application en vb.net,en effet, il s'agit d'une application d'affectation de matériels informatiques réalisé avec access en vba
jai comencé par réaliser mon interface,migrer les tables,puis connecter ma base de données...
est arrivé le temps de programmer mon form load,cela di,je devrai utiliser le code vba employé ds ma vieille application,
jai essayer de le comprendre,c un pti peu compliké on va dir,jmy connai pa en vba..mais je voi qui a une certaine similitude entre vba et vb.net...
je sais pas par koi commencer,ni koi faire.je suis debutante,et je me sens perdu:s:s

Ce que je vous demande,c'est qu'on jetant un peti coup d'oeil sur ce code,vous essayant de morienter et de me dire koi faire,par koi commencer,koi lire...svp! devrais'je commencer par maitriser le vba...???!!!plz help

le code :


Option Compare Database
'Option Explicit

Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
'Dim Menu As TreeView
'Dim RsRun As DAO.Recordset
Dim vMatCondition As String
Dim DesktopSelect As String
Dim LaptopSelect As String
Dim StationSelect As String
Dim EcranSelect As String
Dim PrinterSelect As String
Dim ScannerSelect As String
Dim ConsoSelect As String
Dim SelectOrder As String
Dim vwhere As String
Private vFileList(10, 1) As String 


Private Sub Form_Load()
    Set dbs = CurrentDb
  SetSelects
  FormInit
  CadreInv.Value = 2
  CadreInvMAJ
  
  Set rs = dbs.OpenRecordset(Me.ComboBoxAgent.RowSource)
  ComboBoxAgent.Value = rs.Fields(0).Value
  CadreAgentMAJ
  rs.Close
End Sub



définition de la procédure FormInit :
Sub FormInit()
  Dim vLbl As Label
  Dim vChk As CheckBox
  
  InitListInfo
  Set dbs = CurrentDb
  Set rs = dbs.OpenRecordset("select marque, count(*) as cnt from AllArticles_IDs_Mvmts as a " & _
                             " where Quantité >=0 and Marque is not null and TypeArticle <> 'Conso' " & _
                             " group by marque order by count(*) desc;")
  rs.MoveLast
  rs.MoveFirst
  For i = 1 To rs.RecordCount
    If i > 8 Then Exit For
    Set vChk = Me.Controls("chkMarque" & Format(i, "00"))
    Set vLbl = Me.Controls("lblMarque" & Format(i, "00"))
    vLbl.Caption = rs!Marque
    rs.MoveNext
  Next i

  With Me.ListeInvSUM
    .ColumnCount = vListInfo(0, 0).colWidth
    .ColumnWidths = vListInfo(0, 0).colName
    .ColumnHeads = True
  End With
  With Me.ListeInv
    .ColumnCount = vListInfo(1, 0).colWidth
    .ColumnWidths = vListInfo(1, 0).colName
    .ColumnHeads = True
   ' Debug.Print .RowSource
  End With
  With Me.ListeAgent
    .ColumnCount = vListInfo(2, 0).colWidth
    .ColumnWidths = vListInfo(2, 0).colName
    .ColumnHeads = True
  End With
    Me.CadreInvTypeAgent.Value = 1
    Me.CadreAgentTypeAgent.Value = 1
    Me.chkPrêt = False
    Me.PriseEnCharge = Now()
    Me.DateSouhaitéePC = Now()
    Me.DéchargePlanned = Now() + 1

End Sub


la fonction setSelect:
Private Sub SetSelects()
Dim TypeTri As Integer
Dim vMatType As String

For i = 0 To 9
  For j = 0 To 4
    SQLSelect(i, j) = ""
  Next j
Next i

SQLSelect(0, 0) = "Article_IDs"
SQLSelect(0, 1) = "Portable"
SQLSelect(0, 2) = "Article_Mvmts"
SQLSelect(1, 0) = "Article_IDs"
SQLSelect(1, 1) = "Station"
SQLSelect(1, 2) = "Article_Mvmts"
SQLSelect(2, 0) = "Article_IDs"
SQLSelect(2, 1) = "PC"
SQLSelect(2, 2) = "Article_Mvmts"
SQLSelect(3, 0) = "Article_IDs"
SQLSelect(3, 1) = "Ecran"
SQLSelect(3, 2) = "Article_Mvmts"
SQLSelect(4, 0) = "Article_IDs"
SQLSelect(4, 1) = "Imprimante"
SQLSelect(4, 2) = "Article_Mvmts"
SQLSelect(5, 0) = "Article_IDs"
SQLSelect(5, 1) = "Scanner"
SQLSelect(5, 2) = "Article_Mvmts"
SQLSelect(6, 0) = "Article_IDs"
SQLSelect(6, 1) = "Conso"
SQLSelect(6, 2) = "Article_Mvmts"
SelectOrder = " order by 3"

SQLSelect(9, 3) = ""
For i = 0 To 6
    SQLSelect(i, 4) = "SELECT Matricule, i.MIId, " & i & " as MatTypeTri , TypeArticle, " & _
                " a.Marque & ' ' & a.Model as Mat_Model, a.Désignation, a.Marque, a.Model, Sum(m.Quantité) as Qté " & _
                " From (" & SQLSelect(i, 0) & " as i Inner Join " & SQLSelect(i, 2) & " as m ON " & _
                " (i.Année m.Année) and (i.IDInv m.IDInv)) Inner Join Article as a on i.MIId = d.MIId  " & _
                " where m.MatType = '" & SQLSelect(i, 1) & "' WHERECOND" & _
                " Group by Matricule, i.MIId, " & i & " , '" & SQLSelect(i, 1) & "', a.Marque & ' ' & a.Model, " & _
                " a.Désignation, a.Marque, a.Model having Sum(m.Quantité) > 0" & _
                "  "
                
    SQLSelect(9, 4) = SQLSelect(9, 4) & " UNION " & SQLSelect(i, 4)
    
    SQLSelect(i, 3) = "SELECT  Matricule, m.Année, m.IDInv, " & i & " as MatTypeTri , TypeArticle, " & _
                " a.Désignation, i.SN, i.Inv, m.PriseEnCharge, Sum(m.Quantité) as Qté " & _
                " From (" & SQLSelect(i, 0) & " as i Inner Join " & SQLSelect(i, 2) & " as m  On " & _
                " (i.Année m.Année) and (i.IDInv m.IDInv)) Inner Join Article as a on i.MIId = d.MIId " & _
                " where m.MatType = '" & SQLSelect(i, 1) & "' WHERECOND" & _
                " Group by Matricule, m.Année, m.IDInv, " & i & " , '" & SQLSelect(i, 1) & "', a.Désignation, i.SN, i.Inv,  " & _
                " m.PriseEnCharge having Sum(m.Quantité) > 0" & _
                " "
    SQLSelect(9, 3) = SQLSelect(9, 3) & " UNION " & SQLSelect(i, 3)
Next i

SQLSelect(9, 3) = Right(SQLSelect(9, 3), Len(SQLSelect(9, 3)) - 7)
SQLSelect(9, 4) = Right(SQLSelect(9, 4), Len(SQLSelect(9, 4)) - 7)
End Sub


Fct CadreInvMAJ 



Private Sub CadreInvMAJ()
  SQLStr CadreSQL(IIf(Me.CadreInv.Value 1, "All", IIf(Me.CadreInv.Value = 2, "StockDSI", "Agent")), _
          IIf(IsNull(Me.ComboBoxInv.Value), -1, Me.ComboBoxInv.Value), _
          4, Me.ChkDesktopInv, Me.ChkMonitorInv, Me.ChkLaptopInv, _
          Me.ChkStationInv, Me.ChkScannerInv, Me.ChkPrinterInv, Me.ChkConsoInv, _
          Me.ChkTousInv, Me.ChkSansDechargeInv, getMarchéCond(), True)
  
  Me.ListeInvSUM.RowSource = SQLStr
  Me.ListeInvSUM.Requery
  
  SQLStr CadreSQL(IIf(Me.CadreInv.Value 1, "All", IIf(Me.CadreInv.Value = 2, "StockDSI", "Agent")), _
        IIf(IsNull(Me.ComboBoxInv.Value), -1, Me.ComboBoxInv.Value), _
        3, Me.ChkDesktopInv, Me.ChkMonitorInv, Me.ChkLaptopInv, _
       Me.ChkStationInv, Me.ChkScannerInv, Me.ChkPrinterInv, Me.ChkConsoInv, Me.ChkTousInv, _
       Me.ChkSansDechargeInv, getMarchéCond, True)
  Me.ListeInv.RowSource = SQLStr
  Me.ListeInv.Requery
End Sub

Alooshi · Answer

Bonjour à tous, je suis actuellement en stage et j'ai comme mission de convertir du code VBA Excel en VB.NET (VSTO) , merci de me répondre si vous avez déjà trouvez une solution. 

Merci bcp pour votre aide.

Ali

ucfoutu · Answer

Bonjour,
même réponse qu'ici :
Tapez le texte de l'url ici.
Etonnante, cette "pluie" soudaine de questions à ce sujet ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Convertir du VBA excel en VB.NET

5 réponses

Votre réponse