Mise à jour fichier fermé

Re : Mise à jour fichier fermé

Bonjour Pierre31 et le forum,

Un essai pour transférer des données d'un fichierA vers un FichierB fermé.

Les données à transférer peuvent être sur une ou plusieurs lignes du tableau.

Re: Re : Mise à jour fichier fermé

Bonjour CBernardT,

Merci pour ta solution, celle-ci fonctionne mais dans le cas d'une mise à jour d'une liste. Dans mon cas je dois mettre à jour des données d'enregistrements déjà existants. J'ai donc fini par trouver la solution suivante

Sub miseAJour_Enregistrement()
Dim Cn As ADODB.Connection
Dim Fichier As String, Feuille As String, strSQL As String
Dim Clef As String
Dim TypeInterv As String
Dim DateEffect
Dim NumCde As String

Fichier = "C:\Documents and Settings\Q0568\Bureau\ESSAI\Fermé.xls"

Feuille = Range("B7").Value
CodeDoc = Range("B1").Value
TypeInterv = Range("B4").Value
DateEffect = Range("B5").Value
NumCde = Range("D2").Value

Set Cn = New ADODB.Connection
With Cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Fichier & "; ReadOnly=False;"
.Open
End With
'Met à jour la valeur du "Data3" si le Champ "Clef" correspond à la variable "CodeDoc"
strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data3 = '" & TypeInterv & "' WHERE Clef = '" & CodeDoc & "'"

Cn.Execute strSQL

strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data4 = '" & DateEffect & "' WHERE Clef = '" & CodeDoc & "'"

Cn.Execute strSQL

strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data5 = '" & NumCde & "' WHERE Clef = '" & CodeDoc & "'"

Cn.Execute strSQL

Cn.Close
Set Cn = Nothing



End Sub

Dans cet exemple je met à jour 3 données d'un enregistrement existant dans mon fichier fermé.

Bonne journée.

Cordialement
Pierre

Re : Mise à jour fichier fermé

Bonjour Pierre31 et le forum,

Excellent travail que je vais conserver pour une occasion 🙂

Re: Re : Mise à jour fichier fermé

De nouveau bonjour à toutes et tous,

J'ai de nouveau un problème. Lorsque le tableau de base de données du fichier fermé ne commence pas en ligne 1 mais en ligne (x), pour moi ligne 6, la solution ci-dessous ne fonctionne pas

strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Data3 = '" & TypeInterv & "' WHERE Clef = '" & CodeDoc & "'"

car l'entête de colonne "Clef" est en cellule "A6".

Comment peut-on dans ce cas, faire en sorte que la recherche soit effectuée a partir d'une plage autre que la ligne 1 ?

D'avance merci pour votre coopération.

Cordialement

Pierre