Dsl pour le manque d'info. Ce n'ai pas top secret. Après je ne comprends pas que ca fonctionne sur le mon ordinateur et d'autres collègues et sur d'autres postes cela ne fonctionne pas.Pour moi ce n'est pas un problème de programmation mais plutot de parametrage.Dc je ne voyais pas l'interet du code.C'est depuis qu'on a passé tous les postes en version excel 2003 en 2007. Pour que le ficher fonctionne, il faut ouvrir le fichier excel puis l'enregistrer sous un autre nom et cela fonctionne. je me demande pourquoi? et comment je peux résoudre ce problème sans à avoir à toucher le code ni sans enregistré sous un autre nom.Pour moi c'est un problème de paramètrage.J'ai regardé tous les paramètres dans excel et je n'ai pas trouvé la solution.Et je pense que si tu n'as pas eu ce problème, tu va avoir du mal a m'aidé même si j'apprécie que tu t'interese car ce n'est pas un problème de programmation
voici la fonction de ma cellule (feuille qui se nomme CH_var dans la cellule C6:
DOSSIER!$C$13 corespond a une date qui ce trouve dans la feuille dossier cellule C13 et dans cette cellule ce trouve la valeur suivante :
resultat de ma cellule : oct-08
autre fonction
voici la fonction de ma cellule (feuille qui se nomme CH_var dans la cellule C7:
=SI(NbMois>=2;MOIS.DECALER(C6;1);"")
NbMois est la valeur qui ce trouve dans la cellule C14 de la feuille CH_Var et qui a été apelé NbMois et qui est égal a 12 dans mon cas.
Donc lorsque j'ouvre l'excel il me met #valeur, je clique sur ma cellule puis dans fx puis je tape sur la touche entrée et la il met comme valeur : nov-08.
Je voudrai qu'à l'ouverture du fichier, il recalcul toutes mes cellules. mais même la touche F9 ne fonctionne pas. Pourtant j'ai bien coché : recalculé mes cellules dans les paramètres excel. Après j'ai rien dans le thisworkbook. et j'ai 2 module ou il y a quelques macro du type
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
' Macro1 Impression Mois 1
' Macro enregistrée le 16/04/97 par CEGEX
'
Sub Macro1()
Sheets("TdeB").Select
Range("B2:G53").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("A1").Select
End Sub
'
' Macro2 Impression Mois 2
' Macro enregistrée le 16/04/97 par CEGEX
'
Sub Macro2()
Sheets("TdeB").Select
Range("H2:M53").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Copie de la formule pour graphique
Range("D57").Select
ActiveCell.FormulaR1C1 = "=L(-39)C(5)"
Range("D60").Select
ActiveCell.FormulaR1C1 = "=L(-9)C(5)"
Range("D115").Select
ActiveCell.FormulaR1C1 = "=L(-97)C(8)"
Range("D118").Select
ActiveCell.FormulaR1C1 = "=L(-67)C(8)"
Range("A1").Select
End Sub |
Partager