exporter données vers feuilles excel - VB/VBA/VBS - Programmation
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
...
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.