Nom de feuille qui ne passe pas ????

[Macpoy]

bonsoir le forum,
dans une macro je fais intervenir le nom d'une feuille.
la ou excel a du mal (surtout moi d'ailleur !!!) c'est que dès que ce nom de feuille comporte une apostrophe ou un accent la macro se bloque.

je vous remercie d'avance pour toutes vos éventuelles suggestions.

 

[jeanpierre]

Re : Nom de feuille qui ne passe pas ????

Re,

Le problème des versions, je ne vais, sauf miracle, pas pouvoir t'aider d'avantage, je n'ai plus vraiment souvenir des différences entre 2000 et 2003....

Demain, il fera jour, enfin , j'espère

 

[matthieu33]

Re : Nom de feuille qui ne passe pas ????

Bonsoir Macpoy et le forum,

Voici une solution :
Corrections apportées dans la procédure "cmdOK_Click" de la USF "AdClient".

'NomFeuille = CStr(TxtNom)
Lig = Recet.Columns(1).Find("*", , , , , xlPrevious).Row
LigSuiv = 3
  For Col = 2 To 25 Step 2
        
      Recet.Cells(Lig, Col).Value = "='" & Replace(TxtNom, "'", "''") & "'!" & ("L" & LigSuiv)
      LigSuiv = LigSuiv + 1
   
  Next Col
LigSuiv = 3
  For Col = 3 To 25 Step 2
    
      Recet.Cells(Lig, Col).Value = "='" & Replace(TxtNom, "'", "''") & "'!" & ("M" & LigSuiv)
      LigSuiv = LigSuiv + 1

         
  Next Col

En fait, il faut doubler l'apostrophe se trouvant dans le nom pour éviter qu'il y ait une erreur.
ex : ='L''éssais'!L3

Il y a peut-être d'autres endroits où cela doit être fait. A toi de voir.

 

[Excel_lent]

Re : Nom de feuille qui ne passe pas ????

Re,

Cela coïnce aussi avec ma version.
Mais remplaçe

1) TxtNom.Text par TxtNom.Value partout

2) Recet.Cells(Lig, Col).Value = "=" & TxtNom.Value & "!" & ("L" & LigSuiv)
par
Recet.Cells(Lig, Col).Value = "=" & ActiveSheet.Name & "!" & ("L" & LigSuiv)

dans les 2lignes correspondantes et dis m'en des nouvelles.
Remarque : il faut bien sûr être dans la nouvelle feuille !

 

[Macpoy]

Re : Nom de feuille qui ne passe pas ????

Bonjour le forum, bonjour à tous les excelliens de ce fil,
Merci mathieu33, ta solution fonctionne très bien même si je ne comprend pas comment ces changements obligent notre logiciel préféré à effectuer l'opération dont j'avais besoin.
merci encore à tous les contributeurs.
à très bientôt peut être.