creation d'onglet dans une feuille excel à partir d'un bouton access

**dricks** · 10/09/2007, 11h51

bonjour a tous,

j'ai un petit souci c'est que je ne sais pas comment créer et nommer plusieurs onglets sous excel à partir de access.

j'ai testé cette formule : ActiveSheet.add mais sa ne fonctionne pas

pourriez vous m'aider please!!

**DMboup** · 10/09/2007, 12h03

Envoyé par dricks

...je ne sais pas comment créer et nommer plusieurs onglets sous excel à partir de access.

Bonjour

Je supposes que tu veux dire feuilles à la place de onglets !

Si c'est bien des feuilles regarde les méthodes associée à workbooks.

**dricks** · 10/09/2007, 12h11

oui efectivement ces des feuilles dont je parlais, aurais tu un tutoriels ou autre afin que je puisse y jeter un oeil !??

sur la plupart des sites que je trouve me conseil d'utiliser "worksheet.add" cependant au lieu de rajouter une feuille a mon classeur sa n'affiche plus rien !!

je souhaiterais si possible renommer la feuille existante et créer une deuxième feuille a sa suite !!!

voila mon but!!

merci d'avance de votre aide!

**DMboup** · 10/09/2007, 12h23

Envoyé par dricks

... aurais tu un tutoriels ou autre afin que je puisse y jeter un oeil !??

de Excel. WorkSheet.Add

**AlainTech** · 10/09/2007, 22h42

C'est plutôt

Code :

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

Worksheets.Add

On ajoute une feuille à la Collection Worksheets.
Pour pouvoir donner un libellé à l'onglet:

Code :

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

1
2
3
Dim wksNew As Worksheet
Set wksNew = Worksheets.Add
wksNew.Name = "LeNomQueTuVeux"

**dricks** · 11/09/2007, 10h49

sa ne fonctionne toujours pas j'ai rajouté ton code et sa me fait toujours pareil avec une erreur complémentaire:

la méthode 'worksheets' de l'objet '_global' a échoué

qu'est ce que sa signifie???

comment pourrais je resoudre cette erreur???

**AlainTech** · 11/09/2007, 17h55

Donne-nous ton code complet pour l'ouverture du classeur et la création de feuille.

**dricks** · 12/09/2007, 10h01

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Commande126_Click()
 
On Error GoTo Err_Commande126_Click
 
Dim wksNew As Worksheet
Dim Champ1 As String
Dim Champ2 As String
Dim Champ3 As String
Dim MonFichier As String
 
 
 'Attribue un nom à votre champ, le champ est Text1
Champ1 = [Budget de transfert]
Champ2 = [loit consulté]
Champ3 = [Budget objectif]
'Défini le nom de votre fichier Excel
MonFichier = "fiche de consultation vierge pour Cédric.xls"
 
'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXL.Visible = True 'Rend Excel visible...
MonXL.UserControl = True
 
' Création d'une nouvelle feuille
 
Set wksNew = Worksheets.Add
wksNew.Name = "Lot"
 
 
'Ouvre MonFichier
MonXL.Workbooks.Open FileName:="C:\Documents and Settings\c.strazel\Bureau\doc dev automat\fiche de consultation vierge pour Cédric.xls"
 
'Copie les valeurs
MonXL.Range("B6").Value = Champ1 'Envoie le contenu du ou des textboxs dans la ou les cellules
MonXL.Range("K3").Value = Champ2
MonXL.Range("B7").Value = Champ3
 
 
Exit_Commande126_Click:
    Exit Sub
 
Err_Commande126_Click:
    MsgBox Err.Description
    Resume Exit_Commande126_Click
 
 
End Sub

**DMboup** · 12/09/2007, 11h46

Il faut ouvrir le classeur avant d'ajouter une feuille.

Regarde dans la FAQ et l'aide d'Acces sur Workbooks et WorksSheets.

**dricks** · 12/09/2007, 11h50

je ne peux pas le faire dès l'ouverture d'excel depuis access!?

il faut obligatoirement ouvrir le classeur avant???

**AlainTech** · 12/09/2007, 15h29

Puis-je construire une annexe à ma maison avant de posséder une maison?

**dricks** · 12/09/2007, 15h36

je pense m'etre mal expliqué.

dans mon code sa ouvre une page excel et copy mes informations au endroit indiqué. jusque la c'est bon.

ensuite se que je veux faire c'est dans cette page excel d'une part renomé ma feuille et en créer une nouvelle en fesant si possible une copy de la premiere.

est-ce plus compréhensible???

**subnox** · 12/09/2007, 16h20

Voilà comment ajouter une feuille et ajouter les donner dans cette feuille!

Code :

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

1
2
3
4
5
 
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "Report"
 
xlSheet.Cells(1,1) = TonrecordsetouTesvaleur

Après si tu le souhaite tu peux aussi mettre en page ton fichier....

**dricks** · 21/09/2007, 10h09

je reviens vers vous car je n'ai toujours pas trouver de solution a ce probleme et de plus j'ai une autre question
est-il possible de renommer ma feuille avec un intitulé issue de mon formulaire access??

**dricks** · 08/10/2007, 11h44

salut,
j'ai trouvé une solution a mon probleme qui est partiellement resolu

, donc je reviens vous demandez conseil

.
voici mon code:

Code :

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

1
2
3
4
5
6
7
Private Sub Commande207_Click()
Dim resul As String
resul = MsgBox("Ajouter un nouvel onglet ?", vbYesNo)
If resul = 6 Then
 Sheets.Add
End If
End Sub

maintenant ce que je souhaite faire c'est lorsque j'appuie sur mon bouton pour creer une nouvelle feuille je veux qu'il me copie la feuille n°2 dans cette nouvelle feuille.
que dois je rajouter a mon code pour qu'il me fasse cette copie svp!!

**dricks** · 09/10/2007, 11h29

j'avance toujours dans mon application!!

je rencontre un nouveau probleme que je n'arrive pas a résoudre.

maintenant que j'arrive à copier et ajouter un onglet dans ma feuille excel, je voudrais placer la feuille que j'ai copier a la premiere position de mon classeur et non à la suite des autres!
de plus pour renommé mon onglet il me sélectionne bien le lot_consulté mais il m'affiche le numéro du lot et non son nom est-il possible de sélectionné la 2eme colonne de la zone lot_consulté. value???
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Commande207_Click()
Dim resul As String
Dim onglet As String
Dim Nom As String
Dim id_lot
id_lot = lot_consulté.Value ' nom de l'onglet qui sera renommé
'Nom = InputBox("Bonjour,entrez le nom du lot pour ce nouvel onglet s'il vous plait:", "nom du nouvel onglet")
resul = MsgBox("Ajouter un nouvel onglet?", vbYesNo)
   onglet = id_lot
   Sheets("feuille type").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = onglet
Sheets(Sheets.Count).Move , Sheets(1)
End Sub

pouvez vous m'aidez please?!

**dricks** · 15/10/2007, 12h04

rebonjour a tous je suis toujour sur le meme probleme d'affichage je ne trouve pas de solution pouvez vous m'aider please!!??

**Pierre Fauconnier** · 15/10/2007, 12h46

Bonjour

Copier avant la première feuille

Code :

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

Sheets("feuille type").Copy Before=Sheets(1)

Normalement, l'aide à la syntaxe aurait dû te mettre sur la voie. Il faut savoir chercher un peu, parfois, pour trouver...

Quelle est le type du contrôle "Lot_Consulté". Est-ce une combobox, une listbox, une listview???

**dricks** · 15/10/2007, 13h41

pour la copy j'avais trouver la solution mon probleme, c'etais juste pour renommé mon onglet il le renomme mais il me donne que le numero du lot situé dans la colonne 1 alors que je veux le nom du lot situé en colonne 2 de ma liste déroulante.

le type de "Lot_Consulté" est combobox.

j'ai testé d'écrire:

id_lot = [lot_consulté.Column(1,2).Value]

mais il m'affiche un message d'erreur!

aurais tu une idée pour que j'affiche uniquement le nom du lot dans l'onglet??