Appeler une feuille sous Excel [Résolu]

[zskiredj]

Bonsoir tout le monde,

j'ai un petit problème pour appeler une feuille Excel via la commande sheets.

J'ai le nom d'une feuille qui est dans une case, disons la case A1 d'une feuille rapport. Et je souhaiterais avoir accès à la feuille dont le nom est en A1.

je sais que :

Code :

debug.print chr(34) & Sheets("Rapport").Cells(1, 1) & chr(34)

donne :
"nb of borrowers from com banks" (le nom de la feuille que je veux modifier)

mais :

Code :

sheets(chr(34) & Sheets("Rapport").Cells(1, 1) & chr(34)).cells(1,1)="toto"

me donne une erreur :

Erreur d'éxecution '9'
L'indice n'appartient pas à la sélection.

Une idée ?

Merci infiniment pour votre aide.

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
Dim Nom As String
 
Nom = Worksheets("Rapport").Range("A1")
 
If Existe(Nom) Then Worksheets(Nom).Range("B3") = "Toto"
End Sub
 
'Fonction qui permet la vérification de l'existence de la feuille nommée Str
Private Function Existe(ByVal Str As String) As Boolean
Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name = Str Then
        Existe = True
        Exit For
    End If
Next Ws
End Function

Dans la sub Test, on vérifie d'abord l'existence dans le classeur de la feuille nommée par la valeur de la cellule A1 de la feuille Rapport à l'aide de la fonction Existe

[gFZT82]

Bonjour,

Ais-je bien compris ?

Si ta feuille se nomme nb of borrowers from com banks
et que la cellule A1 de la feuille rapport contient la chaine de caractères nb of borrowers from com banks, il n’y a pas lieu de rajouter des guillemets.

Code :

1
2
3
4
5
Sub Test()
Dim Feuille As String
    Feuille = Worksheets("Rapport").Cells(1, 1)
    Worksheets(Feuille).Cells(1, 1) = "toto"
End Sub

Cordialement.

[zskiredj]

Nickel ça marche !

je pense que le pb vient de la déclaration de la string.

Merci beaucoup pour votre aide !