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

Macros et VBA Excel Discussion :

Travailler sur des fichiers xlsx non visibles


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    octobre 2007
    Messages
    166
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2007
    Messages : 166
    Points : 91
    Points
    91
    Par défaut Travailler sur des fichiers xlsx non visibles
    Bonjour,

    à partir d'un fichier excel, j'ouvre un autre fichier que je rend non visible par le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Windows("Revue Referentiel.xls").Visible = False
    Or, quand je veux chercher une donnée dans ce fichier, j'utilise par ex le code suivant
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Windows("Revue Referentiel.xls").Activate
    Sheets("REF").Select
    Nligne = Cells(1, 1).CurrentRegion.Rows.Count
    le fichier redevient visible
    Je voudrais réaliser la même chose sans voir son affichage

    Existe il une méthode ?

    Merci d'avance

  2. #2
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    juillet 2008
    Messages
    9 432
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : juillet 2008
    Messages : 9 432
    Points : 31 861
    Points
    31 861
    Par défaut
    Pa besoin d'activer ou de sélectionner quoique ce soit en utilisant une variable objet de type workbook

    exemple
    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
    Sub TEST()
    Dim Wbk As Workbook
    Dim Fichier As String
    Dim Nligne As Long
     
    Fichier = "C:\Users\VAL\Desktop\XXX.xlsx"
    Set Wbk = Workbooks.Open(Fichier)
    Wbk.Windows(1).Visible = False
     
    With Wbk.Worksheets("RF")
        Nligne = .Cells(1, 1).CurrentRegion.Rows.Count
        MsgBox Nligne
     
    End With
    Wbk.Close False
    Set Wbk = Nothing
    End Sub
    Cordialement.
    J'utilise toujours le point comme séparateur décimal dans mes tests.

  3. #3
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    16 034
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2007
    Messages : 16 034
    Points : 32 858
    Points
    32 858
    Par défaut
    Citation Envoyé par grimgrim Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Windows("Revue Referentiel.xls").Activate
    Sheets("REF").Select
    Nligne = Cells(1, 1).CurrentRegion.Rows.Count
    Si tu actives, tu rends visible.
    Mais il est très rarement indispensable d'activer.

    A la place de ton code, essaye :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Nligne = Workbooks("Revue Referentiel.xls").Sheets("REF").Cells(1, 1).CurrentRegion.Rows.Count
    [/QUOTE]
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  4. #4
    Membre régulier
    Profil pro
    Inscrit en
    octobre 2007
    Messages
    166
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2007
    Messages : 166
    Points : 91
    Points
    91
    Par défaut
    Merci beaucoup pour ces informations.

    Par contre, quand je lance un userform, j'ai mon classeur visible de mon userform

    Est il possible de ne pas le rendre visible alors que je travaille sur le userform ?

    Cordialement,

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

Discussions similaires

  1. Travailler avec des fichiers sur lecteur réseau
    Par Dvorak67 dans le forum VB.NET
    Réponses: 0
    Dernier message: 06/12/2012, 18h39
  2. Réponses: 6
    Dernier message: 06/12/2007, 10h33
  3. Réponses: 1
    Dernier message: 27/10/2007, 11h36
  4. Extraction de données sur des fichiers excel
    Par iupgeii dans le forum MFC
    Réponses: 3
    Dernier message: 23/01/2004, 14h53
  5. Travailler sur des données qui doivent être triées
    Par haypo dans le forum XML/XSL et SOAP
    Réponses: 2
    Dernier message: 19/07/2003, 18h13

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