Récupération automation entre fichiers

[Basile35]

Bonjour à tous,

en pièce jointe, je vous ai joins ma problématique...

J'ai plusieurs fichiers excels répartis en plusieurs sous dossier. Ces fichiers sont créés au fur et à mesure des semaines qui passent dans l'année. Ils ont chacun pour nom A S1; B S1; etc dans le dossier S1.
Jusqu'au dossier S56 avec A S56, B S56 etc.

Le fichier excel, situé dans le dossier racine, doit pouvoir extirper des données des fichiers situés dans les sous dossiers.

J'aimerais maintenant automatiser l'arrivée des données dans mon fichier synthèse.

Dans mon fichier synthèse, la cellule B2 contient : ='[A S1.xls]Feuil1'!$A$19

Comment recopier la formule automatiquement jusqu'à la cellule BE2 ( semaine 56 ) de manière à y trouver ='[A S56.xls]Feuil1'!$A$19 ?

Merci d'avance pour votre réponse,

Basile

 

[mth]

Re : Récupération automation entre fichiers

Bonjour,

Je te laisse essayer cette formule qui fonctionne chez moi, en B1 et recopiée vers la droite et vers le bas:

=INDIRECT("'C[COLOR=green]:\Documents and Settings\MTH\Bureau[/COLOR]\S"&COLONNE()-1&"\["&$A2&" S"&COLONNE()-1&".xls]Feuil1'!$A$19")

(partie en vert à adapter à ton chemin à toi bien sûr)

bon après-midi,

mth

 

[Basile35]

Re : Récupération automation entre fichiers

Merci bien 🙂

 

[tototiti2008]

Re : Récupération automation entre fichiers

Bonjour à tous,

une remarque en passant, ça fonctionne trés bien si le fichier est ouvert...

 

[mth]

Re : Récupération automation entre fichiers

re 🙂

bonjour tototiti, je viens de voir ton message et effectivement si c'est ça c'est que je n'ai pas réfléchi plus loin que le bout de mon nez 😱

As-tu une autre solution pour Basile? ou du VBA peut-être? je ne sais pas ....

Merci et @ +

m

 

[tototiti2008]

Re : Récupération automation entre fichiers

Bonjour mth,

je sais qu'il existe un macro complémentaire avec une fonction INDIRECT.EXT qui fonctionne même si le fichier est fermé... sinon, pas trop d'idée, mis à part VBA.
attendons de voir si Basile reviens, sinon c'est que ta solution lui convient.

 

[dominique35]

Re : Récupération automation entre fichiers

Bonjour à tous.

syntaxe pour vous connecter aux classeurs Excel 2007, formats OpenXML xlsx et xlsm:

Sub RequeteClasseurFerme_Excel2007()
Dim Cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Rst As ADODB.Recordset

'Définit le classeur fermé servant de base de données
Fichier = "C:\Documents and Settings\mimi\dossier\NomClasseur.xlsx"

'Nom de la feuille dans le classeur fermé'
NomFeuille = "Feuil1"
Set Cn = New ADODB.Connection

'--- Connexion ---'
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
End With

'-----------------... la requête ...--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing

End Sub

Voila