FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Enregistrer un grand nombre de sheets
 

Enregistrer un grand nombre de sheets

Il y a 270 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Enregistrer un grand nombre de sheets
 
adri1l
Plus d'informations
n°23940
04-08-2006 à 17:11:53

Hey!
 
Je fais tourner une macro qui cree une copie d'une des pages excel, l'enregistre en .txt sous un repertoire definit puis la ferme .
 
Lors de la creation de cette copie le nom par defaut est Book1, Book2, Book3, ...  etc.
 
Le programme se bloque a Book101.  
 
Est on limite dans le nombre de sheets crees pendant que le programme tourne?
 
Comment donner un nom a cette copie lors de sa creation (eviter les Book1) avant qu'elle ne soit enregistree?
 
Merci beaucoup!


Message édité par adri1l le 07-08-2006 à 14:12:11

zeb
Profil : Modérateur libre
Plus d'informations
n°23944
04-08-2006 à 23:15:58

Citation :

Comment donner un nom a cette copie lors de sa creation

Comment crées-tu cette "copie" ?
 

adri1l
Plus d'informations
n°23960
07-08-2006 à 09:47:45

Simplement par:

Code :
  1. Sheets("FORM" ).Select
  2. Sheets("FORM" ).Copy


puis je l'enregistre.
 
Merci zeb.


Message édité par adri1l le 07-08-2006 à 14:12:43
zeb
Profil : Modérateur libre
Plus d'informations
n°23964
07-08-2006 à 11:03:09

(Merci d'utiliser les balises CODE, même pour deux lignes)  EDIT: :jap:  
 
Inutile :

Sheets("FORM" ).Select


Citation :

puis je l'enregistre.

Ben oui, mais donne la suite...


Message édité par zeb le 07-08-2006 à 14:51:12
adri1l
Plus d'informations
n°23972
07-08-2006 à 11:45:14

Code :
  1. sub test()
  2. chemin = Sheets("BO" ).Range("chemin" )
  3. dossier = Sheets("BO" ).Cells(8, 7)
  4. nomtxt=Sheets("BO" ).Cells(9, 7)
  5. lettredossier=Sheets("BO" ).Cells(10, 7)
  7. Sheets("FORM" ).Select
  8. Sheets("FORM" ).Copy
  9. chemin = "C:\Documents and Settings\adri\My Documents\Programme\TOTO"
  10.                                                                                
  11. ChDir chemin
  12.                                                                                 ActiveWorkbook.SaveAs Filename:= _
  13. chemin & "\" & dossier & "\" & lettredossier & "\" & nomtxt, FileFormat:=xlText _
  14.                                                                                     , CreateBackup:=False
  15.                                                                                
  16. ActiveWorkbook.Close savechanges:=False
  17. Sheets("BO" ).Select
  18. ThisWorkbook.Activate
  19. end sub


 
Je viens de tester la meme chose sans la copie, c'est a dire en selectionnant la derniere sheet puis enregistrer le workbook. Au bout de 101 enregistrements le programme se bloque.
 
Comme il s'agit d'une creation de base de donnees, est ce qu'il n'y aurait pas des restrictions sur le nb d'importations d'internet?
 
Merci zeb.


Message édité par adri1l le 07-08-2006 à 15:41:44
zeb
Profil : Modérateur libre
Plus d'informations
n°23975
07-08-2006 à 11:58:35

http://site.voila.fr/zulu-echo-bravo/img/balisecodeppc.png
 
Tu as deux posts à modifier :
 
http://site.voila.fr/zulu-echo-bravo/img/newbie_oups_je_corrige.png
 
Après je m'énerve...

adri1l
Plus d'informations
n°23976
07-08-2006 à 12:09:36

Oups desole,
 
Voila le code utilise:
 

Code :
  1. sub test()
  3. chemin = Sheets("BO" ).Range("chemin" )
  4. dossier = Sheets("BO" ).Cells(8, 7)
  5. nomtxt=Sheets("BO" ).Cells(9, 7)
  6. lettredossier=Sheets("BO" ).Cells(10, 7)
  8. Sheets("FORM" ).Select
  9. Sheets("FORM" ).Copy
  10. chemin = "C:\Documents and Settings\adri\My Documents\Programme\TOTO"
  11.                                                                                
  12. ChDir chemin
  13. ActiveWorkbook.SaveAs Filename:= _
  14. chemin & "\" & dossier & "\" & lettredossier & "\" & nomtxt, FileFormat:=xlText _
  15. , CreateBackup:=False
  16.                                                                                
  17. ActiveWorkbook.Close savechanges:=False
  18. Sheets("BO" ).Select
  19. ThisWorkbook.Activate
  21. end sub

 
 
Je viens de tester la meme chose sans la copie, c'est a dire en selectionnant la derniere sheet puis en enregistrant le workbook. Au bout de 101 enregistrements le programme se bloque ?!
 
Comme il s'agit d'une creation de base de donnees, est ce qu'il n'y aurait pas des restrictions sur le nb d'importations d'internet?  
 
Merci !!


Message édité par adri1l le 07-08-2006 à 15:41:31
zeb
Profil : Modérateur libre
Plus d'informations
n°23980
07-08-2006 à 15:18:14

Rho.... Ce n'est pas SaveAs mais SaveCopyAs qu'il faut utiliser  :o  
 
 
Exercice : Lire la doc concernant ces deux fonctions, analyser l'erreur du code précédent et donner ici la soluce :D

Message cité 1 fois
adri1l
Plus d'informations
n°23993
08-08-2006 à 12:42:55

a écrit :

Rho.... Ce n'est pas SaveAs mais SaveCopyAs qu'il faut utiliser  :o  
 
 
Exercice : Lire la doc concernant ces deux fonctions, analyser l'erreur du code précédent et donner ici la soluce :D


 
Ca ne resoud pas le pb du nombre de copies (si je veux en absolument en faire une)  :pt1cable:  
 
J'ai fais un petit code test pour tester le nombre d'enregistrements que l'on peut faire:
 

Code :
  1. Sub test()
  2. Application.DisplayAlerts = False
  4. Sheets("FORM" ).Select
  5. chemin = Sheets("FORM" ).Range("chemin" )
  7. a = 1
  8. While a < 200
  10.     Sheets(2).Select
  11.     Range("A1" ) = a
  12.                                                                                  
  13.     ChDir chemin
  14.     ActiveWorkbook.SaveCopyAs chemin & "\" & a & ".txt"
  15.     Sheets("FORM" ).Select
  17. a = a + 1
  18. Wend
  19. End Sub


 
J'esperais retrouver dans les .txt que la valeur de a,
or ils sont plein de caracteres du type "ÐÏࡱá"   :sweat:  
 
Qu'est ce que je dois rajouter dans le code?
Merci ... :wahoo:

zeb
Profil : Modérateur libre
Plus d'informations
n°23995
08-08-2006 à 16:20:59

Rho.... Problème pour lire la doc ?  :sarcastic: En plus, tu l'as bien écris au début.
 
Ne recopie rien sans bien comprendre.
Pour ça et dans l'ordre :

  • Lire la documentation...
  • Réfléchir...
  • Demander de l'aide sur un forum. PPC par exemple :D

    Code :
    1. FileFormat:=xlText
adri1l
Plus d'informations
n°23997
08-08-2006 à 17:15:10

tu veux dire?
 

Code :
  1. ActiveWorkbook.SaveCopyAs (chemin & "\" & a & ".txt" )


 
ca ne passe tjs pas.. :heink:  
 
g toujours les "ÐÏࡱá "   :bounce:
et  

Code :
  1. ActiveWorkbook.SaveCopyAs (chemin & "\" & "tata" & ".txt" ), _
  2. FileFormat:=xlText, CreateBackup:=False


a trop d'arguments


Message édité par adri1l le 08-08-2006 à 17:47:03
zeb
Profil : Modérateur libre
Plus d'informations
n°24004
08-08-2006 à 22:40:13

Exercice pour zeb : Relire la doc avant de demander à Adri1 de la lire :whistle:
 
Alors je te le fais gratos ;) pour la peine :
Testé et approuvé :o  
Sans garantie pour autant ;)
 
( Tout ça parce que SaveAs et SaveCopyAs ne sont pas équivalentes et parce que Sheets(..).SaveAs sauvegarde tout le classeur :pfff: Mais pourquoi utiliser VBA !!! )
 

Code :
  1. Option Explicit
  3. Sub Cado()
  4.     Dim wb    As Workbook
  5.     Dim ws    As Worksheet
  6.     Dim alert As Boolean
  7.     Dim tmp   As String
  8.    
  9.     tmp = Environ("TEMP" ) & "\CLS_TMP.XLS"
  10.    
  11.     alert = Application.DisplayAlerts
  12.     Application.DisplayAlerts = False
  13.    
  14.     ' // Ouverture du classeur à copier
  15.     Set wb = Workbooks.Open(Filename:="Classeur_a_copier.xls", ReadOnly:=True)
  16.     ' // On enregistre le classeur dans une copie temporaire
  17.     wb.SaveCopyAs tmp
  18.    
  19.     ' // On ouvre le classeur temporaire
  20.     Set wb = Workbooks.Open(tmp)
  21.    
  22.     ' // On supprime toutes les feuilles inutiles.
  23.     ' // Comme ça, on est sûr que ce sera la bonne.
  24.     For Each ws In wb.Sheets
  25.         If ws.Name <> "Feuil2" Then ws.Delete
  26.     Next
  27.    
  28.     ' // On enregistre comme CSV
  29.     ' // Le classeur temporaire existe toujours sur le disque dur
  30.     ' // mais il est remplacé par la feuille CSV dans Excel
  31.     wb.SaveAs Filename:="FEUIL2.CSV", FileFormat:=xlCSV
  32.    
  33.     ' // On ferme la feuille CSV
  34.     wb.Close
  35.    
  36.     ' // On supprime le classeur temporaire du disque dur.
  37.     Kill tmp
  38.    
  39.     Set wb = Nothing
  40.    
  41.     Application.DisplayAlerts = alert
  42. End Sub
adri1l
Plus d'informations
n°24018
09-08-2006 à 13:13:59

C super ca tourne correctement. :wahoo:  
 
On est oblige de faire des copies en temp et non en .xls alors...
 
A retenir. ;)  
 
Merci beaucoup zeb !! :hello:

zeb
Profil : Modérateur libre
Plus d'informations
n°24022
09-08-2006 à 16:01:30

Euh, si, si. La copie est en XLS. Temp, c'est le dossier où est copié le fichier temporaire au format XLS. Pour t'en convaincre, exécute ce petit bout de code :

Msgbox Environ("TEMP" )


Ou alors, n'exécute pas la commande (Ligne 37)

Kill tmp


et va voir le fichier Environ("TEMP" ) & "\CLS_TMP.XLS". C'est bien un fichier Excel.
 
La transformation en texte (CSV), c'est ligne 31.
 
A méditer....

adri1l
Plus d'informations
n°24043
10-08-2006 à 16:05:45

Oui c'est ce que je voulais dire, :)  
 
On est oblige de passer par une copie temp du workbook en .xls pour eviter la limitation de copies de la page,
 
de supprimer toutes les pages-1,
 
pour enfin enregistrer cette copie en format voulu...  :ange:  
 
Hier encore mon programme s'est encore bloque a 86 .txt :sweat: , va falloir que je regarde encore de plus pres, j' ai des milliers de txt a faire... Tu ne serais pas au courant d'autres restrictions?
 
zeb
Profil : Modérateur libre
Plus d'informations
n°24052
10-08-2006 à 19:29:22

Citation :

d'autres restrictions ?


Je ne sais pas, c'est toi qui a mis le doigt sur celle-là :) !


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Enregistrer un grand nombre de sheets
 

Plan du forum
Forum MesDiscussions.Net, Version 2007.1.2
© 2000-2007 No1Dev
Page générée en 1.650 secondes
Annonces Google
Produits relatifs
Publicité
Sujets relatifs
voir tout
Actualités relatives
Les dernières actualités
voir tout
Les derniers tests
voir tout
Les ressources relatives
Les téléchargements