Discussion :

[tyjez]

Bonjour à tous,

Alors voilà mon soucis. J'ai réussi à ouvrir un classeur excel et à en récupérer son nom.
Par contre je ne vois pas du tout comment le parcourir.

En gros je voudrais parcourir de A2 a A endxlup et récupérer les valeurs contenue.
Je ne parviens pas à le faire sur access alors que sur excel je n'avais pas eu le soucis.

Comment y parvenir SVP?

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
Private Sub btnCreerMED_Click()
    '
    'Ce code va permettre le chargement d'une bande stock
    '
 
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
 
    Dim nameFile As String
    nameFile = ap_OpenFile()
    Dim nomClasseur As String
    nomClasseur = Replace(nameFile, ".xls", "")
    'ouverture du fichier excel a l'aide du bouton parcourir
    xlApp.workbooks.Open (nameFile)
End Sub

[ClaudeLELOUP]

Bonjour,

Cet exemple peut-il t'aider ?

Dans "Classeur1.xls" logé dans le répertoire de la BdD , j'ai 3 prénoms en A2 => A4.

Je peux les lister avec le code suivant :

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
22
Public Sub tst()
  Dim xlApp As Excel.Application
  Dim xlSheet As Excel.Worksheet
  Dim xlBook As Excel.Workbook
  Dim i As Integer
  Dim DernLigne As Long
  ' Accéder à la feuille
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\Classeur1.xls")
  xlApp.Sheets("Feuil1").Select
  DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
  For i = 2 To DernLigne
   Debug.Print xlApp.ActiveSheet.Range("A" & i)
  Next i
  xlApp.Quit
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing
 
 
 
End Sub

[tyjez]

Salut,
Alors merci pour ton aide mais je suis parvenu un. Peu différemment peut être que access 2003 ne prend pas en compte excel.application.

Cependant je rencontre un autre soucis avec end(xlUp) ou il me dit: erreur d'exécution 1004 erreur définie par l'application ou par l'objet

Voici mon code

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
22
23
24
25
26
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
 
    Dim nameFile As String
    nameFile = ap_OpenFile()
 
    Dim nomClasseur As String
    nomClasseur = Replace(nameFile, ".xls", "")
 
    'ouverture du fichier excel a l'aide du bouton parcourir
    xlApp.workbooks.Open (nameFile)
    Dim aWk As Object
    Set aWk = xlApp.activeworkbook
 
    Dim sh As Object
    Set sh = aWk.sheets(1)
 
    Dim lastLine As Long
    Dim firstLine As Long
    firstLine = 2
    lastLine = sh.Range("A1000").End(xlUp).Row
 
    MsgBox ("la derligne est " & lastLine)
 
    xlApp.workbooks.Close (nameFile)

Bonjour,

Cet exemple peut-il t'aider ?

Dans "Classeur1.xls" logé dans le répertoire de la BdD , j'ai 3 prénoms en A2 => A4.

Je peux les lister avec le code suivant :

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
22
Public Sub tst()
  Dim xlApp As Excel.Application
  Dim xlSheet As Excel.Worksheet
  Dim xlBook As Excel.Workbook
  Dim i As Integer
  Dim DernLigne As Long
  ' Accéder à la feuille
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\Classeur1.xls")
  xlApp.Sheets("Feuil1").Select
  DernLigne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
  For i = 2 To DernLigne
   Debug.Print xlApp.ActiveSheet.Range("A" & i)
  Next i
  xlApp.Quit
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing
 
 
 
End Sub

[helas]

Bonjour,

Si la derniere ligne est <1000, il se peut qu'il y ait erreur
pourquoi ne pas mettre A1 tout simplement soit

Code :

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

1
2
 
lastLine = sh.Range("A1").End(xlUp).Row

Helas

[tyjez]

Alors petite explication.
En fait les fichiers excès contiennent des lignes vides et je voulais utiliser cette méthode pour connaître le numéro de la dernière ligne renseignée . Si je pars du haut il va s'arrêter a la première ligne vide rencontrée non ?