Ouverture Classeur Excel Cpu 100 %

Re : Ouverture Classeur Excel Cpu 100 %

Bonsoir
Pour aider peut etre
le classeur veux s'ouvrir 2 fois car il est 2 fois dans le gestionnaire de taches

merci
stephane

Re : Ouverture Classeur Excel Cpu 100 %

bonjour a tous

quelqu'un a une idée

merci
steph

Re : Ouverture Classeur Excel Cpu 100 %

Bonjour

Ou la la, tu as l'air d'avoir de gros problèmes !

Bon 19 MO, c'est rien pour Excel mais cela dépend de nombreux facteurs.

Il faut voir;
Quel type de PC as tu (CPU, RAM, Place restant sur ler Disque dur)?
Quelles version d'Excel as tu?
As tu des macros?
As tu des filtres dans tes feuilles?
As tu de nombreuses formules?
Tu as peut être un bug. Est ce qu'avant il s'ouvrait normalement?

PS: Bonsoir JP

Re : Ouverture Classeur Excel Cpu 100 %

Bonsoir steph, Michel

J'ai eu ce problème une fois et sur un seul fichier, mais il pesais 1.5Mo, pas plus, donc pas trop de souci de ce côté.

Un peu agaçant, mais je pouvais faire des modifs. sur l'un ou sur l'autre, tout était enregistré et propre, et puis un jour, un seul fichier, le fichier fantôme avait disparu, pourquoi ? je n'en sais rien.

Sûr qu'avec 19 Mo cela doit poser problème à l'ouverture.

S'il n'y a pas de liens entre feuille, la solution serait de recopier une à une les plage et pour chaque feuille (pas les feuilles), , dans un nouveau classeur et voir le comportement. S'il y a des liens, vérifier qu'ils fonctionnent toujours.

Je ne peux guère dire plus.

A tester toutefois.

Bon courage.

Jean-Pierre

Re : Ouverture Classeur Excel Cpu 100 %

merci pour vos reponse
config 1024 ram
intel 3.2
disque dur 4go
excel 2000
40 macro et 15 userform
je me suis decider a utilier un duplicateur qui ma fait descendre a 5 mo mais sans les macros que je vais remettre manuellement et mon fichier s'ouvre en 2s en esperant que cela continue

par contre petit probleme j'ai plein de liason avec mon fichier d'origine
il y a t'il une solution pour aller modifier les formules en vba

merci encore

stephane

Re : Ouverture Classeur Excel Cpu 100 %

re
une autre info
apparent s'est l'affichage zoom qui a foutu le souc j'ai jouer pas mal avec

a+

Re : Ouverture Classeur Excel Cpu 100 %

Re steph,

Qu'appelle-tu un duplicateur, cela m'intéresse... ?

Ne pas oublier qu'excel a une très grande mémoire et qu'il enregistre tout, même si l'on supprime après... peut-être que ton histoire de zoom s'y est rajoutée...

A te lire.

Jean-Pierre

Re : Ouverture Classeur Excel Cpu 100 %

re jp
le lien pour le dupicateur
dégraissage
a+

Re : Ouverture Classeur Excel Cpu 100 %

Re steph,

Merci pour le lien que je ne connaissais pas.

Je regarde...

Bonne nuit.

Jean-Pierre

Re : Ouverture Classeur Excel Cpu 100 %

Bonjour à tous

par contre petit probleme j'ai plein de liason avec mon fichier d'origine
il y a t'il une solution pour aller modifier les formules en vba

Cliquez pour agrandir...

Peut-être une de explcations (perso je n'aime pas "Pleins de liaisons").

steph : tiens nous au courant, cela peut intéressé d'autres personnes.

Re : Ouverture Classeur Excel Cpu 100 %

LA DEMARCHE QUI MA PERMIS DE PASSER DE 20MO A 5MO avec un fichier qui s'ouvre en 2 s au lieu de 20 minutes
a+ steph



d'abort utiliser duplicateur v2 de galopin

puis le code de ninbihan ou findlinks eventuellement
pour changer les liasons
------------------------------------------------------------

Sub changeliaison()
Dim Liaison As Variant

For Each Liaison In ActiveWorkbook.LinkSources
ActiveWorkbook.ChangeLink Name:=Liaison, newname:=ActiveWorkbook.Name, Type:=xlExcelLinks
Next Liaison
----------------------------------------------------------------------
si il en reste aller dans edition liason et supprimer manuellement

pour copier les plages sur nouveau classeur

utiliser le code
de robert
juste 2 remarques
si dans definir il y a ref= le code plante , logique
la plage zone impression s'est transformé en print area ,mais bon c'est pareil

---------------------------------------------------------------
Sub Macro1()
Dim x As Byte 'déclare la variable x
Dim cl As Workbook 'déclare la variable cl (CLasseur)
Dim noms As Names 'déclare la variable noms
Dim ong As String 'déclare la variable ong (ONGlet)
Dim ad As String 'déclare la variable ad (ADresse)
Dim n As String 'déclare la variable n (Nom)

Application.ScreenUpdating = False 'masque les changements à l'écran

Set cl = Workbooks("ton_nouveau_classeur.xls") 'définit la variable cl (à adapter à ton cas)
Set noms = ThisWorkbook.Names 'définit la variable noms (l'ensemble des plages nommées de ce classeur)

For x = 1 To noms.Count 'boucle sur toutes les plages nommé de ce classeur
Application.Goto Reference:=Range(noms(x)) 'sélectionne la plage nommée
ong = ActiveSheet.Name 'définit la variable ong
ad = noms(x).RefersToRange.Address 'définit la variable ad
n = noms(x).Name 'définit la variable n
cl.Sheets(ong).Range(ad).Name = n 'nomme la plage du nouveau classeur
Next x 'prochaine plage nommé de la boucle