Tranfere un code VBA à VB

Question

Bonjour,
Je voudrais savoir si il est possible de passé une application venant de VBA sous VB.
Je m'explique on m'a donné une Base de donnée a remplir sur une gestion de stock, j'ai fais mon tableau sous excel, mais le hic c'est que la personne qui l'utilise se deplace beaucoup et a besoin d'y accéder via le net.
Si vous avez des suggestion vous etes les bienvenus
D'avance merci

Renfield · Answer

depend si elle est seule a s'en servir ^^

duffmoi · Answer

merci pour ta rapiditer
Heu bonne question si ce n'est pas le cas il faut rajouter une routine d'indentification  aie
voici mon code il est tout simple 
jutilise des userfomes pour simplifier la manipulation, et j'aimerai que ça marche aussi sur le net.
Private Sub CommandButton1_Click()
'Déclaration des variables
Dim nb1 As Integer, nb2 As Double, nb3 As Double, nb4 As Double, nb5 As Double, nb6 As Double, i As Double, nb7 As Double, nb8 As Double, nb9 As Double


'selection de la ligne a remplir


i = 3
Do
    i = i + 1
        
    
Loop Until Cells(i, 1) = ""
 
'ecriture des données
'tableau general
UserForm1.Show
'choix du groupe
UserForm2.Show
'choix de l'equipe


  Select Case Cells(29, 21)
    Case "ICER"
    Cells(19, 21) = "IPTV"
    MsgBox "Team IPTV selected"
    Case "ISSO"
    Cells(19, 21) = "ISSO"
    MsgBox "Team ISSO selected"
    Case "ITS"
    UserForm4.Show
    Case "MGT"
    Cells(19, 21) = "MGT"
    MsgBox "Team MGT selected"
    Case "MSDR"
    UserForm5.Show
    Case "PSSTI"
    UserForm6.Show
    Case "SOR"
    UserForm7.Show
    Case "WDTS"
    UserForm8.Show
    Case Else
      MsgBox "dammed"
  
    
  End Select
'obsevation
UserForm3.Show




'concatenation de la date




 Cells(5, 21) = Cells(3, 18) & " " & Cells(3, 19) & " " & Cells(3, 20)


'memorisation des valeures saisies
Cells(i, 1) = i - 3
Cells(i, 2) = Cells(7, 21)
Cells(i, 3) = Cells(9, 21)
Cells(i, 4) = Cells(11, 21)
Cells(i, 5) = Cells(13, 21)
Cells(i, 6) = Cells(15, 21)
Cells(i, 7) = Cells(17, 21)
Cells(i, 8) = Cells(19, 21)
Cells(i, 9) = Cells(21, 21)
Cells(i, 10) = Cells(23, 21)
Cells(i, 11) = Cells(5, 21)
Cells(i, 12) = Cells(27, 21)
Cells(i, 13) = Cells(25, 21)


 


 




End Sub


Private Sub CommandButton2_Click()


 


 CommandButton1.Visible = False
 CommandButton2.Visible = False
 CommandButton3.Visible = False
 Range("A1:M33").Select
 Selection.PrintOut Copies:=1, Collate:=True
  CommandButton1.Visible = True
  CommandButton2.Visible = True
  CommandButton2.Visible = True
 Cells(1, 1).Select


 ' Application.Quit


End Sub


Private Sub CommandButton3_Click()
'Déclaration des variables
Dim nb1 As Integer, nb2 As Double, nb3 As Double, nb4 As Double, nb5 As Double, nb6 As Double, i As Double, nb7 As Double, nb8 As Double, nb9 As Double


'selection de la ligne a remplir


i = 3
Do
    i = i + 1
        
    
Loop Until Cells(i, 1) = ""
 
'ecriture des données
'tableau general
UserForm1.Show
'choix du groupe
laba:
UserForm2.Show
'choix de l'equipe


  Select Case Cells(29, 21)
    Case "ICER"
    Cells(19, 21) = "IPTV"
    MsgBox "Team IPTV selected"
    Case "ISSO"
    Cells(19, 21) = "ISSO"
    MsgBox "Team ISSO selected"
    Case "ITS"
    UserForm4.Show
    Case "MGT"
    Cells(19, 21) = "MGT"
    MsgBox "Team MGT selected"
    Case "MSDR"
    UserForm5.Show
    Case "PSSTI"
    UserForm6.Show
    Case "SOR"
    UserForm7.Show
    Case "WDTS"
    UserForm8.Show
    Case Else
    GoTo laba
      MsgBox "dammed"
  
    
  End Select
'obsevation
UserForm3.Show




'concatenation de la date




 Cells(5, 21) = Cells(3, 18) & " " & Cells(3, 19) & " " & Cells(3, 20)


'memorisation des valeures saisies
Cells(i, 1) = i - 3
Cells(i, 2) = Cells(7, 21)
Cells(i, 3) = Cells(9, 21)
Cells(i, 4) = Cells(11, 21)
Cells(i, 5) = Cells(13, 21)
Cells(i, 6) = Cells(15, 21)
Cells(i, 7) = Cells(17, 21)
Cells(i, 8) = Cells(19, 21)
Cells(i, 9) = Cells(21, 21)
Cells(i, 10) = Cells(23, 21)
Cells(i, 11) = Cells(5, 21)
Cells(i, 12) = Cells(27, 21)
Cells(i, 13) = Cells(25, 21)


 


 




End Sub

Renfield · Answer

places tes données dans un fichier, et tes macros dans un autre

ainsi, l'itinérant utilise l'XLS avec les macros, qui exploite les données d'un fichier Excel commun (Access serait surement mieux senti, niveau multi accès)
disponible via internet

duffmoi · Answer

Désolé je suis debutant, j ai essayé de mettre mon code ailleur en mettant Temp!U15 
Temp etant ma feuille de stoquage temporaire
Peux tu me donner le code et une explication parce que je suis perdu
Quand a acces malheureusement je ne l'ai pas.
Dans la companie ou je fais mon stage ils ont un serveur SQL

Renfield · Answer

ne mets pas 'réponse acceptée' partout...
attend que ton probleme soit solutionné, et utilise ce bouton pour mettre en évidence le post qui t'a aidé a avancer...

là, les autres membres vont voir que ton sujet est clos, et ne vont donc pas venir tenter de t'aider.

duffmoi · Answer

ok merci
je suis completement néophyte alors esite pas a me donner tout les conseil que tu peux 
multumesk 
(je fais mon stage en roumanie)

Renfield · Answer

='C:\Dossier1\Dossier1\[FichierExcelDonnées.xls]Feuil1'!$D$7

duffmoi · Answer

merci 
et pour ce qui est de l'acces via le net?
promis c la dernier question ^^!

Renfield · Answer

dépend si tu peux partager un fichier et y accéder via le Net ...

duffmoi · Answer

Oui c'est ce que je veux,
Un collegue ma dis d'utiliser mysql mais je suis novice dans ça aussi !!
Quel est ton avis?

Renfield · Answer

d'accord avec lui, je parlais de Access, mais tout SGBD peut faire l'affaire

duffmoi · Answer

SGBD??

Renfield · Answer

google est ton ami...

http://fr.wikipedia.org/wiki/Syst%C3%A8me_de_gestion_de_base_de_donn%C3%A9es

duffmoi · Answer

lol merci

duffmoi · Answer

ahhh ok je connaissait mais pas l'abreviation on m as donné essay php(je vais utiliser google pour trouver un tuto) j'ai créer une base de donnée mais je peu plus faire de userforme... je vais abandonner l'idee de passer de vba a vb je croit!!

duffmoi · Answer

oui c bien ce que je doi faire je vais passer par une methode sql+php ça sera plus simple!!
encore merci

Tranfere un code VBA à VB

16 réponses

Votre réponse

Discussions similaires