Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2545 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  eclatement de fichier excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

eclatement de fichier excel

n°2245133
tanaka59
Posté le 05-12-2014 à 23:06:51  profilanswer
 

Bonsoir ,  
 
J'ai besoin d'un coup de main pour mettre en place un code VBscript pour éclater un fichier excel , et renvoyer des pages d'un fichier vers d'autres fichier excel.
 
Je m'explique , j'ai un programme robot qui me télécharge un fichier données chaque semaine avec une dizaine d'onglets. Certains onglets ont des données brutes (environs 7000 à 9000 lignes de données brutes).
 
Le fichier Excel de départ est un fichier zippé qu'un programme a auparavant téléchargé et dézippé.
 
Ici on je coince c'est que je dois travailler depuis l’extérieur du fichier et non de l'intérieur.
 
En somme la chaine de traitement donne  
 
1) fichier A.zip
2) fichier dézippé A.xls
3) fichier A.xls avec les onglets 1,2,3,4 ...
4) éclatement du fichier A en autant de fichier que d'onglets
5) onglet 1 donne fichier B , onglet 2 donne fichier C ...
 
Voici un bout de code que j'ai déjà "bricolé " , problème c'est du mixe de VBA et VB et je souhaite exclusivement du VBS ou VB.
 
[VB]sub eclateur_de_fichier()
 
dim classeur1 ,  classeur2, classeur3, classeur4, classeur5  
dim feuille1 ,   feuille2 , feuille3 , feuille4 , feuille5  
dim chemin1, chemin2, chemin3  
dim requete1 , requete2 , requete3
 
chemin1 = "D:\fichier_a_eclater.xls" ' nom du fichier de depart a eclater
 
chemin2= "D:\rep_test\fichier_de_fin.csv" ' nom du fichier de destination ou ranger les feuilles
 
Set classeur1 = CreateObject("Workbook" ) ' creation du classeur1 avec un seul onglet
 
xlApp.SheetsInNewWorkbook = 1 ' on crée un seul onglet
 
'On créer l objet onglet dans le nouveau classeur créé
 
Set feuille1 = classeur1.Worksheets(1)
 
'On affecte un nom aux onglets
     
feuille1.Name = "DONNEES_TRANSIT"[/VB]
 
A noter également le code VB doit être exécuté à l’extérieur du fichier.
 
Merci de m'aiguiller  :hello:  
 
 

mood
Publicité
Posté le 05-12-2014 à 23:06:51  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  eclatement de fichier excel

 

Sujets relatifs
Macro Excel supprimer une ligneGestion de Base de données partagées Excel
Fichier .lua besoin d'aideVBA et écriture en APPEND d'un fichier
HELP please : supprimer ligne excel si cellule = 2, 3,4 ou 5[VBA] [Excel 2010] Retourner un tableau de tableaux dynamiques
[powershell] se positionner sur un ligne precise dans fichierPowerShell - Récupérer le répertoire d'un fichier donné
Ecriture et suppression dans un fichierImporter un fichier txt et tracer un graphe
Plus de sujets relatifs à : eclatement de fichier excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR