Bonjour,
Comme ceci:
Private Function GetSheetNames() As String()
Dim I As Long
Dim aSheetNames() As String
For I = 1 To ActiveWorkbook.Sheets.Count
ReDim Preserve aSheetNames(1 To I)...
Type: Messages; Utilisateur: argyronet
Bonjour,
Comme ceci:
Private Function GetSheetNames() As String()
Dim I As Long
Dim aSheetNames() As String
For I = 1 To ActiveWorkbook.Sheets.Count
ReDim Preserve aSheetNames(1 To I)...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.