XL 2010 probleme de validation par liste avec vba

[moialbert2]

Bonjour a tous
Avec Excel 2007 je crée une liste de validation sur une cellule avec des données dans un autre fichier cf le code ci après
Sub majListeNRA()
Dim findc As Integer
Dim txt As String
If dc4 Then
findc = Workbooks(ficmacro).Sheets(2).Cells(1, 6).End(xlDown).Row
txt = "=[" & ficmacro & "]" & Workbooks(ficmacro).Sheets(2).Name & "!f1:f" & findc

Else
findc = Workbooks(ficmacro).Sheets(2).Cells(1, 9).End(xlDown).Row
txt = "=[" & ficmacro & "]" & Workbooks(ficmacro).Sheets(2).Name & "!I1:I" & findc
End If

With Workbooks(ficData).Sheets(4).Cells(10, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=txt
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub
"ficmacro" est une variable contenant le nom du fichier ou sont les données devant servir a remplir la liste
avec la version 2007 aucun pb par contre sur 2010 le code plante sur la ligne add avec la propriété Formula1
Si quelqu'un a une idee ??
En direct dans l'interface d'Excel 2010 je ne peut pas aller chercher la plage pour remplir la liste dans un autre fichier
PB de version ou de syntaxe je ne pas travailler sr 2010 c'est le micro du boulot de ma femme avec Excel sur le serveur distant
Merci de toute info

 

[fanch55]

Bonjour,
Vous pouvez vous inspirer de

Attention, le classeur des données doit rester ouvert ...

 

[moialbert2]

Bonjour,
Vous pouvez vous inspirer de

Attention, le classeur des données doit rester ouvert ...

Bonjour
Je suis allé ,j'ai vu mais je suis vaincu
cela me plante Excel complètement ou me dit que la source du nom est erronée
Merci
Apres le plantage le fichier est nommé fichier.xls (récupéré automatiquement) au lieu de fichier.xls
Apres correction du nom dans le fichier de validation je change de nom moi aussi maintenant je m'appelle CESAR car là j'ai vaincu
Merci de l'aide