Petit souci pour export données VBA EXCEL

Bonjour à tous  

J'explose mon obstacle actuel ... j'ai une feuille dun de mes fichiers, une facture pour être plus précis, dont je souhaite exporter quelques données dans un classeur d'archives ...

J'ai pratiquement réussi, mais je bute sur un obstacle ... Je vous présente dans un premier temps le code usité :

Sub ArchiveFact()

Dim conn As Object

Dim requete As Object

Dim fact_num As Long

Dim fact_date As Date

Dim cmd_num As String

Dim cmd_date As Date

Dim nom_clt As String

Dim ech_date As Date

Dim tot_HT As Double

Dim texte_SQL As String

Dim classeur As String

Dim fichier As String

 
Sheets("Facture").Activate

 
'collecte les infos de la facture

fact_num = Range("A14")

fact_date = Range("A16")

cmd_num = CStr(Range("C16"))

cmd_date = Range("D16")

nom_clt = CStr(Range("F9"))

ech_date = Range("H16")

tot_HT = Range("F43")

 
'connexion à la base dans fichier archives.xls

classeur = "Archives_test.xls"

fichier = ThisWorkbook.Path & "\" & classeur

Set conn = CreateObject("ADODB.Connection")

conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _

                "data source=" & fichier & ";" & _

                "extended properties=""Excel 8.0;"""

 
' travail demandé: insère dans les champs de "Archives_fact" les données collectées

texte_SQL = "INSERT INTO Archives_fact (num_fact,date_fact,num_cmd,date_cmd,nom_clt,tot_HT,ech_date) VALUES ('" & (fact_num) & "','" & (fact_date) & "', '" & (cmd_num) & "','" & (cmd_date) & "','" & (nom_clt) & "','" & (ech_date) & "','" & (tot_HT) & "')"

' éxécute le travail demandé

Set requete = CreateObject("ADODB.recordset")

Set requete = conn.Execute(texte_SQL)

 
Set requete = Nothing

Set conn = Nothing

 
MsgBox "archivage de la facture n° " & fact_num & " effectué avec succès"

 
End SubCordialement.

Il fonctionne bien   presque parfaitement  
Mon souci est le suivant : pour la première facture exportée, pas de souci, tout roule  
Par contre pour la seconde, il me sort une erreur :
"Erreur d'exécution '-2147467259 (80004005)' :
Impossible d'agrandir la plage nommée."

J'ai regardé d'où cela pouvait venir, et en fait, il s'agit de la plage de données définie par "Archives_fact" dans ma ligne de sql ... en effet, si je veux que ce code fonctionne, je n'ai d'autre choix, pour le moment, que d'ouvrir après chaqeu enregistrement le classeur cible et de redéfinir ma plage de données ...

Existerait-il un moyen pour que cette plage de données s'étende d'une ligne en plus à chaque enregistrement ?

Je m'explique : J'aimerai savoir si :

ActiveWorkbook.Names.Add Name:="ex", RefersToR1C1:="=Feuil1!R1C1:R7C7"

peut être programmé pour qu'à chaque ajout d'une ligne dans le classeur archive, RefersToR1C1:="=Feuil1!R1C1:R7C7" devienne RefersToR1C1:="=Feuil1!R1C1:R7(+1)C7(+1)" ???

Merci à vous par avance ...
Talzatior.
A très bientôt  
Cordialement,