amélioration de code -récuperation de nom feuille1 via CheckBox

Version imprimable

Bonjour,
Je souhaitre améliorer mon code suivant car je commence à m'enméler les poinceaux ...
tout d'abord je souhaiterais récupérer dans une variable (fonction) le nom de la première feuille du classeur que j'ouvre. Je souhaite ainsi utliser autant de fois que nécessaire, n'importe ou dans mon code.
Ensuite, devez le voir, mon code est "pitoyable" donc si suggestion vous avez, je prends car ca devient trop "brouillon" ... Merci!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 If CheckBox2 = True Then If TextBox1 <> "" Then MsgBox "Did you Start TOTO CheckSum ?" Set myWorkbookImport = Workbooks.Open(Filename:=TextBox1) 'permet de récuperer le nom de la feuille1 du fichier importé If Not ActiveSheet Is Nothing Then Set MaFeuille = ActiveSheet MsgBox MaFeuille.Name End If Call LTE_CheckSum_Rules MsgBox "LTE CheckSum Completed for " & TextBox1 End If End If
Chrystobale

Bonjour,
Je propose ceci :
créer dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Function RetourneNomFeuille(classeur As String, numFeuille As Integer) As String
 On Error GoTo erreur
 NomFeuille = ""
 If numFeuille < 1 Then Exit Function
 
 Dim xlw As Workbook, xls As Worksheet, ouvert As Boolean
 If ClasseurOuvert(classeur) Then ouvert = True
 If Not ouvert Then Workbooks.Open classeur
 Set xlw = Workbooks(Mid$(classeur, InStrRev(classeur, "\") + 1))
 n = xlw.Worksheets.Count
 If numFeuille > n Then Exit Function
 NomFeuille = xlw.Worksheets(numFeuille).Name
 If Not ouvert Then ActiveWorkbook.Close
 
Exit Function
erreur:
End Function
 
Function ClasseurOuvert(classeur As String) As Boolean
 Dim xlw As Workbook
 ClasseurOuvert = False
 For Each xlw In Workbooks
  If UCase$(xlw.FullName) = UCase$(classeur) Then ClasseurOuvert = True:Exit For
 Next xlw
End Function

L'appel se fait ainsi

Code:

1
2
 
 NomFeuille=RetourneNomFeuille("dossier\NomClasseur.xls",1)

Les avantages :
Une fonction qui peut être utilisée partout dans le code
Le numero de la feuille peut être spécifiée (dans l'exemple, 1 correspond à la premère feuille)
Si le classeur est fermé, celui-ci est ouvert pour récupérer la feuille puis refermé

09/11/2009, 10h05
chrystobale

bonjour,
Merci pour ta reponse que je viens d'essayer mais je n'ai rien comme résultat ...
j'ai déclaré NomFeuille comme variable String du fait que Function RetourneNomFeuille est en string, est ce correct ?

Merci
09/11/2009, 12h02
chrystobale

re-bonjour Helas,

Sauf erreur de ma part, je pense avoir idéntifié une variable incorrectement définit dans la partie de ton code de la fonction RetourneNomFeuille

en effet la fonction ne retourne aucune valeur et il me semble que cela vient de la partie suivant

Code:

NomFeuille = xlw.Worksheets(numFeuille).Name

Je l'ai "légèrementé modifié par

Code:

RetourneNomFeuille= xlw.Worksheets(numFeuille).Name

Après ca marche très bien.
Peux tu me confirmé afin de ne pas avoir un effet de bord quelconque sinon merci beaucoup pour m'avoir répondu aussi rapidement avec un code intéressant car j'ai pu découvrir de nouvelles fonctions.