Bonjour amis xldiens
J'ai abandonné mon idée de travailler dans un classeur fermé, j'utilise donc le code suivant pour récupéer mes données et ouvrir mon classeur cible :
Je sélectionne ensuite la première ligne vide et sauvegarde son numéro dans la variable numligne.
J'aurais aimé savoir comment on peut, à l'aide de dette variable, définir les cellules cibles pour insérer les valeurs récupérées dans la première partie de la macro.
Merci par avance
J'ai abandonné mon idée de travailler dans un classeur fermé, j'utilise donc le code suivant pour récupéer mes données et ouvrir mon classeur cible :
Code:
Sub ArchiveFact()
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 numligne As Integer
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")
'ouverture du classeur archive_facture2009.xls
Workbooks.Open "C:\Documents and Settings\Talzatior\Mes documents\Excel\Transfert de données par ADO dans un classeur fermé\Archives_test.xls"
Sheets(factures).Activate
'Cherche la premièr ligne vide
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Wend
'Récupère numéro de la première ligne vide
numligne = ActiveCell.Row
MsgBox "archivage de la facture n° " & fact_num & " effectué avec succès"
End SubJe sélectionne ensuite la première ligne vide et sauvegarde son numéro dans la variable numligne.
J'aurais aimé savoir comment on peut, à l'aide de dette variable, définir les cellules cibles pour insérer les valeurs récupérées dans la première partie de la macro.
Merci par avance