Bonjour à tous.
J'attaque le dernier jour et demi de mon stage, et dans ce court laps de temps, je dois mettre en place une solution excel me permettant de synthétiser des données.
Ces données, je les ai dans des classeurs excel (1 par jour), et j'aimerais lire ces classeurs fermés.
J'ai trouvé pas mal de sources sur le web comme ici, mais j'ai un peu de mal à m'adapter.
une vraie mine d'or ce site, sous catégorie "Lire".
J'essaye d'utiliser la méthode Excel4macro dans un code comme ceci:
Tout marche, sauf la ligne en rouge.
J'explique rapidement ce code:
Retour = Dir(leChemin & "2007\03\" & "*.xls")
J'affecte à la variable Retour le nom d'un classeur
Do While Retour <> ""
On boucle tant que Retour est différent de rien
MsgBox Retour
On affiche le nom du classeur.
Bon, tout ça, ça marche.
Mais là, erreur 1004.
Sinon, j'utiliserais la méthode de requêtage excel classeur fermé, et je récupèrerais toute ma feuille de données, sur laquelle je ferai mes traitements.
ça me dérange pas, mais si je peux apprendre à faire celle là avant, pourquoi pas ?
Est-ce que quelqu'un saurait et pourquoi ça ne marche pas ?
Merci d'avance,
Thomas
J'attaque le dernier jour et demi de mon stage, et dans ce court laps de temps, je dois mettre en place une solution excel me permettant de synthétiser des données.
Ces données, je les ai dans des classeurs excel (1 par jour), et j'aimerais lire ces classeurs fermés.
J'ai trouvé pas mal de sources sur le web comme ici, mais j'ai un peu de mal à m'adapter.
une vraie mine d'or ce site, sous catégorie "Lire".
J'essaye d'utiliser la méthode Excel4macro dans un code comme ceci:
Code:
Public Sub ChercheXLS()
Dim Retour As String
Retour = Dir(leChemin & "2007\03\" & "*.xls")
Do While Retour <> ""
MsgBox Retour
[COLOR="Red"]MsgBox ExecuteExcel4Macro("'" & leChemin & "2007\03\[" & Retour & "]" & "Synthese N & N-1" & "'!$A$1")[/COLOR]
Retour = Dir
Loop
End Sub
Tout marche, sauf la ligne en rouge.
J'explique rapidement ce code:
Retour = Dir(leChemin & "2007\03\" & "*.xls")
J'affecte à la variable Retour le nom d'un classeur
Do While Retour <> ""
On boucle tant que Retour est différent de rien
MsgBox Retour
On affiche le nom du classeur.
Bon, tout ça, ça marche.
Code:
[COLOR="Red"]MsgBox ExecuteExcel4Macro("'" & leChemin & "2007\03\[" & Retour & "]" & "Synthese N & N-1" & "'!$A$1")[/COLOR]
Sinon, j'utiliserais la méthode de requêtage excel classeur fermé, et je récupèrerais toute ma feuille de données, sur laquelle je ferai mes traitements.
ça me dérange pas, mais si je peux apprendre à faire celle là avant, pourquoi pas ?
Est-ce que quelqu'un saurait et pourquoi ça ne marche pas ?
Merci d'avance,
Thomas