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

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  [EXCEL] enregistrer chaque feuille de calcul dans un autre fichier

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[EXCEL] enregistrer chaque feuille de calcul dans un autre fichier

n°2784662
stef_dober​mann
Personne n'est parfait ...
Posté le 09-06-2008 à 12:52:23  profilanswer
 

Bonjour,
 
Je ne sais pas si je suis dans la bonne catégorie, sinon  merci au Modérateur de me tranférer.
 
Voila je crois que mon titre est accès évocateur.
pour rappelle :
j'ai plusieurs fichiers Excel avec environ 60 feuilles de calcul chacun. Je voudrais ressortir chaque feuille de calcul pour les avoir au format PDF.
 
En ce qui concerne le PDF, j'utilise PDFcreator. (sauf si vous m'en conseillez un autre.)
mais comment faire pour imprimer chaque feuille de calcul (sans devoir faire 120 fois ou plus la même manipulation.)
 
j'ai essayé de faire une macro, mais là ca fait longtemps que je n'utilise plus ce langage, si quelqu'un pouvait me donner un coup main (ou de clavier ;) ) se serais bien aimable.
Voici la dite macro :

Code :
  1. Set appExcel = CreateObject("Excel.Application" )
  2.     appExcel.Workbooks.Open Filename:="E:\rayon inform\xx SAV\procedure_sav.xls"
  3.     Dim feuille As Object
  4.     For Each feuille In appExcel.Sheets
  5.         Workbooks.Add.SaveAs Filename:=feuille.Name + ".xls"
  6.     Next feuille


mais avec ça, je n'ai que le classeur qui est créer avec le nom correct de la feuille mais sans les données à l'intérieur .
 
Edit : topic fini, problème résolu :)
Edit 2 :Topic fermé trop vite :(


Message édité par stef_dobermann le 10-06-2008 à 12:16:37

---------------
Tout à commencé par un rêve...
mood
Publicité
Posté le 09-06-2008 à 12:52:23  profilanswer
 

n°2784723
stef_dober​mann
Personne n'est parfait ...
Posté le 09-06-2008 à 17:49:01  profilanswer
 

Permettez-moi de faire un UP :)
il doit bien y avoir des pro de VBA dans le forum


---------------
Tout à commencé par un rêve...
n°2784852
Idoine
Posté le 10-06-2008 à 01:05:10  profilanswer
 

Je ferais ça, perso (dans une macro dans Excel) :

Code :
  1. Dim LeClasseur as Workbook
  2.     Dim LeChemin as String
  3.     LeChemin="E:\rayon inform\xx SAV\"     'pour enregister dans le dossier en question
  4.     Set LeClasseur=Workbooks.Open (Filename:="E:\rayon inform\xx SAV\procedure_sav.xls" )
  5.     Dim Lafeuille As WorkSheet
  6.     For Each Lafeuille In LeClasseur.Worksheets
  7.         Lafeuille.Printout ActivePrinter:="A remplacer par le nom de l'imprimante PDFCreator telle qu'elle apparaît dans Imprimantes et télécopieurs", PrintToFile:=True, PrToFileName:=LeChemin & Lafeuille.Name & ".pdf"
  8.     Next
  9.     LeClasseur.Close


Message édité par Idoine le 10-06-2008 à 01:10:57
n°2784873
stef_dober​mann
Personne n'est parfait ...
Posté le 10-06-2008 à 02:59:32  profilanswer
 

merci, je vais essayer ça :)


---------------
Tout à commencé par un rêve...
n°2784955
stef_dober​mann
Personne n'est parfait ...
Posté le 10-06-2008 à 11:43:41  profilanswer
 

Respect, j'ai pensé à tous sauf au plus simple.
merci pour ton aide préciseuse :jap:


---------------
Tout à commencé par un rêve...
n°2784960
stef_dober​mann
Personne n'est parfait ...
Posté le 10-06-2008 à 12:16:08  profilanswer
 

Arf, j'ai crié victoire trop vite.
 
En effet le script parcours bien le fichier et chaque feuille de calcul on voit aussi la tentative d'impression, mais le fichier généré n'est pas lisible par Adobe.


---------------
Tout à commencé par un rêve...
n°2784964
SuppotDeSa​Tante
Aka dje69r
Posté le 10-06-2008 à 12:26:15  profilanswer
 

Bonjour
 
Il ne faut pas imprimer dans un fichier plus au format pdf... Un fichier post script avec une extension pdf, reader ou acrobat auront du mal a le lire....
 
C'est pdf creator qui va créer le fichier.
 
A toi de parametrer pdf creator pour l'autosave (Chemin de sauvegarde, construction du nom du fichier etc.)
 
Ensuite tu reprends le code de Idoine et tu enleves les infos d'impressions dans un fichier.
 
Cordialement


Message édité par SuppotDeSaTante le 10-06-2008 à 12:28:20

---------------
Soyez malin, louez entre voisins !
n°2784979
stef_dober​mann
Personne n'est parfait ...
Posté le 10-06-2008 à 14:01:35  profilanswer
 

Bonjour,
 
Merci pour l'information, ça marche nickel, les PDF sont lisible.


---------------
Tout à commencé par un rêve...

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  [EXCEL] enregistrer chaque feuille de calcul dans un autre fichier

 

Sujets relatifs
Problème E\s pour fichier + de 4go sur NTFS ?Création Graphique Excel précis
Rendre un certain type de fichier caché par défaut?Excel: lien vers fichier
[Excel] Mettre plusieurs colonnes à la suite sur 1 seule colonne [excel] question pour faire une formule sous excel
fichier du type 18exmdnk52.exe dans mon dossier tempProbleme sous excel
[Office Excel 2003] Aide, séparateur de cellules ? 
Plus de sujets relatifs à : [EXCEL] enregistrer chaque feuille de calcul dans un autre fichier

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.044 secondes

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