C
Chris
Guest
Salut,
voilà, je récupère des données sur le net qu'une méthode transforme du format html et tableau excel (ça c'est fourni avec le site)
Je récupère donc un classeur excel qui s'appelle en général "classeur1.xls" et qui contient un tableau de valeurs.
Seulement voilà, tant que je n'ai pas enregistré ce classeur sur mon dd, aucune macro lancée à partir d'un autre classeur (qui récupère ces valeurs et les archive) ne prend le "classeur1.xls" en compte.
Impossible de le selectionner, genre:
windows("classeur1.xls").activate etc...
C'est comme si le "classeur1.xls" n'existait pas...
Alors j'ai essayé une macro complémentaire :
Private Sub Workbook_Open()
Dim Msg, Style, Response
Msg = "Voulez vous lancer la Récup Compta ?"
Style = vbYesNo
Response = MsgBox(Msg, Style)
If Response = vbYes Then
[A6:E150].Copy
windows("Archivage.xls").activate
sheets("Matrice").select
[A1].paste
End If
End Sub
Mais là aussi ça coince : il bloque au niveau de [A6:E150].Copy ....
Là je capitule !
voilà, je récupère des données sur le net qu'une méthode transforme du format html et tableau excel (ça c'est fourni avec le site)
Je récupère donc un classeur excel qui s'appelle en général "classeur1.xls" et qui contient un tableau de valeurs.
Seulement voilà, tant que je n'ai pas enregistré ce classeur sur mon dd, aucune macro lancée à partir d'un autre classeur (qui récupère ces valeurs et les archive) ne prend le "classeur1.xls" en compte.
Impossible de le selectionner, genre:
windows("classeur1.xls").activate etc...
C'est comme si le "classeur1.xls" n'existait pas...
Alors j'ai essayé une macro complémentaire :
Private Sub Workbook_Open()
Dim Msg, Style, Response
Msg = "Voulez vous lancer la Récup Compta ?"
Style = vbYesNo
Response = MsgBox(Msg, Style)
If Response = vbYes Then
[A6:E150].Copy
windows("Archivage.xls").activate
sheets("Matrice").select
[A1].paste
End If
End Sub
Mais là aussi ça coince : il bloque au niveau de [A6:E150].Copy ....
Là je capitule !