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 :

Ouvrir Excel par Access


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Analyse système
    Inscrit en
    Mai 2010
    Messages
    149
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2010
    Messages : 149
    Par défaut Ouvrir Excel par Access
    Bonjour,

    Voilà, je réusis à ouvrir un fichier Excel et d'y écrire des données à l'intérieure (après un clic de bouton), mais seulement une fois sur deux. Voici mon code...

    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
    Private Sub Commande202_Click()
    'Ouvrir un fchier excel et faire une mise en page.
    Dim AppExcel As Excel.Application 'Application excel
    Dim WbExcel As Excel.Workbook 'Classeur Excel
    'Dim WsExcel As Excel.Worksheet 'Feuille Excel
     
    Set AppExcel = CreateObject("excel.application")
    Set WbExcel = AppExcel.Workbooks.Add
    'Set WsExcel = AppExcel("feuille1")
     
     
    'AppExcel.DisplayAlerts = False
    AppExcel.Visible = True
     
    WbExcel.Sheets("feuil1").Select
    Range("b2").Select
    ActiveCell.FormulaR1C1 = "99"
     
     
    'WbExcel.Application.Quit
     
    'Set WsExcel = Nothing
    Set WbExcel = Nothing
    Set AppExcel = Nothing
    End Sub
    La deuxième fois que je clic sur le bouton, après avoir fermé le fichier excel, on me donne l'erreure suivant "Erreur d'exécution ''1004": La méthoode 'Range' de l'objet '_Global' a échoué" sur la ligne "Range("b2").Select".

    Merci pour votre précieux intéret.

    Jean-François

  2. #2
    Membre éclairé

    Inscrit en
    Janvier 2005
    Messages
    532
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 532
    Par défaut
    salut,
    je crois que sa va se résoudre de cette façon
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    WbExcel.Sheets("feuil1").Select
    WbExcel.Sheets("feuil1").Range("b2").Select
    ActiveCell.FormulaR1C1 = "99" ' et si ça ne marche pas avec cette ligne 'remplacez la par la ligne suivante
    WbExcel.Sheets("feuil1").Range("b2").FormulaR1C1 = "99"
    Bonne chance
    Merci.

  3. #3
    Membre confirmé
    Homme Profil pro
    Analyse système
    Inscrit en
    Mai 2010
    Messages
    149
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2010
    Messages : 149
    Par défaut
    Citation Envoyé par hocine Voir le message
    salut,
    je crois que sa va se résoudre de cette façon
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    WbExcel.Sheets("feuil1").Select
    WbExcel.Sheets("feuil1").Range("b2").Select
    ActiveCell.FormulaR1C1 = "99" ' et si ça ne marche pas avec cette ligne 'remplacez la par la ligne suivante
    WbExcel.Sheets("feuil1").Range("b2").FormulaR1C1 = "99"
    Bonne chance
    Merci.
    Cela est juste et bon.

  4. #4
    Membre éclairé

    Inscrit en
    Janvier 2005
    Messages
    532
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 532
    Par défaut
    salut, un petit bonus
    à la place de votre code vous pouviez le simplifier avec WITH
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    with WbExcel.Sheets("feuil1")
    .Select
       with .Range("b2")
       .Select
       .FormulaR1C1 = "99"
       end with
    end with
    BONNE CHANCE.

  5. #5
    Membre confirmé
    Homme Profil pro
    Analyse système
    Inscrit en
    Mai 2010
    Messages
    149
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Conseil

    Informations forums :
    Inscription : Mai 2010
    Messages : 149
    Par défaut
    Citation Envoyé par hocine Voir le message
    salut, un petit bonus
    à la place de votre code vous pouviez le simplifier avec WITH
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    with WbExcel.Sheets("feuil1")
    .Select
       with .Range("b2")
       .Select
       .FormulaR1C1 = "99"
       end with
    end with
    BONNE CHANCE.
    Hé bien cela est très gentil. Je suis nouveau dans Word alors ça va aider les jours qui viennent. Aussi, depuis que j'utilise ta solution, je n'ai pas de "treads" Excel qui restent ouverts en back... Ainsi, Windows me faisait des erreurs à la fermeture.

  6. #6
    Membre éclairé

    Inscrit en
    Janvier 2005
    Messages
    532
    Détails du profil
    Informations forums :
    Inscription : Janvier 2005
    Messages : 532
    Par défaut
    salut,
    heureux pour vous.
    Bonne continuation

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

Discussions similaires

  1. [AC-2010] Proteger un ficher excel par access
    Par BAYRAL dans le forum VBA Access
    Réponses: 1
    Dernier message: 03/07/2012, 12h55
  2. Réponses: 2
    Dernier message: 16/03/2009, 19h12
  3. Fermer Excel par Access
    Par Secco dans le forum VBA Access
    Réponses: 3
    Dernier message: 22/12/2008, 16h59
  4. Suppression d'une zone dans Excel par Access
    Par asterpc dans le forum VBA Access
    Réponses: 3
    Dernier message: 15/11/2007, 17h48

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