exporter données vers feuilles excel

exporter données vers feuilles excel - VB/VBA/VBS - Programmation

Marsh Posté le 21-06-2011 à 11:49:40    

Bonjour,
 
J'ai fait du Visual Basic il y a fort fort trop longtemps et tout s'est perdu dans ma mémoire.
 
Sub Departage_equipe4()
 
'Déclaration des noms des joueurs
 
    Dim Joueur_A As String
    Dim Joueur_B As String
    Dim Joueur_C As String
    Dim Joueur_D As String
    Dim Joueur_W As String
    Dim Joueur_X As String
    Dim Joueur_Y As String
    Dim Joueur_Z As String
     
    Joueur_A = InputBox("Entrez le nom du joueur A" )
    Joueur_B = InputBox("Entrez le nom du joueur B" )
    Joueur_C = InputBox("Entrez le nom du joueur C" )
    Joueur_D = InputBox("Entrez le nom du joueur D" )
    Joueur_W = InputBox("Entrez le nom du joueur W" )
    Joueur_X = InputBox("Entrez le nom du joueur X" )
    Joueur_Y = InputBox("Entrez le nom du joueur Y" )
    Joueur_Z = InputBox("Entrez le nom du joueur Z" )
     
 
End Sub
 
Voila ce que j'ai tapé pour le moment. Le problème c'est que je ne retrouve pas le code a utilisé pour que les noms des joueurs qui ont été tapés lors du Inputbox s'affichent dans les bonnes cases de mon tableau excel.
 
Merci beaucoup de votre aide.

Reply

Marsh Posté le 21-06-2011 à 11:49:40   

Reply

Marsh Posté le 01-07-2011 à 13:44:16    

Dim objExcel
Dim objWorkBook
 
Set objExcel = CreateObject("Excel.Application" )
objExcel.visible = True
Set objWorkBook = objExcel.Workbooks.open("C:\MonFichier.xls" )
objexcel.Cells(1, "A" ) = Joueur_A
objexcel.Cells(1, "B" ) = Joueur_B
...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed