O
Oliv
Guest
Bonjour à tous,
J'ai un petit problème avec excel. Sur plusieurs de mes feuilles, l'ordinateur semble très lent alors qu'il n'ya pa plus de données sur celles ci que sur d'autres.
Les feuilles occasionnant cette lenteur sont beaucoup travaillées suite à la mise en route d'un programme VBA. Entre autre, ces feuilles sont intégralement effacées au début du programme pour etre mise à jour par la suite via l'application de ce meme programme.
Même quand le programme VB a fini de tourner (affichage du message traitement terminé), le déplacement de cellules en cellules des feuilles 'lentes' se fait difficilement.
Je pense que quelque chose continu à tourner derriere mais je ne sai pa quoi.
De plus, le fait de vouloir créer un programme permettant de générer 3 nouveaux fichiers excel spécifiques comprenant chacun 1 des onglets du fichier excel principal semble particulièrement ralentir mon ordinateur (et arrive parfois même à le faire planter). Pour se faire j'effectue un copié collé de ces onglets vers mes nouveaux fichiers.
Sub Generation3propo()
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('Nantes').Select
Sheets('Nantes').Copy Before:=Workbooks('Classeur1').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoNantes.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('Rennes').Select
Sheets('Rennes').Copy Before:=Workbooks('Classeur2').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoRennes.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('LeMans').Select
Sheets('LeMans').Copy Before:=Workbooks('Classeur3').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoLeMans.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Merci pour votre aide
J'ai un petit problème avec excel. Sur plusieurs de mes feuilles, l'ordinateur semble très lent alors qu'il n'ya pa plus de données sur celles ci que sur d'autres.
Les feuilles occasionnant cette lenteur sont beaucoup travaillées suite à la mise en route d'un programme VBA. Entre autre, ces feuilles sont intégralement effacées au début du programme pour etre mise à jour par la suite via l'application de ce meme programme.
Même quand le programme VB a fini de tourner (affichage du message traitement terminé), le déplacement de cellules en cellules des feuilles 'lentes' se fait difficilement.
Je pense que quelque chose continu à tourner derriere mais je ne sai pa quoi.
De plus, le fait de vouloir créer un programme permettant de générer 3 nouveaux fichiers excel spécifiques comprenant chacun 1 des onglets du fichier excel principal semble particulièrement ralentir mon ordinateur (et arrive parfois même à le faire planter). Pour se faire j'effectue un copié collé de ces onglets vers mes nouveaux fichiers.
Sub Generation3propo()
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('Nantes').Select
Sheets('Nantes').Copy Before:=Workbooks('Classeur1').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoNantes.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('Rennes').Select
Sheets('Rennes').Copy Before:=Workbooks('Classeur2').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoRennes.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('LeMans').Select
Sheets('LeMans').Copy Before:=Workbooks('Classeur3').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoLeMans.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Merci pour votre aide