importer données vers autre fichier excel automatiquement

importer données vers autre fichier excel automatiquement - VB/VBA/VBS - Programmation

Marsh Posté le 04-02-2016 à 15:49:21    

Bonjour à tous,
 
J'ai deux fichier excel source, l'un nommé "bonjour_31/08/2015" et l'autre "salut_31/08/2015" et un fichier destination nommé "groupe_31/08/2015". Je souhaite que les cellules A2 et B4 du fichier "bonjour_31/08/2015" ainsi que les cellules C8 et E12 du fichier "salut_31/08/2015" intègrent respectivement les cellules A3, B3 et A4 et B4 du fichier "groupe_31/08/2015".  
 
Mais ce n'est pas tout!! Puisque dans quelques semaines les fichiers "groupe_31/08/2015","bonjour_31/08/2015" et "salut_31/08/2015" seront copier/coller et renommé respectivement "groupe_31/10/2015","bonjour_31/10/2015","salut_31/10/2015". Je souhaite que le nouveau fichier "groupe_31/10/2015" aille chercher automatiquement les mêmes cellules (les nombres à l'intérieur de ces cellules auront changer) dans les fichiers " bonjour_31/10/2015","salut_31/10/2015".  
 
J'espere que vous avez réussi à me comprendre!!
 
Je souhaite savoir si cela est tout d'abord possible et si oui avez-vous des solutions ou des pistes à me donner.
 
Je vous remercie par avance.

Reply

Marsh Posté le 04-02-2016 à 15:49:21   

Reply

Marsh Posté le 05-02-2016 à 14:48:18    

Salut,
 
 
Alors, on va le faire par étape :
 
Pour récupérer le nom du fichier en cours  

Code :
  1. =STXT(CELLULE("nomfichier" );TROUVE("[";CELLULE("nomfichier" ))+1;TROUVE("]";CELLULE("nomfichier" ))-TROUVE("[";CELLULE("nomfichier" ))-1)


 
Sous réserve qu'il n'y ait pas d'autre "_" ni "." dans le nom du chemin, la date qui change devient :

Code :
  1. =STXT(CELLULE("nomfichier" );TROUVE("_";CELLULE("nomfichier" ))+1;TROUVE(".";CELLULE("nomfichier" ))-TROUVE("[";CELLULE("nomfichier" ))-1)


 
Sinon, il va falloir d'abord isoler le nom du fichier à l'aide de la première formule et refaire le traitement sur ce nom pour ne prendre que la date.
 
Ensuite, par exemple, pour la cellule A3 du fichier groupe_31/08/2015

Code :
  1. ="[bonjour_"&STXT(CELLULE("nomfichier" );TROUVE("_";CELLULE("nomfichier" ))+1;TROUVE(".";CELLULE("nomfichier" ))-TROUVE("[";CELLULE("nomfichier" ))-1)&".xlsx]"&Feuil1!$A$2


 
A adapter ensuite pour chaque cellule, feuille et fichier.
 
Enfin, je pense que tu as saisi l'idée ... :lol:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed