Bonjour à Tous,
Décidement j'ai du mal avec VBA ... J'ai écrit le code ci-dessous qui fonctionne mais me donne les formules contenues dans la plage source et non les valeurs .... Quelqu'un peut me donner un coup de main svp ... J'urge ! Merci d'avance,
JPierre
Sub CodifOp()
'
'a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".
'b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille
'"Patrimoine" du fichier "Opérations".
' CodifOpe Macro
Dim Wks As Worksheet
Dim LigneDestination As Long
Set Wks = ThisWorkbook.Sheets("Prospect")
'Ouverture du fichier destination
Workbooks.Open Filename:="X:\EROLA\Opérations.xlsx"
'Recherche de la première ligne vide Opérations
LigneDestination = Sheets("Patrimoine").Cells(Rows.Count, "B").End(xlUp).Row + 1
'Ecrire ligne sur Opérations
Wks.Range("AN7:BG7").Copy Sheets("Patrimoine").Range("B" & LigneDestination)
End Sub
Décidement j'ai du mal avec VBA ... J'ai écrit le code ci-dessous qui fonctionne mais me donne les formules contenues dans la plage source et non les valeurs .... Quelqu'un peut me donner un coup de main svp ... J'urge ! Merci d'avance,
JPierre
Sub CodifOp()
'
'a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".
'b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille
'"Patrimoine" du fichier "Opérations".
' CodifOpe Macro
Dim Wks As Worksheet
Dim LigneDestination As Long
Set Wks = ThisWorkbook.Sheets("Prospect")
'Ouverture du fichier destination
Workbooks.Open Filename:="X:\EROLA\Opérations.xlsx"
'Recherche de la première ligne vide Opérations
LigneDestination = Sheets("Patrimoine").Cells(Rows.Count, "B").End(xlUp).Row + 1
'Ecrire ligne sur Opérations
Wks.Range("AN7:BG7").Copy Sheets("Patrimoine").Range("B" & LigneDestination)
End Sub