Transfert de données

Bonjour à toutes et à tous,

j'espère que vous allez bien dans cette période difficile.

J'ai rencontré un problème lors de ma création de mon fichier Excel. Mon fichier a pour but de faire la saisie des nouvelles données et les envoyer vers ma base de données (un autre classeur). j'ai réussi en premier lieu d'effectuer la première partie qui consiste a faire la saisie des données. je suis bloqué à la partie suivante qui serve au transfert des données vers un autre classeur sans écraser les données existantes .

voici le code que j'ai créé qui ne fonctionne pas "CommandButton3_Click":

Workbooks("TAbleau de bord Base SIG.xlsm").Sheets("Feuil1").Range("A3").CurrentRegion.Offset(1, 0).Copy
Workbooks("Test_transfert.xlsx").Worksheets("Feuil1").Range("A1").End(xlUp).Row 1

je serais très reconnaissant si vous pouvez m'aider

cordialement.

Bonjour,

avant de faire un test, ceci m'interpelle

Range("A1").End(xlUp)

si tu pars de A1 tu n'iras pas beaucoup plus haut !

Range("A" & rows.count).End(xlUp)

Remets bien le bon chemin_base et le bon nom de fichier que le forum a modifié lors du post

Sub test()

Dim chemin_base As String
Dim N As Workbook

chemin_base = "C:\Users\Michel\Downloads\Test_transfert.xlsx"

Set N = Application.Workbooks.Open(chemin_base)

Workbooks("tableau-de-bord-base-SIG.xlsm").Sheets("base_de_données").Range("A3").CurrentRegion.Offset(1, 0).Copy Destination:= _
    Workbooks("Test_transfert.xlsx").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

Merci beaucouuuuuuuuuup !!!!

ça marche.

prenez soin de vous.

si vous permettez j'ai encore une autres questions:
je souhaite effacer les données dans le fichier tableau de bord SIG une fois que le transfert a été fait

Merci d'avance.

Ajoute alors

Workbooks("tableau-de-bord-base-SIG.xlsm").Sheets("base_de_données").Range("A3").CurrentRegion.Offset(1, 0).ClearContents

Bonjour,

Merci.

Bonne journée

Bonjour,

Mon tuteur de stage m'a demander de faire le transfert des données que nous avons saisie dans le tableau vers une table qui est créer dans SQL server aussi.

ce qui fait les données vont êtres transférer vers deux tableau ( Excel et Table SQL). je ne sais pas comment faire, avez vous une idée sur ce point?

merci d'avance

j'ai trouver ce code sur internet, est ce que je peux le réajuster pour mon cas ?

Private Sub Transfert_Click()
Dim conn As ADODB.Connection

Dim RsSelect As New ADODB.Recordset

Dim sConnString, sSQL As String

On Error GoTo ErreurSQL ' si erreur alors on va dans la section ErreurSQL:

' chaine de connexion vers la base de données

sConnString = "Provider=SQLOLEDB;Data Source=EQX-PRD-R1SQL16.armony.net; Initial Catalog=QGIS_DUN;Integrated Security=SSPI;"

' Ouverture de la connexion

Set conn = New ADODB.Connection

conn.Open sConnString

RsSelect.CursorLocation = adUseClient

'Encapsulation dans une transaction (très important pour garantir l’intégrité des données en base)

conn.BeginTrans

' definition de l’ordre SQL

sSQL = « Select * from table »

'Execution de l'ordre SQL

RsSelect.Open sSQL, conn, adOpenStatic, adLockOptimistic, adCmdText

' Pas d’erreur, on valide la transaction

conn.CommitTrans

GoTo Suite

ErreurSQL:

conn.RollbackTrans 'la transaction s’est mal passée : on annule tout

Suite:
'fermeture de la connexion à la base de données
conn.Close

End Sub

Désolé, je ne connais pas bine ADODB, je laisse la place à d'autres.

Merci beaucoup encore une autre fois pour ton aide !!