IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Exporter un classeur Excel sous le format Tableau


Sujet :

VBA Access

  1. #1
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    9 416
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 9 416
    Points : 58 588
    Points
    58 588
    Billets dans le blog
    11
    Par défaut Exporter un classeur Excel sous le format Tableau
    Salut,

    Est-il possible d'exporter une requête Access dans Excel mais cette dernière soit enregistrée comme un tableau (dans Excel, il faut aller dans Insertion/Tableau) ?

    Je voudrai en ouvrant mon fichier Excel obtenir ceci :
    Nom : 2022-06-13_15h15_08.png
Affichages : 46
Taille : 2,7 Ko

    Mais actuellement, j'ai :
    Nom : 2022-06-13_15h15_47.png
Affichages : 41
Taille : 2,3 Ko

    Car j'utilise :
    Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "R_LISTING_EXTRACT", NFichier, True, ValDate

    Quelqu'un a-t-il une solution ?

    Merci
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  2. #2
    Expert confirmé
    Homme Profil pro
    Webplanneur
    Inscrit en
    octobre 2007
    Messages
    3 372
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : octobre 2007
    Messages : 3 372
    Points : 5 124
    Points
    5 124
    Par défaut
    Salut,
    Si depuis Acc tu lançais l'ouverture du classeur peut-être qu'avec l'objet ListObject et la métode ListObjects.Add, tu pourrais y arriver.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveWorkbook.Sheets("Feuil1").ListObjects.Add(xlSrcRange, Range("$A$1:$D$2"), , xlYes).Name = "Tableau1"
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    CEV UR - ESIROI
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Si la réponse est satisfaisante, alors 1 et n'oubliez pas de clôturer le sujet en cliquant sur

  3. #3
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    9 416
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 9 416
    Points : 58 588
    Points
    58 588
    Billets dans le blog
    11
    Par défaut
    Citation Envoyé par hyperion13 Voir le message
    Si depuis Acc tu lançais l'ouverture du classeur peut-être qu'avec l'objet ListObject et la métode ListObjects.Add, tu pourrais y arriver.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveWorkbook.Sheets("Feuil1").ListObjects.Add(xlSrcRange, Range("$A$1:$D$2"), , xlYes).Name = "Tableau1"
    Ceci fonctionne, mais il ne faut pas oublier de définir les variables :
    Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    'Surtout ne par oublier ces lignes
    Public Const xlSRCRange As Integer = 1
    Public Const xlYes As Integer = 1
    ...
        Set oAppExcel = CreateObject("Excel.Application")
        Set oClasseur = oAppExcel.Workbooks.Open(NFichier)
        Set oFeuille = oClasseur.WorkSheets(1)
        NbTot = oFeuille.Range("A65536").End(xlUp).Offset(1, 0).Row - 1
        Set oCell = oFeuille.Range("A1:AT" & NbTot)
        oAppExcel.CutCopyMode = False
        oFeuille.ListObjects.Add(xlSRCRange, oCell, , xlYes).Name = "Tableau1"
        oClasseur.Save
        oAppExcel.Quit
        Set oAppExcel = Nothing
        Set oClasseur = Nothing
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

Discussions similaires

  1. [XL-2007] Export d'un classeur Excel selon un format CSV
    Par Tonton_glenn dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 18/11/2009, 14h11
  2. [AC-2007] Export PivotTable vers Excel sous XP Pro 64
    Par TTAFR dans le forum Requêtes et SQL.
    Réponses: 0
    Dernier message: 10/08/2009, 15h39
  3. appel classeur excel sous vb6
    Par famdsm dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 04/07/2008, 14h01
  4. Réponses: 3
    Dernier message: 06/09/2007, 17h50
  5. PB importation classeur excel sous access 2003
    Par techinfo37 dans le forum Access
    Réponses: 6
    Dernier message: 04/10/2005, 20h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo