Assember 2 feuilles
Résolu
jeanluc065
Messages postés
134
Date d'inscription
samedi 23 septembre 2006
Statut
Membre
Dernière intervention
1 juin 2007
-
23 sept. 2006 à 15:38
jeanluc065 Messages postés 134 Date d'inscription samedi 23 septembre 2006 Statut Membre Dernière intervention 1 juin 2007 - 24 sept. 2006 à 09:13
jeanluc065 Messages postés 134 Date d'inscription samedi 23 septembre 2006 Statut Membre Dernière intervention 1 juin 2007 - 24 sept. 2006 à 09:13
A voir également:
- Assember 2 feuilles
- C# tableau 2 dimensions ✓ - Forum C# / .NET
- Droitereg excel degré 2 ✓ - Forum VBA Office (Excel, Word ...)
- Parcourir un Tableau n dimensions en utilisant les indices - Forum C# / .NET
- Tableau nombre de ligne ? - Forum C# / .NET
- C# arrondir 2 chiffres après virgule ✓ - Forum C# / .NET
2 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
23 sept. 2006 à 21:23
23 sept. 2006 à 21:23
Salut,
je t'ai fait une fonction, essaie de l'adapter :
Option Compare Database
' ** Référence : Microsoft Excel 11.0 Library Objects
Function RenommeFeuilleExcel(ByVal sMonBook As String, _
ByVal sNomFeuilleARemplacer As String, _
ByVal sNouveauNomFeuille As String)
If IsExist(sMonBook) Then
Dim xlApp As Excel.Application
Dim xlBook As Workbook
Dim i As Integer
Dim bFlag As Boolean
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sMonBook)
For i = 1 To xlBook.Sheets.Count
If xlBook.Sheets(i).Name = sNomFeuilleARemplacer Then bFlag = True: Exit For
Next i
If bFlag Then Sheets(sNomFeuilleARemplacer).Name = sNouveauNomFeuille
xlBook.Close True
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Else
MsgBox "Le fichier n'existe pas, vérifier le chemin !", vbCritical
End If
End Function
Public Function IsExist(ByVal StrFileName As String) As Boolean
On Error GoTo Xe
Open StrFileName For Input As #1
Close #1
IsExist = True
Xi: Exit Function
Xe: 'MsgBox Err.Description, vbCritical
Resume Xi
End Function
Sub Test()
Call RenommeFeuilleExcel("C:\Documents and Settings\<nom utilisateur>\Bureau\Test Chgt Nom Feuille.xls", _
"Feuil3", "Ma Feuille")
End Sub
<small>Coloration syntaxique automatique [mortalino] </small>
Il te suffit, de mettre par la fonction les paramètres suivants :
RenommeFeuilleExcel(nom classeur, nom feuille à remplacer, et nouveau nom)
@++
<hr width ="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
je t'ai fait une fonction, essaie de l'adapter :
Option Compare Database
' ** Référence : Microsoft Excel 11.0 Library Objects
Function RenommeFeuilleExcel(ByVal sMonBook As String, _
ByVal sNomFeuilleARemplacer As String, _
ByVal sNouveauNomFeuille As String)
If IsExist(sMonBook) Then
Dim xlApp As Excel.Application
Dim xlBook As Workbook
Dim i As Integer
Dim bFlag As Boolean
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(sMonBook)
For i = 1 To xlBook.Sheets.Count
If xlBook.Sheets(i).Name = sNomFeuilleARemplacer Then bFlag = True: Exit For
Next i
If bFlag Then Sheets(sNomFeuilleARemplacer).Name = sNouveauNomFeuille
xlBook.Close True
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Else
MsgBox "Le fichier n'existe pas, vérifier le chemin !", vbCritical
End If
End Function
Public Function IsExist(ByVal StrFileName As String) As Boolean
On Error GoTo Xe
Open StrFileName For Input As #1
Close #1
IsExist = True
Xi: Exit Function
Xe: 'MsgBox Err.Description, vbCritical
Resume Xi
End Function
Sub Test()
Call RenommeFeuilleExcel("C:\Documents and Settings\<nom utilisateur>\Bureau\Test Chgt Nom Feuille.xls", _
"Feuil3", "Ma Feuille")
End Sub
<small>Coloration syntaxique automatique [mortalino] </small>
Il te suffit, de mettre par la fonction les paramètres suivants :
RenommeFeuilleExcel(nom classeur, nom feuille à remplacer, et nouveau nom)
@++
<hr width ="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
jeanluc065
Messages postés
134
Date d'inscription
samedi 23 septembre 2006
Statut
Membre
Dernière intervention
1 juin 2007
24 sept. 2006 à 09:13
24 sept. 2006 à 09:13
Bonjour,
Merci pour votre aide mais, je ne me suis pas bien expliqué peut-être.
Dans mon problème, le nom de la feuille à remplacer n'est pas le même dans chaque classeur.
Ils commencent toujours par la même chaîne "nom001", "nom002" etc. et devraient être renommés en "NOM".
Tandis que dans la solution proposée, il faut renseigner exactement le nom de la feuille à remplacer
Merci d'avance.
JL
Merci pour votre aide mais, je ne me suis pas bien expliqué peut-être.
Dans mon problème, le nom de la feuille à remplacer n'est pas le même dans chaque classeur.
Ils commencent toujours par la même chaîne "nom001", "nom002" etc. et devraient être renommés en "NOM".
Tandis que dans la solution proposée, il faut renseigner exactement le nom de la feuille à remplacer
Merci d'avance.
JL
