Bonjour à tous,
je suis confronté à un problème assez casse-pied. Je développe sur mon ordi avec un Office anglophone, et le code suivant fonctionne parfaitement :
MOn problème apparait lorsque je fais tourner ce code sur un poste avec Office en français.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 '4 on modifie toutes les plages nommées avec le nom de feuille en 'ZZZ' & refersTo For Each nm In destwbk.Names If InStr(1, nm.RefersTo, "ZZZ") > 0 Then Dim tmp As String tmp = Mid(nm.RefersTo, 6, Len(nm.RefersTo) - 6) nm.RefersTo = tmp ElseIf InStr(1, nm.RefersTo, "#REF!") > 0 Then 'Debug.Print nm.Name nm.Delete ElseIf InStr(1, nm.RefersTo, xlwbk.Name) > 0 Then nm.Delete End If Next nm
Il me transforme les Références ("=CALCULS!A1:C3") en une version R1C1 hybride (="CALCULS!L1C1:L3C3") ce qui malheureusement me génère des #NOM partout où des formules y font référence...
Sauriez-vous quelle astuce je pourrais utiliser pour squizzer ce bug ?
Merci d'avance.
Partager