VB, Excel et AccessRésolu

Question

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 :

Macro du Workbook

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

Macro de Userform1

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

ThoT49 · Accepted Answer

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 ;)

VB, Excel et Access

1 réponse

Votre réponse

Discussions similaires