Discussion :

[nanie_38]

Bonjour,

J'ouvre un fichier txt délimité par des "!" dans un classeur xls avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Workbooks.OpenText Filename:=Path, _
    Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
    Space:=False, Other:=True, OtherChar:="!", FieldInfo:=Array(1, 1), _
    TrailingMinusNumbers:=True

Dans ce fichier il y a des formules . Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
!=B8-B9-B10!  ou
!=SOMME.SI(A2:A5;"Sous Total Client";B2:B5)!

Dans les cellules excel, la 1ere formule est bien calculée dans la cellule. Par contre la 2èmè formule n'est pas calculée. J'ai tout le texte de la formule. Si je double clique sur la cellule, le calcul est effectué.
Que faut-il coder dans mon module vb pour ouvrir le fichier et que toutes les formules soient calculées?

Merci de votre aide.
Steph

[aalex_38]

Bonjour,

As-tu essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Application.Calculate
ActiveSheet.Calculate

[nanie_38]

Bonjour,

Je viens d'essayer, ça ne marche pas.
Une autre idée?

[aalex_38]

Dans le menu option calcul est-ce que calculer automatiquement est coché ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   Application.Calculation = xlAutomatic
    Calculate

edit : je ferai un test si j'ai le temp cette après midi

[nanie_38]

Oui c coché.

[aalex_38]

Re,

ça marche chez moi, simplement en ouvrant le fichier sans faire quoique ce soit de particulier !
Je viens de faire une test simple, et tout est calculé !