Discussion: ActiveCell avec Late Binding [Toutes versions]

  1. #1
    Membre averti
    Inscrit en
    février 2011
    Messages
    342
    Détails du profil
    Informations forums :
    Inscription : février 2011
    Messages : 342
    Points : 410
    Points
    410

    Par défaut ActiveCell avec Late Binding

    Bonjour,

    Je désire piloter MS Excel depuis MS Access.
    De façon à éviter les références à Microsoft Excel 12 / 13 / 16 dans le menu Tools /references, je veux utiliser la méthode du "Late binding". Malheureusement, j'ai quelques problèmes avec certaines fonctions Excel...
    Je ne parviens pas à utiliser ACTIVECELL de MS Excel.

    Voici mon code VBA de MS Access pour rajouter une ligne à une feuille Excel qui contient déjà quelques lignes de données.
    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    Function demoEarly_Late()
     
    'Requires to define in Tools menu the reference to Microsoft Excel Object Library
    'Beware : this object library may be different from PC to PC : version 11 or 12 or..
    'These early binding lines used during development :
    'Dim objXL As Excel.Application
    'Dim objWkbk As Workbook
    'Dim objSht As Worksheet
    'These late binding lines used for production to avoid reference to Excel 11, 12 or 16
    Dim objXL As Object
    Dim objWkbk As Object
    Dim objSht As Object
    Dim R As Integer        'R = Row nbr in Excel sheet (I should not have to deal with more than 32000 rows !)
     
     
    Set objXL = CreateObject("Excel.Application")
     
    Set objWkbk = objXL.Workbooks.Open("C:/Temp/Test.xlsx")
     
    'The first sheet with data is the sheet called 'Musees'
    Set objSht = objWkbk.Worksheets("Musees")
     
    objXL.Visible = True
     
    'syntax for late binding :
    objWkbk.Sheets("Musees").Select
     
    'find last cell used
    objWkbk.Sheets("Musees").Range("A65536").End(xlUp).Select
    'syntax for early binding (development mode) :
    'R = activecell.Row                  'the last row with data
    'syntax for late binding (Prod mode) :
    'R = objWkbk.Sheets("Musees").ActiveCell.Row        'ERREUR : Object doesn't support this property or method !!!!!
    R = objSht.ActiveCell.Row                           'ERREUR : Object doesn't support this property or method !!!!!
     
    'The following line works perfectly the first time you use it.  If you run this function again (in a loop), it will fail !
    'R = ActiveWindow.ActiveCell.Row
     
     
    R = R + 1
     
    objWkbk.Sheets("Musees").Cells(R, 1).Value = "Blah Blah Blah"
     
    objWkbk.Save
    objWkbk.Close
    objXL.Quit
     
    Set objWkbk = Nothing
    objSht = Nothing
    objXL = Nothing
     
    End Function

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    Salut,

    ActiveCell est accessible depuis Application sous Excel =>
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre averti
    Inscrit en
    février 2011
    Messages
    342
    Détails du profil
    Informations forums :
    Inscription : février 2011
    Messages : 342
    Points : 410
    Points
    410

    Par défaut

    Je croyais l'avoir déjà essayé....
    Merci pour le coup de main. ça marche super.

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

Discussions similaires

  1. Problème late binding avec Word et Outlook
    Par sibama dans le forum VB.NET
    Réponses: 4
    Dernier message: 06/12/2009, 22h24
  2. Réponses: 3
    Dernier message: 27/10/2007, 12h33
  3. Late binding et Objets COM
    Par M4tthieu dans le forum C#
    Réponses: 4
    Dernier message: 07/08/2007, 13h28
  4. [C#, .NET 1.1]Ouvrir un classeur excel en late binding
    Par tontonplaisir dans le forum Windows Forms
    Réponses: 3
    Dernier message: 28/06/2007, 11h54
  5. Réponses: 2
    Dernier message: 21/08/2006, 22h27

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