Bonjour,
J'ai un petit soucis. J'ai cette boucle qui me permet de parcourir un fichier excel. A chaque personne trouver, il insère une valeur en plus dans la variable requete qui contient la future requete INSERT INTO. Je déclare ma variable requete en string, mais j'ai un petit problème, il ne mets pas toute les valeures, il me coupe a 255 caractère. Mais j'ai regarder dans l'aide, et c'est marqué qu'il peut contenir jusqu'à 2 milliard de caractère...
C'est bizarre. Est-ce que quelqu'un pourrait m'aider
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 'déclaration des variables de données Dim requete As String 'création de l'objet excel Set excel_application = CreateObject("Excel.Application") ' Définit le fichier EXCEL à ouvrir Set excel_feuille = excel_application.Workbooks.Open(Application.CurrentProject.Path & "/fichier/2005.xls") 'rend l'application excel visible 'excel_application.Visible = True Set base_de_donnee = CurrentDb requete = "INSERT INTO tbl_temp_personne (nom_personne) values " 'boucle permettant de trouver la fin du fichier ainsi que d'insérer la liste des personnes dans la table tbl_temp_personne While test_fin <> "ok" nombre_ligne = nombre_ligne + 1 'If excel_application.Cells(nombre_ligne + 1, 1) = "" Then If nombre_ligne = "100" Then requete = requete & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "');" txt_test.Value = txt_test.Value & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "');" test_fin = "ok" Else 'récupération du nom de la personne et création de la requete requete = requete & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "')," txt_test.Value = txt_test.Value & "('" & excel_application.Cells(nombre_ligne + 1, 5) & "')," test_fin = "pas ok" End If Wend MsgBox (requete)
Partager