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!!![]()
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!!![]()
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!![]()
C'est plutôt
On ajoute une feuille à la Collection Worksheets.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Worksheets.Add
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"
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???![]()
Donne-nous ton code complet pour l'ouverture du classeur et la création de feuille.
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
Il faut ouvrir le classeur avant d'ajouter une feuille.
Regarde dans la FAQ et l'aide d'Acces sur Workbooks et WorksSheets.
je ne peux pas le faire dès l'ouverture d'excel depuis access!?
il faut obligatoirement ouvrir le classeur avant???![]()
Puis-je construire une annexe à ma maison avant de posséder une maison?
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???![]()
Voilà comment ajouter une feuille et ajouter les donner dans cette feuille!
Après si tu le souhaite tu peux aussi mettre en page ton fichier....
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
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??![]()
salut,
j'ai trouvé une solution a mon probleme qui est partiellement resolu, donc je reviens vous demandez conseil
.
voici mon code:
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.
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
que dois je rajouter a mon code pour qu'il me fasse cette copie svp!!![]()
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:
pouvez vous m'aidez please?!
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![]()
![]()
rebonjour a tous je suis toujour sur le meme probleme d'affichage je ne trouve pas de solution pouvez vous m'aider please!!??
Bonjour
Copier avant la première feuille
Normalement, l'aide à la syntaxe aurait dû te mettre sur la voie. Il faut savoir chercher un peu, parfois, pour trouver...
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets("feuille type").Copy Before=Sheets(1)
Quelle est le type du contrôle "Lot_Consulté". Est-ce une combobox, une listbox, une listview???
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:mais il m'affiche un message d'erreur!id_lot = [lot_consulté.Column(1,2).Value]
aurais tu une idée pour que j'affiche uniquement le nom du lot dans l'onglet??
devrait aller...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 id_lot = lot_consulté.Column(1)
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager