Je dois remplir et mettre à jour des feuilles Excel avec des données
diverses.
Je dispose d'un classeur Excel 'vide' avec une feuille 'modèle' qui est
formatée
avce des formules etc...
J'arrive très bien a ouvrir la feuille et écrire dedans avec un objet data
et une
dbgrid. Mais je cherche le code me permettant de dupliquer la feuille et de
lui
donner un nom, avant de la remplir
Sachant que Sheets est en fait Excel.Sheets et donc, dans ton appli VB6 MonObjetExcel.Sheets, ton code est pratiquement finit.
Voici une version un rien plus aboutie: Sub DupliqueFeuille() Dim MyWorkSheet As Excel.Worksheet Set MyWorkSheet = ExcelApp.Worksheets("Feuil1") 'Copie la feuille à la fin MyWorkSheet.Copy , ExcelApp.Worksheets(ExcelApp.Worksheets.Count) 'et joue un peu avec Set MyWorkSheet = ExcelApp.Worksheets(ExcelApp.Worksheets.Count) MyWorkSheet.Name = "Hello!" MyWorkSheet.Cells(1, 1).FormulaR1C1 = "=0" 'Pour simplement renommer, on pourrait aussi faire ExcelApp.Worksheets(ExcelApp.Worksheets.Count).Name = "Nouveau Nom" End Sub
Je dois remplir et mettre à jour des feuilles Excel avec des données diverses. Je dispose d'un classeur Excel 'vide' avec une feuille 'modèle' qui est formatée avce des formules etc...
J'arrive très bien a ouvrir la feuille et écrire dedans avec un objet data et une dbgrid. Mais je cherche le code me permettant de dupliquer la feuille et
de
lui donner un nom, avant de la remplir
(vb6 / W 2k / Office 2k) Merci d'avance
Bonjour/soir,
L'enregistreur de macros est ton ami!
Sous Excel XP, en enregistrant la macro adéquate, on obtient:
Sachant que Sheets est en fait Excel.Sheets et donc, dans ton appli VB6
MonObjetExcel.Sheets, ton code est pratiquement finit.
Voici une version un rien plus aboutie:
Sub DupliqueFeuille()
Dim MyWorkSheet As Excel.Worksheet
Set MyWorkSheet = ExcelApp.Worksheets("Feuil1")
'Copie la feuille à la fin
MyWorkSheet.Copy , ExcelApp.Worksheets(ExcelApp.Worksheets.Count)
'et joue un peu avec
Set MyWorkSheet = ExcelApp.Worksheets(ExcelApp.Worksheets.Count)
MyWorkSheet.Name = "Hello!"
MyWorkSheet.Cells(1, 1).FormulaR1C1 = "=0"
'Pour simplement renommer, on pourrait aussi faire
ExcelApp.Worksheets(ExcelApp.Worksheets.Count).Name = "Nouveau Nom"
End Sub
"aprim" <contact@aprimedia.com> a écrit dans le message de
news:%23Y3I0nBfDHA.988@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je dois remplir et mettre à jour des feuilles Excel avec des données
diverses.
Je dispose d'un classeur Excel 'vide' avec une feuille 'modèle' qui est
formatée
avce des formules etc...
J'arrive très bien a ouvrir la feuille et écrire dedans avec un objet data
et une
dbgrid. Mais je cherche le code me permettant de dupliquer la feuille et
Sachant que Sheets est en fait Excel.Sheets et donc, dans ton appli VB6 MonObjetExcel.Sheets, ton code est pratiquement finit.
Voici une version un rien plus aboutie: Sub DupliqueFeuille() Dim MyWorkSheet As Excel.Worksheet Set MyWorkSheet = ExcelApp.Worksheets("Feuil1") 'Copie la feuille à la fin MyWorkSheet.Copy , ExcelApp.Worksheets(ExcelApp.Worksheets.Count) 'et joue un peu avec Set MyWorkSheet = ExcelApp.Worksheets(ExcelApp.Worksheets.Count) MyWorkSheet.Name = "Hello!" MyWorkSheet.Cells(1, 1).FormulaR1C1 = "=0" 'Pour simplement renommer, on pourrait aussi faire ExcelApp.Worksheets(ExcelApp.Worksheets.Count).Name = "Nouveau Nom" End Sub
Je dois remplir et mettre à jour des feuilles Excel avec des données diverses. Je dispose d'un classeur Excel 'vide' avec une feuille 'modèle' qui est formatée avce des formules etc...
J'arrive très bien a ouvrir la feuille et écrire dedans avec un objet data et une dbgrid. Mais je cherche le code me permettant de dupliquer la feuille et
