log en vb

bonjour a tous et a toute

Je voudrai savoir comment faire un fichier log en vb
qui permetrrai de controler l'importation de données de excel vers acces

merci pour vos reponses

Alors là tout dépend de ton code.

En gros, il faut ke tu rajoutes pendant l'import la fonction Log un peu partout pour dire
j'importe ça
j'importe pas ça...

Si ta moulinette d'import n'est pas trop longue post la que je vois.

PsyCaDi

salut

voici le code d'importation

Function importexcel(myname As String) Dim plage As Range Dim array1 As Variant Dim db1 As DAO.Database Dim rs1 As DAO.Recordset Dim appexcel As Excel.Application Dim wbexcel As Excel.Workbook 'creer l'objet excel Set appexcel = CreateObject("excel.application") appexcel.Visible = True 'ouvre le fichier excel Set wbexcel = appexcel.Workbooks.Open(myname) 'ouvre la feuille de calcul à l'interieur du fichier appexcel.Sheets("feuil1").Select Set plage = appexcel.Worksheets("feuil1").Range("a1").CurrentRegion.Offset(0, 0) 'ouverture de la base de données image.mdb Set db1 = CurrentDb() 'definitiion de rs1 qui est la table screening _report Set rs1 = db1.OpenRecordset("screening_report", dbOpenDynaset) 'un objet recordset representent les enregistrements d'une table array1 = plage.Value 'importation des données d'excel vers access 'avec le recordset rs1 With rs1 .AddNew 'le champs titre recoit l'information de la cellule 2, 3 'pour la cellule on prend d'abord la ligne puis la colonne .Fields("num_cassette") = "2" .Fields("title") = plage.Cells(3, 2) .Fields("distributor") = plage.Cells(3, 5) .Fields("country") = plage.Cells(3, 6) .Fields("prod") = plage.Cells(4, 5) .Fields("country1") = plage.Cells(4, 6) .Fields("year") = plage.Cells(5, 5) .Fields("format") = plage.Cells(5, 6) .Fields("genre") = plage.Cells(6, 5) .Fields("shoot_lang") = plage.Cells(6, 6) .Fields("theme") = plage.Cells(7, 5) .Fields("synopsis") = plage.Cells(8, 2) .Fields("general_synopsis") = plage.Cells(9, 2) '.Fields("general_synopsis2") = plage.Cells(9, 2) .Fields("rating_Program") = plage.Cells(10, 2) .Fields("notes_program") = plage.Cells(10, 6) .Fields("story_quality") = plage.Cells(11, 2) .Fields("image_quality") = plage.Cells(12, 2) .Fields("treatment_quality") = plage.Cells(11, 4) .Fields("youth_audience_adequation") = plage.Cells(12, 4) .Fields("panarab_audience_adequation") = plage.Cells(11, 6) .Fields("educational_goals_adequation") = plage.Cells(12, 6) .Fields("comments1") = plage.Cells(13, 2) .Fields("positive_points") = plage.Cells(17, 2) .Fields("negative_points") = plage.Cells(12, 6) .Fields("debate_themes") = plage.Cells(19, 2) .Fields("educational_benefit") = plage.Cells(20, 2) .Fields("programming") = plage.Cells(21, 2) .Fields("age_group") = plage.Cells(22, 2) .Fields("gender") = plage.Cells(23, 2) .Fields("time") = plage.Cells(24, 2) .Fields("period") = plage.Cells(25, 2) .Fields("previous_runs") = plage.Cells(26, 2) .Fields("lII_recomendation") = plage.Cells(30, 2) .Fields("Final_format") = plage.Cells(36, 5) .Fields("acquisition") = plage.Cells(31, 2) .Fields("modifications") = plage.Cells(32, 2) .Fields("dubbing") = plage.Cells(33, 2) .Fields("production") = plage.Cells(34, 2) .Fields("doha_acquisition_decision") = plage.Cells(35, 2) .Fields("dubbing_company") = plage.Cells(35, 2) plage.Select .Update 'le champs est mis à jour End With appexcel.Workbooks.Close 'fermeture de la feuille de données db1.Close 'fermeture de la base de données image appexcel.Quit 'fermeture du fichier End Function

je ne sais pas ou mettre les element et reperer les données qui ont ete importe


mercii


merci

re

oui c'est ca car je veux savoir si a chaque fois la donnée a bien ete importe et le mettre dans le fichier

je vais essayer ca merci beaucoups

salut

c'est bon ca marche merci
et ya til un moyen de metre comme texte la données de la cellule x du fichier x n'a pas ete importe ou importe

avec x et fichier des variable

merci

If plage.Cells(3,5) <> "" then
Log MonFichier, "L'importation de la cellule 3,5 dans le champ distributor a réussi"
Else
Log MonFichier, "L'importation de la cellule 3,5 dans le champ distributor a échoué"
End if
.Fields("distributor") = plage.Cells(3, 5)

'À la place de :
.Fields("distributor") = plage.Cells(3, 5)

par contre si tu veux récupérer la place de la cellule automatiquement il te faudra passer par des variables genre
.Fields("distributor") = plage.Cells(x, y)


PsyCaDi

ok merci

mais est ce que c'est possible de verifier egalememt que toute les données de la cellule ont ete transferer dans le champs
access

merci