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

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    octobre 2003
    Messages
    50
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2003
    Messages : 50
    Points : 32
    Points
    32

    Par défaut automation excel : comment indiquer la feuille de travail ?

    Bonjour,

    J'ai rerere une question mais cette fois pas dur. Meme si je trouve pas !!!!

    Je récupére des données acces et essaye de les envoyer sous des feuilles excel. J'ai fait et reupérer cela . qui ùa fois me va tre bien.

    Mais je ne trouve pas comment faire pour lui dire de planter les données dans tel feuille
    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
     
    'Défini le nom de votre fichier Excel
    MonFichier = "PREVTRESTIB.xls"
     
    'Ouvre l'application Excel
    Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
    MonXL.Visible = True 'Rend Excel visible...
    MonXL.UserControl = True
     
    'Ouvre MonFichier
    MonXL.Workbooks.Open fileName:="C:\PROJET_GIE_MAT\" & MonFichier
     
    'Copie les valeurs
    'MonXL.Range("A2").Value = Champ1 'Envoie le contenu du ou des textboxes dans la ou les cellules
     
    MonXL.Range("c13").Value = mois1_LCR
    MonXL.Range("d13").Value = mois2_LCR
    avec cela j'ouvre le fichier : 'Ouvre MonFichier
    MonXL.Workbooks.Open fileName:="C:\PROJET_GIE_MAT\" & MonFichier
    mais je ne sais pas lui preciser la feuille
    Quelques fois, on trouve. D'autres fois on continue à chercher !!!

  2. #2
    Nouveau membre du Club
    Inscrit en
    juin 2003
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : juin 2003
    Messages : 34
    Points : 25
    Points
    25

    Par défaut

    pour la feuille tu peux faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MonXL.Sheets("ma feuille").Select
    L'ignorance n'est pas une tarre, mais la feneantise OUI

  3. #3
    Nouveau membre du Club
    Inscrit en
    juin 2003
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : juin 2003
    Messages : 34
    Points : 25
    Points
    25

    Par défaut

    sert toi de ce code pour trouver ta sol :
    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
    Dim dbs As Database
    Dim strSQL As String
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("requete")
    Set App = CreateObject("Excel.application")
    App.Workbooks.Open "C:\mon chemin\mon fichier.xls"
    App.Sheets("ma feuille").Select
    With App.Worksheets("ma feuille")
        For i = 1 To rst.RecordCount
            For j = 0 To l
                .Cells(i + 1, j + 1) = rst(j).Value
            Next j
            rst.MoveNext
        Next i
    End With
    rst.Close
    dbs.Close
    L'ignorance n'est pas une tarre, mais la feneantise OUI

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 02/09/2009, 10h35
  2. Réponses: 9
    Dernier message: 20/09/2007, 12h55
  3. [EXCEL] Comment renomer une feuille?
    Par bob1980 dans le forum Delphi
    Réponses: 1
    Dernier message: 30/10/2006, 11h56
  4. [VBA][excel]comment copier la feuille selectionnée
    Par megapacman dans le forum Access
    Réponses: 2
    Dernier message: 21/03/2006, 13h03
  5. [Excel] comment savoir si une feuille est ouverte ?
    Par scully2501 dans le forum Access
    Réponses: 11
    Dernier message: 07/10/2005, 15h02

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