Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ajout en fin de colonne dans un fichier fermé avec ADO

Street filou

XLDnaute Nouveau
Bonjour à tous

cela fait maintenant plusieurs jours que je bute sur un truc tout simple mais qui me pose beaucoup de soucis dans mon projet.
j'ai épuisé quasiment tout les forums et je n'arrive toujours pas à trouver ma réponse.

je sais lire, écrire, modifier un enregistrement dans une BD (fichier fermé) avec ADO.

mon problème est le suivant.
Je souhaiterais ajouter uniquement dans la colonne C un enregistrement à la suite du précédent.
idem pour la colonne E

Hors à chaque nouvel enregistrement il me crée une nouvelle ligne ...
donc si par exemple je commence par ajouter en C => soit C1
et ensuite je met une valeur en D => il va me la mettre en D2
et si je veux remettre une valeur en C => il va pas l'écrire en C2, mais en C3 ... ce qui me fais des cellule vide dans la colonne C et m'oblige à tout un tas de manip pour corriger le problème par la suite du code ....

Si une âme charitable aurait un bout de code pour me dépanner je serais mille fois reconnaissant !

merci beaucoup par avance

ci dessous le code utilisé (que j'ai modifié dans tous les sens ... !

répertoire = [ACCES!B7] 'chemin du répertoire stocké sur une feuille
Fichier = "source.xlsx" '[ACCES!B8] 'le nom du fichier stocké sur une feuille
Set cnn = New ADODB.Connection 'connexion à la base

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
répertoire & "\" & Fichier & ";Extended Properties='Excel 12.0;HDR=No'"

Set rs = New ADODB.Recordset
rs.Open "SELECT * from [data$C1:C100]", cnn, adOpenDynamic, adLockOptimistic 'Base de Données distante


'ajoute sur la base distante
rs.AddNew
rs(0).Value = TextBox1.Value
rs.Update 'met a jour la base


rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…