je vient d'essayer et mais je comprend pas trop comment renseigner la macro d'en dessous
'le classeur doit être ouvert. Adapter le nom...
Set Cls = Workbooks("chiffre.xls")
exemple je doit mettre quoi comme info sur ce paragraphe
merci
Sub Enregistrer()
Dim Cls As Workbook
Dim Lgn As Long
'le classeur doit être ouvert. Adapter le nom...
Set Cls = Workbooks("chiffre.xls")
'en feuille "Feuil1". Adapter le nom...
With Cls.Worksheets("Feuil1")
'première ligne vide en colonne A
Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'inscrit les valeurs de A1 et B6 de feuille "Feuil1" du classeur actif. Adapter le nom...
.Range("A" & Lgn).Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
.Range("B" & Lgn).Value = ThisWorkbook.Worksheets("Feuil1").Range("B6").Value
End With
End Sub