Depuis ça fonctionne jusqu'à aujourd'hui, et je ne sais où chercher. Dans mon fichier j'ai plusieurs feuilles qui utilisent ce procédé et ça fonctionne sauf une, vous la trouverez dans le fichier joint, le fichier de base fait plus de 300ko.
Objectif :
Impression en fonction du numero de semaine (paramètre en haut à gauche)
Merci ROGER2327, ça fonctionne..., cependant je ne comprends pas pourquoi les fonctions sont en Anglais et pourquoi le code précédent a fonctionné.
Peux-tu m'éclairer
Merci
Mousse
Je n'ai pas d'explication. Les formules doivent être construite en pseudo-anglais (je ne voudrais pas offenser nos amis britanniques en parlant d'Anglais à propos du charabia généralement employé en informatique) sauf lorsqu'on utilise FormulaLocal. Je ne vois vraiment pas comment votre procédure a pu fonctionner à un moment ou un autre.
D'autres sauront peut-être vous éclairer…
ROGER2327 #4757
Dimanche 15 Sable 138 (Khurmookum du Dr Faustroll, SS) 25 Frimaire An CCXIX 2010-W50-3T23:46:30Z
Bonsoir bigmousse, ROGER2327, job75 (par extension) , le fil, le forum
Extrait de l'aide VBA
Name.RefersToLocal, propriété
Cette propriété renvoie ou définit la formule à laquelle se réfère le nom. La formule est dans la langue de l'utilisateur en notation de type A1 et commence par le signe égal. Type de données String en lecture-écriture.
Syntaxe
expression.RefersToLocal
expression Variable représentant un objet Name.
Exemple
Cet exemple montre comment créer une feuille de calcul et y insérer une liste de tous les noms tirés du classeur actif, ainsi que leurs formules (en notation de type A1 dans la langue de l'utilisateur).
Visual Basic pour Applications
Code:
Set newSheet = ActiveWorkbook.Worksheets.Add
i = 1
For Each nm In ActiveWorkbook.Names
newSheet.Cells(i, 1).Value = nm.NameLocal
newSheet.Cells(i, 2).Value = "'" & nm.RefersToLocal
i = i + 1
Next