Discussion :

[popo68]

Bonjour a tous !

Voilà, j'opère un transfert de données access vers un fichier excel :

Code :

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

1
2
3
4
5
6
7
8
9
 
dim xl as object
 
set xl = new excel.application
xl.workbooks.add
 
 
xl.activeworkbook.activesheet.range("A1").value = <Données>
etc ...

J'ai pas trouvé comment lui dire que s'il arrive a la fin de la feuille (à la ligne 65000 environ ) qu'il passe sur la feuille 2 ?
Comme je travaille avec une "activesheet" est-ce possible ?

Merci !

[mout1234]

Je ne sais pas s'il y a une meilleure approche, mais à ta place je chercherai à déterminer le nombre de lignes en amont, et tronçonner tes données par lot de 65000....

Pour ma part, dans ce genre de cas, je préfère généralement exporter vers Excel (TransfertSpreadSheet) puis - si besoin est - ouvrir le fichier depuis Access pour le mettre en forme...

[popo68]

Merci bien, mais j'ai pas trop le choix là


Par contre, j'arrive à tronçonner mes données par lot de 65000 , mais je n'ai pas trouvé comment lui dire de repartir sur la deuxième feuille du même classeur... ?

[mout1234]

Désolé, je ne connais pas par coeur.... fais le à la main dasn Excel et enregistres une macro....

[popo68]

Pas possible, dans mon prog, je n'utilise pas le meme fichier excel, l'utilisateur transfert les données dans le dossier qu'il veut en nommant le fichier excel comme il veut.

Je dois tout fait a partir du code vba d'access car je ne pars pas d'un fichier excel existant...

[mout1234]

Je voulais dire de faire une simulation dans Excel en activant l'enregistreur de Macros, histoire de retrouver rapidement une syntaxe pour faire ce que tu souhaites.

Sinon, je suppose que tu dois pouvoir passer à la feuille suivante en naviguant dans les collections des Worksheet... où qq chose comme cela...

[DMboup]

tu dois déclarer la feuille "sheet" et y affectée la feuille que tu veux.
Regarde l'aide sur sheet.

[mahboub]

bonjour ,
je ne sais pas si ca peux t'aider
tu peux avoir le nombre de cellule non vide avec countA

Code :

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

j=Application.WorksheetFunction.CountA(Range("R:R"))

comme dans cette exemple il te donne le nombre de cellule non vide dans la colonne R s'il n'ya pas de case vide dans ta colonne tu aura le nombre de ranger (ton 6500)
et la une fois atteint ton j tu ajoutes une feuille et tu travail sur elle

Code :

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

Worksheets.Add

voila