VB sous excel, enregister une feuille du clas

patrice -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
Je desire connaitre la façon d'enregistrer juste une feuille d'un classeur xl, et lui donner le nom d'une des cellule de cette même feuille.

Merci d'avance pour votre aide
amitié
Patrice
Configuration: Windows XP
Firefox 3.0.8

1 réponse

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    Voilà un exemple à adapter à ton besoin. 

    Dim wk As Workbook
Dim ws As Worksheet

    'Déclare une feuille à l'ouverture d'Excel
    Application.SheetsInNewWorkbook = 1
    'Créer un classeur avec 1 feuille
    Set wk = Workbooks.Add
    'Remet l'application Excel dans son état initial
    Application.SheetsInNewWorkbook = 3
    
    'Déclare un objet worksheet
    Set ws = wk.Worksheets(1)
    'Affecte la valeur de la cellule A1 comme nom de feuille
    ws.Name = ThisWorkbook.Worksheets(1).Range("A1").Value
    'Sauvegarde le nouveau classeur
    wk.Save SaveChanges:=True
    'Pour donner un nom au classeur faire : wk.SaveAs ("C:\monclasseur.xls")
    'Libère les objets
    Set wk = Nothing
    Set ws = Nothing


    Bon courage

    ;o)
    0