Bonjour,
J'essaie de copie des lignes d'un classeur fermer vers le classeur actuellement ouvert (travail)
Un début de code que j'ai mis dans l'onglet Tresorerie
celui ci est actif dès l'ouverture de l'onglet Tresorerie du classeur ouvert.
Pouvez-vous me dire pourquoi ça ne fonctionne pas ?
J'espère que je suis clair dans la description de ce que je veux faire.
Merci
J'essaie de copie des lignes d'un classeur fermer vers le classeur actuellement ouvert (travail)
Un début de code que j'ai mis dans l'onglet Tresorerie
Code:
Private Sub Worksheet_Activate()
Dim WbkSource As Workbook, LigSource As Integer, LigDest As Integer
Application.ScreenUpdating = False
Set WbkSource = Workbooks.Open("D:\Gestion\Gest-Fo.xls")
With ThisWorkbook.Sheets("Tresorerie")
LigDest = .Range("c15:025")
End With
With WbkSource .Sheets("Tresorerie")
LigSource = .Range("c6:016")
.Rows(LigSource).Copy
WbkSource.Sheets("Tresorerie").Range("C" & LigDest).Paste:=xlPasteValues
Application.CutCopyMode = False
End With
WbkSource.Close True
Set WbkSource = Nothing
Application.ScreenUpdating = True
End Sub
Pouvez-vous me dire pourquoi ça ne fonctionne pas ?
J'espère que je suis clair dans la description de ce que je veux faire.
Merci