Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" a écrit dans le message de news:
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1 du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" <awerel@mageos.com> a écrit dans le message de news:
OWXMRlSGGHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1 du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" a écrit dans le message de news:
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1 du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" a écrit dans le message de news:
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1 du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" <awerel@mageos.com> a écrit dans le message de news:
OWXMRlSGGHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1 du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" a écrit dans le message de news:
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1 du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine 76,
Un espace dans le nom d'une feuille est souvent précurseur à bien des
surprises.
Si tu modifies cette section, cela devrait aller :
For Each Tbl In Cat.Tables
If InStr(1, "'" & Tbl.Name & "'", "$") > 0 Then
MsgBox Left(WorksheetFunction.Substitute(Tbl.Name, "$", ""),
Len(Tbl.Name) - 1)
End If
Next Tbl
Les noms avec des espaces vont se présenter sous cet aspect
'Feuil1 denis' entouré de guillement simple.
Cette section dans ta question :
| 'toto$Impression_des_ (?) et 'toto$zone_d_impressi (?) qui doivent
| correspondre à la définition de la zone d'impression et de la ligne
À quoi fais-tu référence ? Le symbole "$" est prohibé dans la
nomination d'une plage nommée.
De façon générale, Ado considère "Les plages nommées" comme des "Table"
de données. De même en est-il des feuilles de calculs. Dans le cas de ces
dernières, ADO ajoute le suffixe "$" à la fin des noms de feuille comme
pour
indiquer que c'est une table....!
Salutations!
"Antoine76" a écrit dans le message de news:
%
Bonjour michdenis
Merci pour ton aide, et si rapide en plus...
J'ai coché les 2 références VBA et cela fonctionne.
Il m'envoie bien le nom "normal" de toutes les feuilles, sauf pour une
dont
le nom de composé de 2 mots (Juneau Bureau) pour lequel il me met un '
devant et un $ derrière. Il m'envoie aussi pour toutes les feuilles un nom
de type 'toto$Impression_des_ (?) et 'toto$zone_d_impressi (?) qui
doivent
correspondre à la définition de la zone d'impression et de la ligne de
titre
à reporter à chaque page.
Peu importe, car le nom "Sommaire" que je recherche sort "clean" et en
direct.
Petite question annexe : la sélection de ces 2 références est-elle
automatiquement enclenché pour le VBA de tous les fichiers?
Merci à toi, pour le coup de clavier !
Antoine
"michdenis" a écrit dans le message de news:
#Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" a écrit dans le message de news:Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1
du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est
intégrée
àtout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figureet pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine 76,
Un espace dans le nom d'une feuille est souvent précurseur à bien des
surprises.
Si tu modifies cette section, cela devrait aller :
For Each Tbl In Cat.Tables
If InStr(1, "'" & Tbl.Name & "'", "$") > 0 Then
MsgBox Left(WorksheetFunction.Substitute(Tbl.Name, "$", ""),
Len(Tbl.Name) - 1)
End If
Next Tbl
Les noms avec des espaces vont se présenter sous cet aspect
'Feuil1 denis' entouré de guillement simple.
Cette section dans ta question :
| 'toto$Impression_des_ (?) et 'toto$zone_d_impressi (?) qui doivent
| correspondre à la définition de la zone d'impression et de la ligne
À quoi fais-tu référence ? Le symbole "$" est prohibé dans la
nomination d'une plage nommée.
De façon générale, Ado considère "Les plages nommées" comme des "Table"
de données. De même en est-il des feuilles de calculs. Dans le cas de ces
dernières, ADO ajoute le suffixe "$" à la fin des noms de feuille comme
pour
indiquer que c'est une table....!
Salutations!
"Antoine76" <awerel@mageos.com> a écrit dans le message de news:
%23ksriTTGGHA.1032@TK2MSFTNGP12.phx.gbl...
Bonjour michdenis
Merci pour ton aide, et si rapide en plus...
J'ai coché les 2 références VBA et cela fonctionne.
Il m'envoie bien le nom "normal" de toutes les feuilles, sauf pour une
dont
le nom de composé de 2 mots (Juneau Bureau) pour lequel il me met un '
devant et un $ derrière. Il m'envoie aussi pour toutes les feuilles un nom
de type 'toto$Impression_des_ (?) et 'toto$zone_d_impressi (?) qui
doivent
correspondre à la définition de la zone d'impression et de la ligne de
titre
à reporter à chaque page.
Peu importe, car le nom "Sommaire" que je recherche sort "clean" et en
direct.
Petite question annexe : la sélection de ces 2 références est-elle
automatiquement enclenché pour le VBA de tous les fichiers?
Merci à toi, pour le coup de clavier !
Antoine
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#kQcX7SGGHA.3864@tk2msftngp13.phx.gbl...
Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" <awerel@mageos.com> a écrit dans le message de news:
OWXMRlSGGHA.1452@TK2MSFTNGP11.phx.gbl...
Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1
du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est
intégrée
à
tout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figure
et pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine
Bonjour Antoine 76,
Un espace dans le nom d'une feuille est souvent précurseur à bien des
surprises.
Si tu modifies cette section, cela devrait aller :
For Each Tbl In Cat.Tables
If InStr(1, "'" & Tbl.Name & "'", "$") > 0 Then
MsgBox Left(WorksheetFunction.Substitute(Tbl.Name, "$", ""),
Len(Tbl.Name) - 1)
End If
Next Tbl
Les noms avec des espaces vont se présenter sous cet aspect
'Feuil1 denis' entouré de guillement simple.
Cette section dans ta question :
| 'toto$Impression_des_ (?) et 'toto$zone_d_impressi (?) qui doivent
| correspondre à la définition de la zone d'impression et de la ligne
À quoi fais-tu référence ? Le symbole "$" est prohibé dans la
nomination d'une plage nommée.
De façon générale, Ado considère "Les plages nommées" comme des "Table"
de données. De même en est-il des feuilles de calculs. Dans le cas de ces
dernières, ADO ajoute le suffixe "$" à la fin des noms de feuille comme
pour
indiquer que c'est une table....!
Salutations!
"Antoine76" a écrit dans le message de news:
%
Bonjour michdenis
Merci pour ton aide, et si rapide en plus...
J'ai coché les 2 références VBA et cela fonctionne.
Il m'envoie bien le nom "normal" de toutes les feuilles, sauf pour une
dont
le nom de composé de 2 mots (Juneau Bureau) pour lequel il me met un '
devant et un $ derrière. Il m'envoie aussi pour toutes les feuilles un nom
de type 'toto$Impression_des_ (?) et 'toto$zone_d_impressi (?) qui
doivent
correspondre à la définition de la zone d'impression et de la ligne de
titre
à reporter à chaque page.
Peu importe, car le nom "Sommaire" que je recherche sort "clean" et en
direct.
Petite question annexe : la sélection de ces 2 références est-elle
automatiquement enclenché pour le VBA de tous les fichiers?
Merci à toi, pour le coup de clavier !
Antoine
"michdenis" a écrit dans le message de news:
#Bonjour Antoine76,
Essaie ceci :
Tu dois charger 2 références à ton projet :
"Microsoft Activex Data Object 2.1 object Librairy"
"Microsoft ADO Ext. 2.7 for DDL and Security".
'--------------------------
Sub test()
'Adapte le chemin et le nom du classeur de ton application.
ReadSheetNames "c:Classeur1.xls"
End Sub
'--------------------------
Sub ReadSheetNames(TheCompleteFilePath As String)
Dim cnn As New ADODB.Connection
Dim Cat As New ADOX.Catalog
Dim Tbl As ADOX.Table
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & TheCompleteFilePath & ";" & _
"Extended Properties=Excel 8.0;"
Cat.ActiveConnection = cnn
For Each Tbl In Cat.Tables
If InStr(1, Tbl.Name, "$") > 0 Then
MsgBox Left$(Tbl.Name, Len(Tbl.Name) - 1)
End If
Next Tbl
Set Cat = Nothing
cnn.Close
Set cnn = Nothing
End Sub
'--------------------------
Salutations!
"Antoine76" a écrit dans le message de news:Bonsoir
Dans le cadre de la récupération de valeurs provenant de tous fichiers
fermés, tous classés dans un même dossier, je voudrais mettre, comme
condition au sein d'une boucle avant copie, < si le nom de la feuille 1
du
fichier i est "Salariés" >.
J'ai essayé de voir comment tirer partie du programme de Robert Dezan :
RD-lecture données classeur fermé V1B sur excelabo
(http://www.excelabo.net/moteurs/compteclic.php?nom=rd-lireferme).
Il y a une macro, Extraction_NomsFeuilles_Classeur_Fermé, qui est
intégrée
àtout un ensemble de macro.
Malheureusement, je n'arrive pas à "isoler" les lignes maîtresse de ce
programme tout en les gardant fonctionnelles afin de pouvoir les
réutiliser.
Peut-être certains d'entre vous ont-ils déjà eu à résoudre ce cas de
figureet pourraient m'indiquer comment mettre sous variable le nom de la 1ère
feuille du fichier ?
Merci à tous
Antoine