affichage sur excel avec methode par automation

:salut: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 !:roll:
pourriez vous dans ma démarche SVP!!!

Hello !

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

:mouarf:

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:

---

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

---

Il doit s'agir d'un simple :

Code:

---

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

---

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

merci de ton aide sa marche bien.:king:

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!:roll:

Citation:

---

Envoyé par dricks

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...:oops:

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:

---

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 :)

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