Copie données dans fichier fermé

[Pierre]

Bonjour à tous
Tout d'abord un grand merci à tous les participants actifs de ce forum.

Je souhaite écrire des données dans un champ qui porte un nom composé de "db_budget_" suivi du numéro du mois extrait de la date "DateDA" et de la forme "14/02/2005".

Voici mon problème:
Dans le sript ci-desous je n'arrive pas à faire prendre à ma variable "budget" après "INSERT INTO" la valeur budget déclarée dans "Affectation du champ"

Pouvez vous m'aider ?
Merci d'avance à vous tous
-----------------------------------------------------------------

fichier = "E:\DPR\MGR\LOM\GMAO\Budget\" & "FG2005-Ligne" & ligneBud & ".xls"

Set source = New ADODB.Connection
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & fichier & ";" & _
"extended properties=""Excel 8.0;"""

'Recherche N° Mois
Dim Mois As String
Mois = Mid(DateDA, 4, 2)

'Affectation du nom du champ
Dim budget As String
budget = "db_budget" & "_" & Mois




''texte_SQL = "INSERT INTO db_budget (Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"

texte_SQL = "INSERT INTO budget (Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"

'Insertion données
Set externe = New ADODB.Recordset
Set externe = source.Execute(texte_SQL)

source.Close

 

[Pierre]

Petite erreur suite à de nombreux essais, le numéro du mois doit être déclaré comme ceci

Dim Mois As Variant au lieu de String

'Recherche N° Mois
Dim Mois As Variant
Mois = Mid(DateDA, 4, 2)

mais ceci ne résoud toujours pas mon problème

Merci à vous

 

[Pierre]

Mais oui c'est bien sur,
Voici la solution pour ce qui pourraient être interréssé.
C'est évidant, surtout une fois trouvé


texte_SQL = "INSERT INTO" & " " & budget & " " & "(Numéro,Date_DA,Descriptif,NumCde,Montant_DA,Oui) VALUES ('" & (valeur1) & "','" & (Date_DA) & "','" & (valeur3) & "','" & (valeur4) & "','" & (valeur5) & "','" & (valeur6) & "')"

Bonne journée au Forum

 

[Pierre]

J'ai un autre problème,
Je souhaite donner à "valeur5" le format numérique et non le format texte dans la déclaration "texte_SQL", sachant qu'à la saisie cette valeur est déjà numérique mais à l'arrivée dans le fichier fermé elle se retrouve en format texte.

Merci d'avance pour votre aide