Discussion :

[drthodt]

Salut,
j'ai à nouveau un problème technique( ).
J'importe depuis Excel des données sous ce modèle:

DoCmd.TransferSpreadsheet acImport, 8, "NomdeMaTable", "C:\Fichier.xls", True, "A1:G12"

ça fonctionne parefaitement,mais cette méthode implique que je connaisse à l'avance le nombre de lignes de mon fichier Excel (ou que j'en sélectionne beaucoup plus que nécessaire) - car si je n'en sélectionne pas assez et que j'ai plus de lignes dans mon fichier que la définition de ma plage de cellules,tout ne sera pas recopié dansla base.
J'aimerais donc savoir comment je peux compter depuis access le nombre de lignes de ma feuille excel pour adapter la plage de cellule de mon transferspreadsheet en fonction (est-ce possible par l'utilisation d'une variable?Et comment?).
Merci d'avance.

[argyronet]

Bonjour,

Tu n'es pas obligé de préciser la plage...
Mais si tu veux la déterminer, il te faut passer par DAO, connaître le nombre d'enregistrements avec RecordCount et concevoir une fonction idoine qui construit la chaîne de ta plage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function fnctBuildExcelOutputRange(ByVal ColName As String, ByVal NBRecords As Long, Optional ByVal StartingRow As Long = 1) As String
  fnctBuildExcelOutputRange = ColName & Trim(Str(StartingRow)) & ":" & ColName & Trim(Str(NBRecords))
End Function
 
Sub Exemple()
Dim lngNBRecord As Long
Dim strOutputRange As String
  '[...]
  lngNBRecord = oRS.RecordCount
  '[...]
 
  strOutputRange = fnctBuildExcelOutputRange("A", lngNBRecord)
  DoCmd.TransferSpreadsheet acImport, 8, "NomdeMaTable", "C:\Fichier.xls", True, strOutputRange
End Sub

Argy

[drthodt]

Bonjour,

Tu n'es pas obligé de préciser la plage...
Mais si tu veux la déterminer, il te faut passer par DAO, connaître le nombre d'enregistrements avec RecordCount et concevoir une fonction idoine qui construit la chaîne de ta plage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function fnctBuildExcelOutputRange(ByVal ColName As String, ByVal NBRecords As Long, Optional ByVal StartingRow As Long = 1) As String
  fnctBuildExcelOutputRange = ColName & Trim(Str(StartingRow)) & ":" & ColName & Trim(Str(NBRecords))
End Function
 
Sub Exemple()
Dim lngNBRecord As Long
Dim strOutputRange As String
  '[...]
  lngNBRecord = oRS.RecordCount
  '[...]
 
  strOutputRange = fnctBuildExcelOutputRange("A", lngNBRecord)
  DoCmd.TransferSpreadsheet acImport, 8, "NomdeMaTable", "C:\Fichier.xls", True, strOutputRange
End Sub

Argy

Ok merci.
Tu me dis que je ne suis pas obligé de détermnier ma plage: dans ce cas-là je fais comment? J'utilise le Trasferdataspreadsheet mais sans l'argument de plage??

[cafeine]

Hello,

le moins que tu puisses faire, c'est de tester ce que tu proposes.

[drthodt]

Hello,

le moins que tu puisses faire, c'est de tester ce que tu proposes.

Oui pardon.
Le truc c'est que je n'ai pas Access chez moi mais au boulot ou je suis en stage,je ne pourrais le faire que demain.
Donc au pire je reposterai demain matin après mon test ;-)
Merci pour ton code en tout cas.

[cafeine]

Ok, je comprends mieux,

sinon j'ai lu dans un post aujourd'hui (donc tu peux faire une recherche) une personne qui avait réussi en précisant simplement le nom de l'onglet suivi d'un point d'exclamation à la place d'une plage.

[drthodt]

Ok, je comprends mieux,

sinon j'ai lu dans un post aujourd'hui (donc tu peux faire une recherche) une personne qui avait réussi en précisant simplement le nom de l'onglet suivi d'un point d'exclamation à la place d'une plage.

Salut,
j'ai retourvé le message dont tu parles avec l'onglet,ça marche impec c'est ce qu'il me fallait.
Merci beaucoup