bonjour a tous je suis fasse a un petit soucis
j'essaye d'optimiser un petit code sous win xp office 2007 et cela ne me semblais pas si difficile que cela ...
dans le principe j'ai une feuille 1 qui contient le nom des onglets a testé
j'ai une macro qui test a partir d'une liste de nom pour savoir si l'onglet existe et si ce dernier existe je fais des choses,
donc deux boucles une pour scruté les lignes de la feuille 1 (j) une autre boucle pour passer en revu les onglets un par un (k)
j'ai volontairement épurée le code de la procedure
si je fais
test1 = Workbooks(nom_fichier_source).Sheets(k).Name
test2 = Workbooks(nom_fichier_source).Sheets(feuille_temporaire).Range("A" & j)
If test1 = test2 Then
MsgBox ("le test en decomposition est ok pour la feuille : " & Sheets(k).Name)
End If/code]
'cela marche tres bien quelque soit le nom du l'onglet a tester. mais je trouve cela pas tres "propre" !!!
si je fais ceci :
[code] If Workbooks(nom_fichier_source).Sheets(feuille_temporaire).Range("A" & j) = Workbooks(nom_fichier_source).Sheets(k).Name Then
MsgBox ("le test en une ligne est ok pour la feuille : " & Sheets(k).Name)
End If
cela ne fonctionne pas pour les onglets dont le nom est composé uniquement de chiffres exemple "12"
si vous avez une idée de pourquoi cela ne fonctionne pas je suis preneur
vous trouverez un fichier test complet ci joint
merci
fred