Clé primaire en vba

Bonjour Voici mon problème,
Je suis en train de faire un fichier qui envoie certaines données dans un autre fichier excel fermé (servant de base de données). Pour cela j'ai utilisé la méthode ADO et je me suis servi de très bon tuto de silkyroad.

J'arrive à ajouter des enregistrements.

Par contre je souhaiterais que dans la première colonne du fichier servant de base de données, il y ait un numéro qui s'incrémente à chaque ajout d'enregistrement. Comme une clé primaire dans une base de données.

Est ce possible et quelle est la méthode à utiliser?
Merci d'avance pour votre aide.

Fred

Bonjour.

Quand tu parles de clé primaire, je comprends numéro auto. Si c'est cela, comme tu arrives à écrire dans ton classeur fermé, tu arrives aussi à y lire. Tu fais une requête "SELECT DMax([MaClé]) FROM [MaFeuille$];" et au numéro que tu obtiens, tu ajoutes 1.

Cordialement,

PGZ

C'est ca que je souhaite faire
Par il y a une erreur je suppose c'est Max et non DMax dans la requete?
Merci pgz

OK j'arrive à copier ma clé dans une cellule mais comment fait on pour que cette valeur soit écrite dans une variable directement

Code:

---

1 2 3 4 5 6 7

'Définit la requête. texte_SQL = "SELECT Max([N_Enregistrement]) FROM [" & Feuille & "$]" Set Rst = New ADODB.Recordset Set Rst = Cn.Execute(texte_SQL)   Range("B59").CopyFromRecordset Rst

---

Merci d'avance

Bonjour.

Tu peux ajouter

Code:

---

1 2 3 4

Dim lID as long ...   lID = Rst(0) + 1

---

COrdialement,

PGZ

Merci ca fonctionne très bien.
Mais juste par curiosité, à quoi correspond le 0.
Cordialement

Bonjour.

Le "0" correspond à l'index du premier champ dans l'enregistrement courant. Dans ton cas, tu vas chercher un max, donc tu as 1 seul enregistrement et le courant à l'ouverture est forcément le bon. Tu ne "montes" qu'un champ, donc ce champs a pour index 0.

On aurait pu aussi écrire

Code:

---

1 2 3 4

... texte_SQL = "SELECT Max([N_Enregistrement]) as MaxId FROM [" & Feuille & "$]" ... lId = Rst("MaxId") +1

---

SI c'est résolu, n'oublie pas :resolu:

Cordialement,

PGZ

OK merci pour les explications