Discussion :

[amateur_will]

Bonjour,

après la création d'une feuille de calcul, avec un libellé; comment récupérer sont indice dynamiquement??

et ensuite l'affecter a mes procédures qui doivent traiter des valeurs numériques sur cette même feuille de calculs

après chargement de mes fichiers CSV ???

à la base j'ai une procédure, qui a créer la feuille de calcul de travail...

et ensuite je fais pointer dessus, mes procédures pour différents traitements..

je galère, car je ne suis pas assez efficace .

car le plus souvent, j'ai des erreurs du type "9" n'appartient pas à l'indice

merci

[Franc]

Salut, quelque chose comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RecupererIndiceFeuille()
 
    Dim NouvelleFeuille As Worksheet
    Set NouvelleFeuille = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
 
    NouvelleFeuille.Name = "MaNouvelleFeuille"
 
    ' Récupérer l'indice de la nouvelle feuille de calcul
    Dim IndiceFeuille As Integer
    IndiceFeuille = NouvelleFeuille.Index
 
    MsgBox "L'indice de la nouvelle feuille de calcul est : " & IndiceFeuille
End Sub

[Philippe Tulliez]

Bonjour,
Une feuille de calcul nouvellement créée devient la feuille active donc on peut récupérer toutes ses propriétés
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub t()
  With ThisWorkbook
  .Worksheets.Add After:=.Worksheets(.Worksheets.Count)
  End With
  With ActiveSheet
   MsgBox .Index & ") " & .Name
  End With
End Sub

[Raccourcix]

Bonjour
Sur le fond, pour charger et traiter des données csv je vous recommande fortement d'utiliser Power Query à la place de VBA.
C'est beaucoup plus simple, rapide, souple...
Depuis Excel 2016, j'ai traité ainsi des centaines de fichiers source.
Que des avantages
Stéphane

[deedolith]

Hello,

Une feuille de calcul nouvellement créée devient la feuille active donc on peut récupérer toutes ses propriétés
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook
    .Worksheets.Add After:=.Worksheets(.Worksheets.Count)
End With

il y a mieux, la méthode add renvoie une référence vers la feuille nouvellement créée, il suffit de la récupérer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Ws As Excel.Worksheet
With ThisWorkbook
    Set Ws = .Worksheets.Add(After:=.Worksheets(.Worksheets.Count))
End With

Ca évite d'introduire une dépendance vis à vis du contexte.

(Et si le classeur visé est masqué, il me semble que ActiveSheet échoue).

[amateur_will]

bonjour et merci aux réponses des participants

merci a franc, pour son exemple que je vais essayé

ceci-dit franc, l'indice de la feuille est t'elle unique???, peut importe le nom associé?? selon toi , et surtout peut t'on en faire une référence pour les procédures VBA??

merci à Philippe Tulliez, pour son conseil, et son bloc de code VBA que je vais exploiter

merci a Raccourcix , pour son conseil pour l'utilisation de power query,

mais Raccourcix, il me semble que l'on n'est limité dans la personnalisation avec power query, et je trouve

qu'Excel donne plus de flexibilité dans la création des feuilles. je reconnais, que power query, a une certaine robustesse de traitement.

et merci a deedolith pour sa remarque riche en information, pour plus d'efficacité , et aux 4 participants de leurs points de vue

que j'exploiterais pas à pas .....

[Franc]

L'indice est unique mais n'est pas lié à la feuille, seulement à sa position, donc si celle-ci change, l'indice aussi.

[amateur_will]

re Franc, haaa..ok alors merci, pour cette précision....