Bonjour le forum,
Je dispose actuellement d'une macro qui me permet de copier des données via une msgbox:
Private Sub CommandButton1_Click()
Select Case MsgBox("Voulez-vous ouvrir le classeur ''Macro date.xls'' ?", vbYesNo)
Case vbYes
Workbooks.Open Filename:="C:\Documents and Settings\Dr Banner\Bureau\Macro date.xls"
Workbooks("Macro date.xls").Sheets("Feuil1").Range("C1:C4") = _
Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1:A4").Value
Case vbNo
Exit Sub
End Select
End Sub
J'aimerais l'adapter, en effet je ne veux pas qu'elle prenne des valeur fixe mais plutot les dernieres valeurs complétées avant une ligne vide.
Quelqu'un aurait une idée?
Cordialement
Je dispose actuellement d'une macro qui me permet de copier des données via une msgbox:
Private Sub CommandButton1_Click()
Select Case MsgBox("Voulez-vous ouvrir le classeur ''Macro date.xls'' ?", vbYesNo)
Case vbYes
Workbooks.Open Filename:="C:\Documents and Settings\Dr Banner\Bureau\Macro date.xls"
Workbooks("Macro date.xls").Sheets("Feuil1").Range("C1:C4") = _
Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1:A4").Value
Case vbNo
Exit Sub
End Select
End Sub
J'aimerais l'adapter, en effet je ne veux pas qu'elle prenne des valeur fixe mais plutot les dernieres valeurs complétées avant une ligne vide.
Quelqu'un aurait une idée?
Cordialement