Bonjour tout le monde,
alors voilà j'ai un souci qui va me rendre chéééééééévrrrrreeeee
Je vous explique.
J'ai créé un petit logiciel de facturation en VBA et à un moment donné pour renseigner le nom des clients je souhaite accéder ( et ecrire pour les enregistrer) les noms des clients sur un autre fichier excel que j'utilise comme "base de donnée"
Jusque là tout va à peut prêt bien, j'arrive à lire ma base SAUF que quand je souhaite écrire dedans j'ai un gros problème :
L'insertion de l'enregistrement dans la "base" se fait bien mais pas à la bonne ligne.
Ce qui veut dire que mon premier enregistrement s'enregistre à des lignes plus basses dans la table de facon aléatoire ( c'est à dire que j'ai mon intitulé de table en A1 et mon 1er enregistrement va se mettre par exemple en A14 avec A2-A13 vides....)
Ceci me pose de gros problèmes car forcément pour récupérer les données c'est compliqué quand une table a des enregistrements vides...( un enregistrement vide dans une BDD c'est vraiment pas logique) et bien sûr je ne souhaite pas fournir un logiciel aussi instable....
Ma question est donc : quelqu'un aurait-il eu ce genre de problème ?
Voici mon code :
Ma table contient juste un champ Designation
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 Dim Feuille As String Dim Cn As ADODB.Connection Dim strSQL As String chemin_logiciel = ActiveWorkbook.Path 'Définit le classeur fermé servant de base de données Fichier = chemin_logiciel & "\config\designations.xls" Feuille = "Feuil1" Set Cn = New ADODB.Connection With Cn .Provider = "MSDASQL" .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _ "DBQ=" & Fichier & "; ReadOnly=False;" .Open End With Dim leNom As String leNom = "test" strSQL = "INSERT INTO [" & Feuille & "$] " & "VALUES ('" & leNom & "')" Cn.Execute strSQL Cn.Close Set Cn = Nothing End If
Merci pour votre aide je comprend vraiment pas d'ou ca peut venir...
Partager