Excel et l'insertion d'une feuille

Question

Bonjour,
je ne suis pas tr&#233;s dou&#233; avec VB, mais je cherche &#224; m'am&#233;liorer et pour cela, vous serait il possible de me donner une solution pour ajouter une feuille dans mon fichier excel et de la renommer.
Apr&#233;s avoir consulter codes et forums, rien n'a fonctionn&#233;.

Voici le code que j'ai. C'est simple un fichier excel un bouton quand je click j'ouvre j'ajoute je renomme et je referme.

         Dim n As Integer
        Dim objXL As Object ' d&#233;claration d'un objet
        Set objXL = CreateObject("Excel.Application") ' Cr&#233;ation de l'objet
        objXL.Visible = False
'       Ouverture du fichier Excel
        objXL.Workbooks.Open FileName:="D:	emp	emp.xls"
'       Cr&#233;ation d'une nouvelle feuille
        Sheets.Add
        
'   renommer une feuille

        
'       Fermeture excel
            objXL.DisplayAlerts = False
            objXL.Workbooks.Close
            objXL.Application.Quit

Merci de votre aide !!

###TITEUF###

Zlub · Answer

Salut,


Tu peux essayer ce code ... je sais pas si j'ai tout pris en compte...






  Dim objXL As Excel.Application

  
  Set objXL = New Excel.Application

  

    objXL.Visible = False

    objXL.Workbooks.Open App.Path & "\Classeur1.xls" 'charger dans le rep courrant

    Call objXL.Workbooks.Add

  

    ' Ajouter une feuille

    Call objXL.ActiveWorkbook.Sheets.Add

  

    ' Renommer la derniere feuille

    objXL.ActiveWorkbook.Sheets(objXL.Sheets.Count).Name = "Nouveau NOM"

  

  

    ' Sauver et quitter

    objXL.DisplayAlerts = False

    objXL.ActiveWorkbook.Save

    objXL.Workbooks.Close

    objXL.Application.Quit

  
  

  
  ' Lib&#233;ration de la m&#233;moire

  
  Set objXL = Nothing

  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  



    

    Si tu as besoin tu peux toujours consulter cette liste ou voir un tutorialrapide 

++

Zlub

sacha1435 · Answer

Salut,

Je crois que ceci suffi.

objXL.Workbooks.Add("nom de la feuille")

Sacha
  \!/
    00
     !

sacha1435 · Answer

Oops

objXL.Workbooks("le nom du book").Sheets.Add("nom de la feuille")

d&#233;sol&#233;
Sacha

  \!/
    00
     !

cs_titeuf44 · Answer

Merci de ta r&#233;ponse, mais qu'appelles tu "book" dans excel (le classeur ok) mais comment le nommer ?

###TITEUF###

sacha1435 · Answer

Hi titeuf44,

Votre question &#233;tait :
vous serait il possible de me donner une solution pour ajouter une feuille dans mon fichier excel et de la renommer.

Pour moi la question est clair tu as un book (classeur) EXISTANT, et tu veux y ajouter une nouvelle Sheet (feuille) et la renomer.
la m&#233;thode : objXL.Workbooks("le nom du book".Sheets.Add quand tu ajoutes une feuille elle est toujours active
          objXL.Workbooks.ActiveSheet.Name = "le nom du de la feuille"
ceci apparement ne fonctione pas (j'en &#233;tais pourtant sur) d&#233;sol&#233;.
objXL.Workbooks("le nom du book").Sheets.Add("nom de la feuille")

Tu ne peux pas renomer un classeur(ou fichier) tu peux faire un SaveAs de celui-ci avec cette m&#233;thode
Workbooks("le nom du book").SaveAs([Filename], [FileFormat], [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode As XlSaveAsAccessMode = xlNoChange], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout], [Local]) avec toutes les options normalement disponible m&#234;me en VB6.
sans oublier que le (filename) doit comporter le chemin c-a-d "C:\mon folder\mon_book.xls" en format string bien &#233;videment.

Sacha

  \!/
    00
     !

cs_titeuf44 · Answer

Coucou  !!
J'ia effectivement test&#233; ce que tu me proposes, mais impossible d'ajouter une feuille &#224; mon classeur
Le message d'erreur est la m&#233;thode Add de la classe sheets a &#233;chou&#233; 
runtime error 1004

Si quelqu'un a une id&#233;e .........;

Merci.
Voici le bout de code que j'ai essay&#233; 

       Dim n As Integer
        Dim objXL As Object ' d&#233;claration d'un objet
        Set objXL = CreateObject("Excel.Application") ' Cr&#233;ation de l'objet
        objXL.Visible = False
'       Ouverture de la feuille Excel
        objXL.Workbooks.Open FileName:="D:\base.xls"
'       Cr&#233;ation d'une nouvelle feuille
        objXL.Workbooks("base.xls").Sheets.Add ("test")

'       Fermeture excel
            objXL.DisplayAlerts = False
            objXL.Workbooks.Close
            objXL.Application.Quit

###TITEUF###

sacha1435 · Answer

Voici

Dim n As Integer
        Dim objXL As Object ' d&#233;claration d'un objet
        Set objXL = CreateObject("Excel.Application") ' Cr&#233;ation de l'objet
        objXL.Visible = False
'       Ouverture de la feuille Excel
        objXL.Workbooks.Open FileName:="D:\base.xls"
'       Cr&#233;ation d'une nouvelle feuille
        objXL.Workbooks("base.xls").Sheets.Add 
         objXL.Workbooks("base.xls).ActiveSheet.Name ='test"

Sacha

  \!/
    00
     !

cs_titeuf44 · Answer

D&#233;sol&#233; mais cela ne fonctionne pas !!

###TITEUF###

Zlub · Answer

Salut titeuf44, et ceci ça ne fonctione pas ?

Dim objXL As Excel.Application Set objXL = New Excel.Application objXL.Visible = False objXL.Workbooks.Open "D:\base.xls" 'charger dans le rep courrant Call objXL.Workbooks.Add ' Ajouter une feuille Call objXL.ActiveWorkbook.Sheets.Add ' Renommer la derniere feuille objXL.ActiveWorkbook.Sheets(objXL.Sheets.Count).Name = "test"

++ Zlub

sacha1435 · Answer

Damned,

Bon ben pas mieux th&#233;oriquement les deux m&#233;thodes devraient fonctionn&#233;s.
Peut &#234;tre >>
Sheets.Add Before:=Worksheets(Worksheets.Count) , mais dans l'aide il parle d'optional donc pas n&#233;c&#233;ssaire depuis VBA, maitenant enVB6 ???

Sacha
  \!/
    00
     !

cs_titeuf44 · Answer

D&#233;sol&#233; mais rien ne fonctionne   !
Merci de ton aide.

A+

###TITEUF###

Excel et l'insertion d'une feuille

11 réponses

Discussions similaires