Discussion :

[amelyfred]

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

[pgz]

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

[amelyfred]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Tu peux ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

COrdialement,

PGZ

[amelyfred]

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

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

PGZ

[amelyfred]

OK merci pour les explications