Discussion :

[LeXo]

bonjour

j'essaie de supprimer mes feuilles excel

d'en mettre une en la nomant comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Supprimer toutes les feuiles
For Each exsht In exwrk
    exsht.Delete
Next
'ajouter une feuille
Set exsht = exwrk.Worksheets.Add
'Rendre active notre feuille
Set exsht = exwrk.ActiveSheet
'lui donner un nom
exsht.Name = "Facture INTERCONNEXION"

mais ça ne marche po

d'avance merci

[Invité]

Bonjour

As-tu essayer de jeter un coup d'oeil à ceci

http://drq.developpez.com/vb/tutoriels/Excel/

Starec

[LeXo]

oui ya longtemps d'ailleurs moi je lui préferes celui-ci

qui beaucoup plus, complet sur le pilotage d'excel l'inconvénient c que c'est du VBA

excel

mais bon ça ne n'a pas répondu a mon souci

[SfJ5Rpw8]

....
mais ça ne marche po ...

ben VB6 c'est comme les bateaux il n'as pas de jambe.... ! c'est quoi le problème...?



Tu ne peu pas détruire toutes les feuilles d'un classeurs excel (essai de le faire "manuellement" histoire de ...)

change l'ordre de ton code ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Lexo()
Dim exWrk As Workbook
Dim exsht As Worksheet
Dim exshFact As Worksheet
Dim appEx As New Excel.Application
appEx.Visible = True
Set exWrk = appEx.Workbooks.Add
 
 
 
'ajouter une feuille
Set exshFact = exWrk.Worksheets.Add
'lui donner un nom
exshFact.Name = "Facture INTERCONNEXION"
'efface toutes les feuilles sauf la facture...
appEx.DisplayAlerts = False
For Each exsht In exWrk.Worksheets
    If Not (exsht Is exshFact) Then exsht.Delete
Next
appEx.DisplayAlerts = True
 
End Sub

[LeXo]

aaaah oui evidement



Merrrrcciiiiiiiiiiii