Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic connaitre le nombre de feuille d'un fichier EXCEL

connaitre le nombre de feuille d'un fichier EXCEL

1 réponse
Avatar
jose MULLER
Bonjour
j'aimeraid parcourir toutes les feuilles d un fichier EXCEL
merci


Voici mon code :

Set xlApp = CreateObject("Excel.Application") 'New Excel.Application
With xlApp
.Visible = True
'Ouverture du document XLS
Set xlBook = .Workbooks.Open(FileName:=sXlsFullName, ReadOnly:=False,
Editable:=True)

iMax = 5 ' <------ comment extraire le nombre de feuille ????????????????
For i = 1 To iMax 'pour chaque feuille du classeur
Set xlSheet = xlBook.Worksheets(i)
Me.Text5.Text = Me.Text5.Text & xlSheet.Name & vbCrLf

DoEvents
Next i

End With
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
parci
In : #,
jose MULLER écrivissa :
Bonjour
j'aimeraid parcourir toutes les feuilles d un fichier EXCEL
merci


Voici mon code :

Set xlApp = CreateObject("Excel.Application") 'New Excel.Application
With xlApp
.Visible = True
'Ouverture du document XLS
Set xlBook = .Workbooks.Open(FileName:=sXlsFullName, ReadOnly:úlse,
Editable:=True)



xlBook.Worksheets.Count
xlBook.Sheets.Count