Discussion :

[chrystobale]

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 :

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

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

[helas]

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

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
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 :

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

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é

[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

[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 :

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

NomFeuille = xlw.Worksheets(numFeuille).Name

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

Code :

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

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.