p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2012
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2012
    Messages : 127
    Points : 74
    Points
    74

    Par défaut Copier coller un calque en vba

    Bonjour à tous,

    J'ai le code suivant qui fonctionne lorsque je mets visio dans mes références:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim vsoSelection1 As Visio.Selection
        Set vsoSelection1 = Vapp.ActiveWindow.Page.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, "réglage;fond std;traça")
        Vapp.ActiveWindow.Selection = vsoSelection1
        Vapp.ActiveWindow.Selection.Copy
    Cependant je ne souhaite pas mettre visio en référence, donc je ne peux pas utiliser le code ci dessus tel quel...

    J'ai remplacé
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim vsoSelection1 As Visio.Selection
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim vsoSelection1 As Object
    mais ça ne fonctionne pas...

    Une petite idée pour m'aider svp?

  2. #2
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2012
    Messages
    127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2012
    Messages : 127
    Points : 74
    Points
    74

    Par défaut

    Voici les corrections à apporter à mon code pour qu'il fonctionne sans la référence visio:


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim vsoSelection1 As object
        Set vsoSelection1 = Vapp.ActiveWindow.Page.CreateSelection(3, 256, "réglage;fond std;traça")
        Vapp.ActiveWindow.Selection = vsoSelection1
        Vapp.ActiveWindow.Selection.Copy

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

Discussions similaires

  1. copier coller de calques visio en vba
    Par ninouchfis dans le forum VBA Project
    Réponses: 1
    Dernier message: 08/06/2012, 13h32
  2. [XL-2003] Problème copier coller avec MFC et VBA
    Par bbcancer dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 28/11/2011, 10h11
  3. probleme copier coller de cellules filtrées vba
    Par nicola13 dans le forum Excel
    Réponses: 1
    Dernier message: 06/04/2009, 14h36
  4. Copier coller niveau intermediaire en vba
    Par balthior dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/06/2007, 17h05
  5. copier coller avec Pastespecial en VBA
    Par stormless dans le forum Général VBA
    Réponses: 1
    Dernier message: 06/11/2005, 11h59

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