sharkantipav
XLDnaute Occasionnel
Bonjour,
J'ai la macro suivante qui ouvre un fichier, copie/colle un range ds mon fichier original puis le ferme
Il se passe que des fois au lieu de fermer le fichier x, c'est le fichier y qui se ferme.
Je suspecte que cela vient de "ActiveSheet" mais je n'arrive pas a le resoudre.
Merci bcp
J'ai la macro suivante qui ouvre un fichier, copie/colle un range ds mon fichier original puis le ferme
Code:
'open basket
FilePath = Application.GetOpenFilename("Text Files (*.xlsx), *.xlsx")
If FilePath <> False Then
Range("B3").Value = FilePath
End If
Dim x As Workbook
Dim y As Workbook
'## Open both workbooks first:
Set x = Workbooks.Open(Range("B3").Value)
Set y = ThisWorkbook
Dim endC As String
endC = x.ActiveSheet.Range("A2").End(xlDown).Row + 2
'Now, copy what you want from x:
x.ActiveSheet.Range("A1:G" & endC).Copy
'Now, paste to y worksheet:
y.Sheets("Basket").Range("A1").PasteSpecial
'Close x:
x.Close
Sheets("Basket").Range("A2").Select
Il se passe que des fois au lieu de fermer le fichier x, c'est le fichier y qui se ferme.
Je suspecte que cela vient de "ActiveSheet" mais je n'arrive pas a le resoudre.
Merci bcp