Discussion :

[geo.mar94]

Bonjour messieurs, dames,

Je cherche un moyen s'il vous plait pour créer un bouton qui me permette de copier ma zone de liste qui est un résultat d'un réquete, dans excel afin de me permettre par la suite de faire un mailing.

Merci d'avance pour toutes vos réponses.

[linda15975]

Voilà un code qui pourra peut-être t'aider:

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
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim i As Integer, j As Integer
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
'Récupération du classeur par défaut
Set wbExcel = appExcel.ActiveWorkbook
'Récupération de la feuille par défaut
Set wsExcel = wbExcel.ActiveSheet
appExcel.Visible = True
 
For i = 0 To lstResults.ListCount - 1
    For j = 0 To lstResults.ColumnCount - 1
        wsExcel.Range(Chr(j + 65) & i + 1).Value = lstResults.List(i, j)
    Next j
Next i

[geo.mar94]

J'ai mis ce code avec mon bouton et tt mais le souci c qu'il m'affice ca regarde :

[linda15975]

il te manque une référence. Dans VBA, va dans outils>référence et coche microsoft excel x.x object library

[geo.mar94]

Faut que taper quelque chose dans le code non?

[geo.mar94]

j'ai pas dans outil référence, a attend je sais pe etre pourquoi je suis mode bug

[geo.mar94]

Toujours pareil ma tite linda

[linda15975]

tu as bien excel d'installer sur ton poste?

[geo.mar94]

bien sur faut pe etre que je choisisse un nom a ma feuille excel et classeur non?

[geo.mar94]

Que signifie ceci pour toi :

Code :

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

1
2
3
4
im appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim i As Integer, j As Integer

[linda15975]

dis moi ce qu'il ya de cocher dans outils reference

[linda15975]

c'est la déclaration des variables

[geo.mar94]

Visual basic for applications
Microsoft access 9.0 objet library
OLE automation
Microsoft active x data
Microsoft excel 9.0 object library

Mais là il me fais une autre erreur au faite

[geo.mar94]

Code :

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

wsExcel.Range(Chr(j + 65) & i + 1).Value = lstResults.List(i, j)

[linda15975]

et c'est koi le message d'erreur?

[geo.mar94]

Code :

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

 lstResults.List

IL me surligne ca

[linda15975]

c bien le bon nom de la liste? ya pa de case vide? c koi le message?

[geo.mar94]

j'ai pas de msg j'ai juste ca de surligne en jaune. et oui je crois que c bien le nom de ma liste

[geo.mar94]

ah non excuse moi le msg est membre de donnée ou de méthode introuvable

[linda15975]

c koi comme liste? zone de liste, liste modifiable?