Piloter Excel à partir de VB6

Version imprimable

15/02/2011, 14h48
Marcil

Piloter Excel à partir de VB6

Bonjour.
Je débute en VB6 après un cours séjour en VBA. Donc je suis presque nul dans l'un comme dans l'autre des langages....mais je veux apprendre VB6.
Pour le moment, j'ai créé un tableau avec Excel que j'exploite à partir de VB6.
Mon problème est que je suis incapable d'activer la première cellule (2, 2) de la deuxième ligne après avoir complété l'usage de la première ligne. En fait je cherche l'équivalent de ".Offset" que j'utilisais en VBA. et qui permettait de conserver toutes mes données et se positionner au bon endroit.
Merci

[Edit Thierry]J'ai modifié le titre de ton post. Merci de suivre les règles du forum à l'avenir
15/02/2011, 20h21
SfJ5Rpw8

bonsoir,

et pourquoi veut-tu activer une cellule ? cela sert à quoi ? à par faire bouger le curseur ?
montre nous le code utilisé pour complété la 1° ligne..

Merci de ta réponse.Voici mon prograamme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim i As Integer
 
 For i = 5 To 25
 
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Users\Claude\Documents\BanqueVB.xls")
  Set xlSheet = xlBook.Sheets("Feuil1")
 
   xlApp.Visible = True
 
   If xlSheet.Cells(i, 2).Value = "" Then
      xlSheet.Cells(i, 2).Value = txtDate.Text
   Else
      i = i + 1
   End If
   Next

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim i As Integer
 
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Users\Claude\Documents\BanqueVB.xls")
  Set xlSheet = xlBook.Sheets("Feuil1")
 
   xlApp.Visible = True
 
 For i = 5 To 25
 
   If xlSheet.Cells(i, 2).Value = "" Then
      xlSheet.Cells(i, 2).Value = txtDate.Text
   Else
      i = i + 1
   End If
   Next

A chaque passage suivant dans la boucle tu réouvrais le fichier, donc la modification que tu faisais était annulée.

Je ne sais pas si c'est ce que tu veux, mais voici un petit bout de code adapté au tiens:

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
Private Sub Command1_Click()
 
Dim xlapp As Excel.Application  'Application Excel
Dim xlbook As Excel.Workbook    'Classeur Excel
Dim xlsheet As Excel.Worksheet  'Feuille Excel
Dim i As Integer
Dim Chemin As String
 
Chemin = "C:\Users\Claude\Documents\BanqueVB.xls"
 
Set xlapp = CreateObject("Excel.Application")   'Ouverture de l'application Excel
Set xlbook = xlapp.Workbooks.Open(Chemin)       'Ouverture d'un fichier Excel
Set xlsheet = xlbook.Sheets("Feuil1")           'Ouverture de la feuille1 du fichier Excel
xlapp.Visible = True                            'Rend visible l'pplication Excel
 
    For i = 5 To 25
        If xlsheet.Cells(i, 2).Value = "" Then
            xlsheet.Cells(i, 2).Value = txtDate.Text
        End If
    Next i
 
    xlbook.Close    'Ferme le fichier Excel
    xlapp.Quit      'Quitte l'application Excel
 
    Set xlsheet = Nothing
    Set xlbook = Nothing
    Set xlapp = Nothing
 
End Sub