Discussion :

[bartimeus35]

Bonjour à tous,
Dans une feuille Excel, j’avais ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
   Windows(CurrentFileName).Activate
 
      On Error Resume Next
    Application.DisplayAlerts = False
    Sheets(p_nom).Delete
    Application.DisplayAlerts = True
 
   Sheets.Add
    ActiveSheet.Name = "toto"

qui faisait le job, mais je veux ouvrir mon classeur excel depuis un fichier access , et je en'rrive pas à créer mon nouvel onglet.
Any suggestion ?
@+

[Philippe Tulliez]

Bonjour,
En supposant que le classeur Excel est déjà ouvert dans Access
La procédure ne vérifie pas si le nom existe déjà.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub AddSheet(Name As String, ByRef oWorkbook As Object)
  ' Ajoute une feuille à un classeur Excel ouvert et le renomme
  ' Arguments
  '  Name      Nom à donner à la feuille créée
  '  oWorkbook Objet Classeur
  With oWorkbook.Sheets
  .Add(After:=oWorkbook.Sheets(.Count)).Name = Name
  End With
End Sub

[bartimeus35]

génial