OLE Excel
cs_Becks
Messages postés
24
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
16 août 2005
-
13 mai 2005 à 10:05
cs_Becks Messages postés 24 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 16 août 2005 - 13 mai 2005 à 11:12
cs_Becks Messages postés 24 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 16 août 2005 - 13 mai 2005 à 11:12
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
13 mai 2005 à 10:44
13 mai 2005 à 10:44
Bonjour,
Essaye d'incorporer ce code dans ta procédure.
Private Sub CommandButton1_Click()
Dim fex As String, Sheet As Object
For Each Sheet In ThisWorkbook.Sheetsfex IIf(fex "", Sheet.Name, fex & vbCrLf & Sheet.Name)
Next
MsgBox fex
End Sub
jpleroisse
Essaye d'incorporer ce code dans ta procédure.
Private Sub CommandButton1_Click()
Dim fex As String, Sheet As Object
For Each Sheet In ThisWorkbook.Sheetsfex IIf(fex "", Sheet.Name, fex & vbCrLf & Sheet.Name)
Next
MsgBox fex
End Sub
jpleroisse
cs_Becks
Messages postés
24
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
16 août 2005
13 mai 2005 à 11:12
13 mai 2005 à 11:12
Merci tu y étais presque !!!
Voici mon code :
For Each Sheet In .ActiveWorkbook.Sheets
fex IIf(fex "", Sheet.Name, fex & vbCrLf & Sheet.Name)
Next
.Workbooks.Close
End With
MsgBox fex
Merci encore @++
Voici mon code :
For Each Sheet In .ActiveWorkbook.Sheets
fex IIf(fex "", Sheet.Name, fex & vbCrLf & Sheet.Name)
Next
.Workbooks.Close
End With
MsgBox fex
Merci encore @++