Problème d'ouverture de fichiers excel

[Samos]

Bonjour,

j'ai un soucis au niveau de l'ouverture de 2
fichiers excel.
Chacun de ces fichiers font à peu près 5Mo
lorsque j'en ouvre un pas de soucis
mais quand j'ouvre le deuxieme (le premier etant tjr ouvert) j'ai un msg d'erreur qui apparait me disant que la mémoire est insuffisante.
j'ai fais plusieurs tests en rajoutant de la mémoire (jusqu'à 1Go DDR) mais tjr le meme message, j'ai egalement installé Office SP3
mais aucune amélioration.

Si quelqu'un avait une solution à ce problème
( il est pour moi impératif que ces 2 fichiers soient ouvert pour les exploiter ).
merci !

 

[gabriel]

Bonjour,
J'avais le meme problème j'ouvrais 2 fichiers
1 de 7 MO
1 de 34 Mo
voila ce que j'ai fais (Excel 2003 V.11.5612.5606)Le fichier le moins volumineux lance le plus volumineux...
-----------------------
Sub auto_open()
'
'masque toutes les barres et menus
Dim Cmdb As CommandBar
For Each Cmdb In Application.CommandBars
Cmdb.Enabled = False
Next Cmdb
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.CommandBars('Standard').Visible = False
Application.CommandBars('Formatting').Visible = False
Application.CommandBars('Drawing').Visible = False
Application.CommandBars('Forms').Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Workbooks.Open Filename:='C:\\suivi\\suivi NomFichier2.xls', Editable:=True
Windows('NomFichier.xls').Activate
Workbooks('NomFichier.xls').Sheets('Base').Activate
End Sub
J'ouvre le fichier de 7mo qui me lance le fichier de 34 mo...
Voilà j'espère que ca te serviras, pour moi ca fonctionne sans message d'erreur.

 

[Samos]

je te remercie !
je vais essayer ca tout de suite !
je te tiens au courant 😉

 

[Samos]

j'ai utilisé le bout de code que tu m'as refilé sous this.workbook.
Le soucis c'est que je n'ai plus mes onglets de mes differentes feuilles et de plus le message d'erreur est toujours là !
je te précise que j'utilise la version excel 2000
et quelques if...then pour l'affichage de données sur l'un de mes fichiers excel.

 

[gabriel]

Re Bonjour,
Essaye de lancer tes fichiers sans lancer de macro (tu les ouvrent avec la touche shift
enfoncée)
Passe les valeurs False en True pour rétablir tes options.

.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.CommandBars('Standard').Visible = True
Application.CommandBars('Formatting').Visible = True
Application.CommandBars('Drawing').Visible = True
Application.CommandBars('Forms').Visible = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Avec 1Go de ram tu ne devrais pas avoir de PB, le message est certainement du au code,
a voir ...
@+

 

[Samos]

ok apparemment le msg provient effectivement du code,
j'ai aligné trop de condition de type if...then
je vais voir pour minimiser tout ça !
en tout cas merci pour ton aide :side: