[VBA] Problème de tri après insertion de données par formulaire

ducrocq

XLDnaute Nouveau
Bonjour,

je cherche actuellement à gérer un fichier à partir d'un autre qui possède un formulaire. Sur celui-ci je souhaiterai donc pouvoir ajouter, modifier, supprimer des données.
J'arrive bien à ajouter les données que je souhaite aux bons endroits, cependant je souhaiterais conserver le tri qui est mis en place. L'ajout ne fait simplement que mettre à la fin du tableau la donnée...
Voici mon code:

'Insérer le nouveau projet dans la bd
Fichier = "I:\DPR-DPR\00303\_TOUS\TEFournisseurs\Outil TEF\Outil_v18\Base de donnees_v2.xls"
'Nom de la feuille dans le classeur fermé
Nomfeuille = "List_Fournisseurs"

Set Cn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")

'--- Connection ---
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
.Open
End With

texte_SQL = "SELECT (nomFournisseur) from [" & Nomfeuille & "$] WHERE nomFournisseur= '" + TextBox1.Value + "'"

Set Rst = Cn.Execute(texte_SQL)

If Rst.EOF Then
verifliste = True
Else
MsgBox "Le fournisseur existe déjà."
End If

If verifliste Then

texte_SQL = "INSERT INTO [" & Nomfeuille & "$] (nomFournisseur) VALUES ('" + TextBox1.Value + "')"
Set Rst = Cn.Execute(texte_SQL)


Workbooks.Open Fichier
ActiveWorkbook.Worksheets(" & Nomfeuille & ").Range("A2:A64500").Select

selection.Sort

End If

Cn.Close


Voila donc l'ajout fonctionne, mais je bloque après l'exécution de la requete INSERT. La méthode Open me dit que je ne peux pas ouvrir le fichier ^^

Alors si quelqu'un a une idée de comment résoudre ce problème ou un contournement pour effectuer le tri autrement, je suis preneur!

Merci bien :)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas