Discussion :

[MissMaw]

Bonjour à tous,

je suis quelques peu ennuyée, je travaille sur access 2010 et j'ai besoin d'exporter le résultat de mes requêtes dans un fichier unique excel, où chaque requête serait exportée vers une feuille. Je procède par macro n'étant pas une experte de vb. Mon souci est que lors de l'exécution de la macro, la requête copiée précédemment est écrasée par la suivante et donc je n'ai plus que le résultat de la dernière requête.

Pouvez-vous me conseiller s'il vous plaît?

Bonne journée à tous et Merci d'avance de vous penchez sur mon problème

Maw =)

[rjamin]

Bienvenue sur le forum.

Voyez le lien suivant peut-être y trouverez vous des idées.


http://access.developpez.com/cours/?...onoffice#Excel

[MissMaw]

merci beaucoup, j'ai déjà lu ce tutoriel, il me dit juste que je dois cliquer plusieurs fois sur le fichier excel et je ne vois pas ce que conccrètement cela signifie...

[curt]

Bonjour MissMaw,

il faut peut être insérer une création de feuille dans ton code pour créer une nouvelle feuille, (qui va s'activer par défaut) et ensuite lancer la requête suivante.

En bref, chaque requête envoi sur une feuille distincte.

Si tu veux tout sur la même feuille, il faut détecter la dernière ligne utilisée par la requête précédente et seulement après lancer la requête n+1 qui continue le remplissage de ta feuille.

N'hésites pas à mettre ta base et ta feuille Excel en pièces jointes. Je viens d'en finir avec un sujet identique qui fonctionne.

Curt

[MissMaw]

Bonjour Curt,

je me suis mal exprimée je pense, en fait ce que je veux c'est exécuter ma macro qui exporte plusieurs requête access, celles ci dans le même classeur Excel mais dans des feuilles différentes, car pour le moment, j'exporte tout mais au fur et à mesure mes requêtes s'écrasent pour ne retenir que la dernière qui est exportée. Je voudrais savoir s'il est possible que ma macro exporte une requête par feuille de calcul.

Merci beaucoup de ta réponse

[loufab]

Bonjour,

Avec la commande transfertSpread tu ne peux pas indiquer de plage (donc de feuille) de réception.

Tu as une autre méthode avec VBA Automation. Il y a un exemple dans le tuto sur la recherche (chapitre 3).

La ligne d'activation de la feuille doit être modifiée. Au lieu de activesheet il faut mettre.

Code :

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

    ... .Sheets(nom ou n° de la feuille)

Si elle n'existe pas il faudra la créer au préalable avec un code comme ceci.

Code :

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

1
2
            oWork.Worksheets.Add(After:=oWork.Worksheets(oWork.Worksheets.Count)).Name = strSheetName
            Set oFeuille = oWork.Sheets(strSheetName)

ou strSheetName est le nom de la nouvelle feuille.

Bref du bon code VBA Access/Excel mélangé.

Cordialement,