VB, Excel et Access [Résolu]

Signaler
Messages postés
4
Date d'inscription
dimanche 3 décembre 2000
Statut
Membre
Dernière intervention
5 septembre 2009
-
Messages postés
153
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
24 avril 2011
-
Bonjour à tous,

Voila je suis en apprentissage dans une grande société publique française et je dois mettre au point une application permettant de rentrer des valeurs dans des cellules excel (d'un fichier déjà nommé et mis en forme) et aussi rentrer ces valeurs dans une base de donnée access pour permettre des recherches ultérieures par mots clés  et ainsi créer une grande base d'information consultable rapidement.

J'ai déjà créer une macro pour excel comprenant des userforms et des renvois vers les cellules mais je voudrais le faire à l'aide de VB Express 2008.

Pour avoir une meilleure idée de ce ue j'ai déjà fais, copie le code de ma macro :

<li>Macro du Workbook
</li>



Option Explicit
 Dim Valeur, offset, Ident, Valeur2, Heure, Minute, Seconde, ValeurCom, HeureSuspent As Integer
 Dim Buffer, Jour, Mois, Année As String

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Cells(8, 10).Value = DateTime.Day(Now) & " / " & DateTime.Month(Now) & " / " & DateTime.Year(Now)
End Sub

Private Sub BoutonEnregistrer_Click()

'MsgBox "Ce fichier sera enregistré dans le dossier D:/Journal à la date d'aujourd'hui"

Dim a As Date

    a = Range("J8")
  Buffer = "E:\Journaux" & DateTime.Day(a) & "-" & DateTime.Month(a) & "-" & DateTime.Year(a)
      If Dir("E:\Journaux", vbDirectory) = "" Then
         MkDir ("E:\Journaux")
      End If
    
      ActiveWorkbook.SaveAs Filename:=Buffer, FileFormat:= _
          xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
         , CreateBackup:=False
End Sub

Private Sub CommandButton3_Click()
UserForm3.Show
End Sub

Private Sub Saisie_Click()
interfacedesaisie.CheckBox1 = False
interfacedesaisie.CheckBox2 = False
interfacedesaisie.TextBox1 = ""
interfacedesaisie.TextBox2 = ""
interfacedesaisie.TextBox3 = ""
interfacedesaisie.TextBox4 = ""
interfacedesaisie.TextBox5 = ""
interfacedesaisie.Show

End Sub








<li>



Macro de Userform1




</li>




Dim offset As Integer

Private Sub CommandButton1_Click()
Sheets("Journal").Select
ThisWorkbook.PremiereLigneLibre
offset = ActiveCell.Row
Cells(offset, 1).Value = DateTime.Hour(Now)
Cells(offset, 3).Value = DateTime.Minute(Now)
If interfacedesaisie.CheckBox1 = True Then
    Cells(offset, 5).Value = "i"
End If

If interfacedesaisie.CheckBox2 = True Then
    Cells(offset, 5).Value = "r"
End If

Cells(offset, 7).Value = TextBox4
Cells(offset, 9).Value = TextBox5
Cells(offset, 11).Value = TextBox1
Cells(offset, 14).Value = TextBox2
Cells(offset, 17).Value = TextBox3
Cells(offset, 20).Value = ComboBox1
Cells(offset, 49).Value = ComboBox2

interfacedesaisie.Hide

End Sub

Private Sub CommandButton2_Click()
interfacedesaisie.Hide
End Sub

Private Sub CommandButton3_Click()
UserForm2.Show
End Sub

Private Sub CommandButton4_Click()

offset = 17
   
    Do
    offset = offset + 1
    Loop While (Cells(offset, 1).Value <> "" Or Cells(offset, 3).Value <> "" _
    Or Cells(offset, 5).Value <> "" Or Cells(offset, 7).Value <> "" Or Cells(offset, 9).Value <> "") Or (Cells(offset, 11).Value <> "") Or (Cells(offset, 14).Value <> "") Or (Cells(offset, 17).Value <> "") And (Cells(offset, 20).Value <> "") And (Cells(offset, 49).Value <> "")

offset = offset - 1

Rows(offset).Value = ""

End Sub




Voilà à peu près ce que ca donne, maintenant j'aimerais créer la même chose le tout relié à une base de donnée mais je ne sais pas par où commencer.

Merci pour vos réponses

Cordialement

1 réponse

Messages postés
153
Date d'inscription
dimanche 4 mars 2007
Statut
Membre
Dernière intervention
24 avril 2011
1
Je te conseil de regarder ma source, il y a toutes les informations nécéssaires... enfin je pense

http://www.vbfrance.com/codes/GESTION-BASE-DONNEE-ACCESS-COMPLETE-AVEC-ORIENTE-OBJET_45675.aspx

Bonne chance pour la suite ;)