Extraction nom d'une feuille non active

[tomaix]

Bonjour,

Je souhaite récupérer le nom de la 1er feuille d'un fichier non ouvert. J'essaye avec ceci mais ca ne marche pas quand je ferme le fichier.

Name_Feuille = Workbooks(Name_Fichier).Worksheets(1).Name

Name_Feuille et Name_Fichier sont deux variables.

Est ce quelqu'un a une idée ?
Salutations,

 

[dionys0s]

Re : Extraction nom d'une feuille non active

Bonjour Tomaix

Un lien intéressant

Bon courage

dionys0s 😎

 

[Paritec]

Re : Extraction nom d'une feuille non active

Bonjour tomaix le forum
voilà
a+
papou😱

Name_Feuille =sheets(1).name

EDIT: je relis le post et tu veux le nom de la feuille d'un fichier fermé là il faut faire une requête ADO

 

[dionys0s]

Re : Extraction nom d'une feuille non active

Bonjour Papou

Bonjour tomaix le forum
voilà
a+
papou😱

Name_Feuille =sheets(1).name

Je crois qu'il voulait le nom de la première feuille d'un classeur fermé, pas de celui du classeur en cours.

A plus
dionys0s 😎

 

[tomaix]

Re : Extraction nom d'une feuille non active

Merci pour vos réponses.

Je connais sans plus ADO, cela fait quelque jours seulement que je bricole avec mais je n'arive pas non plus à le faire marcher.

Private Sub Exploreur_Click()

    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim Name_Fichier As String
    Dim Name_Feuille As String
    
    
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Users\E51973\Desktop\MED-FML-2010-000129.xls"
    
    Set Cn = New ADODB.Connection
    
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
    
        ' choix du fichier Excel par l'explorateur
    Set Fd = Application.FileDialog(msoFileDialogOpen)
    Set Fdfs = Application.FileDialog(msoFileDialogOpen).Filters
    
    Fdfs.Clear
    ' ajout de la seule extension Excel
    Set Fdf = Fdfs.Add("All files", "*.xlsm; *.xls", 1)

    ' récupération du nom et du chemin du fichier sélectionné
    With Fd
        .AllowMultiSelect = False
        If .Show = -1 Then
            Path = .SelectedItems(1)
           
            Name_Fichier = Mid(Path, InStrRev(Path, "\") + 1)
            Name_Feuille = Workbooks(Name_Fichier).Worksheets("Feuil1").Name
          
            ' MsgBox name_fichier
            Cheminchoisi.Text = Path
            Nomchoisi.Text = Name_Fichier
            nomfeuille.Text = Name_Feuille
            
        Else
        'The user pressed Cancel.
            Exit Sub
        End If
    End With
             
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
   
End Sub

Après plusieurs essai cela ne fonctionne pas non plus.
Pour info, ce programme ouvrir l'explorateur windows ensuite on doit selectionner un fichier et ensuite la boite de dialogue doit afficher son chemin, son nom et le nom de la 1 er feuille.

Arrivez-vous à déceller des erreurs?

Salutations,

 

[laetitia90]

Re : Extraction nom d'une feuille non active

bonjour tous 🙂🙂

essai comme cela

Sub es()
  Set appExcel = CreateObject("Excel.Application")
  Set wbExcel = appExcel.Workbooks.Open(Filename:="chemin fichier")
  Nomfeuille = appExcel.Sheets(1).Name
  wbExcel.Close
  Set wbExcel = Nothing
End Sub

 

[PMO2]

Re : Extraction nom d'une feuille non active

Bonjour,

Essayez

Sub aa()
Dim WB As Workbook
Set WB = GetObject("c:\test.xls")   'à adapter
MsgBox WB.Sheets(1).Name
WB.Close False
Set WB = Nothing
End Sub

 

[laetitia90]

Re : Extraction nom d'une feuille non active

re plus concretement le chemin doit etre complet extension pas utile.xls ect...

Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(Filename:="C:\Users\leti\Desktop\clin")
MsgBox appExcel.Sheets(1).Name
wbExcel.Close
Set wbExcel = Nothing

mon fichier se nomme clin