Bonjour à tous,
Voilà je rencontre un problème que je n'arrive pas à résoudre :
Pas moyen d'avoir ma cellule A2 alors que si je remplace Worksheets("Feuil1").Select
par
Worksheets("test.Mikael").Select
La pas de problème la cellule est sélectionnée.
Je comprend pas quelqu'un as une idée ?
Voilà je rencontre un problème que je n'arrive pas à résoudre :
Code:
Private Sub CommandButton1_Click()
Var_Chemin = "I:\****\****\TTIS.xls"
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
Workbooks("TTIS.xls").Sheets("Feuil1").Copy Before:=Workbooks("test.Mikael.xls").Sheets("test.Mikael")
Workbooks("TTIS.xls").Close
Worksheets("Feuil1").Select
Range("A2").Select
End Sub
Pas moyen d'avoir ma cellule A2 alors que si je remplace Worksheets("Feuil1").Select
par
Worksheets("test.Mikael").Select
La pas de problème la cellule est sélectionnée.
Je comprend pas quelqu'un as une idée ?