Discussion :

[dricks]

bonjour a tous,

voici mon souci, j'utilise la methode automation pour faire affficher mes informations de mon formulaire access vers excel.

et le probleme qui m'est posé c'est que lorsque j'envoie mes informations vers excel je n'ai qu'une partie de ces informations, j'entends par la que dans ma listebox j'ai 2 colonnes où la premiere est cachée et la deuxième visible par l'utilisateur, et lors de mon transfert vers excel je voudrais que seul les information de ma 2eme colonne soit transféré et pas la première.

je ne sais pas comment faire sa !
pourriez vous dans ma démarche SVP!!!

[bernardmichel]

Hello !

Peux-tu nous montrer ton code, ce sera plus simple pour comprendre...

[dricks]

voici mon code initial sans avoir pour le moment apporté de modification.
mon souci se situe au niveau du "lot consulté" qui affiche le numero du lot qui est dans la colonne masqué et je veux qu'il m'affiche le nom du lot qui est dans la 2ème colonne visible dans le formulaire.

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
Private Sub Commande126_Click()
 
On Error GoTo Err_Commande126_Click
 
Dim Champ1 As String
Dim Champ2 As String
Dim Champ3 As String
Dim MonFichier As String
 
 
 'Attribue un nom au champ
Champ1 = [Budget de transfert]
Champ2 = [lot consulté]
Champ3 = [Budget objectif]
'Défini le nom de votre fichier Excel
MonFichier = "fiche de consultation vierge.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'un nouvel onglet
'a voir
 
'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

[bernardmichel]

Il doit s'agir d'un simple :

Code :

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

Champ1 = [Budget de transfert].Column(1)

Tu devras peut-être modifier le numéro de colonne (la premère à gauche est la "0")

[dricks]

merci de ton aide sa marche bien.

et j'aurais une derniere question en esperant que tu pourra m'aider !!
je souhaite également ajouter du moins dupliquer la feuille et la renommer excel dans le meme fichier aurais tu une idée de comment je pourrais procéder STP!

[bernardmichel]

je souhaite également ajouter du moins dupliquer la feuille et la renommer excel dans le meme fichier

Excuses-moi mais je ne comprends pas ce que tu veux dire...

[dricks]

je souhaite ajouté et renomer une nouvelle feuille (onglet) a mon fichier excel

voici le code que l'on ma conseillé mais il ne fonctionne pas!!

Code :

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

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

pourrais tu m'aider stp!!

j'espere avoir été un peu plus clair

[bernardmichel]

Va regarder dans la et plus précisément ici tu devrais y trouver ton bonheur