Discussion :

[sharox]

Bonjour a tous !
J'espère que vous allez bien.

je vous expose mon problème
Donc j'ai un classeur ouvert avec un bouton, sous ce bouton il y a ce 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
Private Sub CommandButton7_Click()
        With CommandButton7
            .Font.Size = 15
            .Font.Bold = True
        End With
 
        Dim xlApp As Object
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True 'rend la deuxieme fenêtre visible
        Dim xlWk As Workbook
        Set xlWk = xlApp.Workbooks.Open("C:\Users\dossier_en_lecture_caché.xls")
        Dim xlWs As Worksheet
        Set xlWs = xlWk.Worksheets(1)
End Sub

Et enfaite ce code ouvre une nouvelle application Excel, ouvre un classeur dedans, pour cela tout ce passe bien
mais maintenant je voudrait Sélectionner une feuille pour copier une feuille du dossier base (le programme de copier coller est simple normalement) donc pas besoin de le faire.

[Marc-L]

Bonjour,

depuis une précédente discussion et là je ne tiens plus, une question me taraude :

pourquoi ouvrir une seconde application Excel à part gâcher deux fois plus de mémoire ?‼

Quelle utilité ? Ce serait si simple avec un Excel unique …

Et pour ta problématique, une présentation claire & exhaustive ne serait pas du luxe !

[sharox]

Bonjour

Pour l'explication vous ne devez pas en savoir plus pour me répondre.
Apres il me semble que je me suis bien expliqué

1) Ouverture d'un dossier dans une autre application (fait)
2) sélectionner une feuille du dossier ouvert par la phase 1) (besoin d'aide)

je ne vois pas ce qui est compliqué...
mais j'ai réussi a trouver la solution merci quand même

Je vous demande pas de connaitre mon dossier mais bien de m'aider dans un bout de programme. Donc pour la résolution de mon problème vous devez pas en savoir d'avantage.

Ensuite pour l'ouverture d'une nouvelle application, c'est très simple
A l'heure d'aujourd'hui les gens pour qui je fait ca n'ont pas des ordinateurs en mousses, Et pour l'ergonomie de ce que je veux faire j'ai besoin d'ouvrir une autre application tout simplement

Mais après si ma réponse te convient pas,je te propose de poser un post, peut être que des gens plus callé que moi j'expliqueront les utilités

Cordialement.

[Marc-L]

Et bien, j'espère que quelqu'un d'autre arrivera à décoder ton besoin !

Une seconde application Excel est inutile (même pour ne pas afficher l'ouverture d'un classeur !)
tout comme la sélection d'un objet n'est absolument pas nécessaire pour effectuer une copie …

Sur ce, la bonne journée !

__________________________________________________________________________________________
If you can’t explain it simply, you don’t understand it well enough … (Albert Einstein)

[Oliv-]

salut,

Marc on s'intéresse aux même questions ;-)

Sharox, quand on veut de l'aide , la moibdre des choses c'est d'expliquer clirement son problème et je confirme que là c'est pas forcèment clair.
c'est quoi "du dossier base"

voilà ta réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
xlWs.select

mais en fait tu veux faire cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    xlWs.Copy After:=Workbooks( _
        ThisWorkbook.Name).Sheets(1)

et entre 2 instances de Excel suis pas sûr que cela fonctionne.

[sharox]

Je suis désoler si je ne suis pas claire pour vous, je me comprend parfaitement mais après c'est vrai que quand vous avez pas le projet devant les yeux c'est peut être plus dur a comprendre

Donc j'ai trouvé ce que je voulais, bon malheureusement j'ai du me rabattre sur le fait de ne pas ouvrir deux application Excel, mais bon je peux toujours l'ouvrir après

Donc voila ce que j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Windows("classeur1.xls").Activate
    Sheets("feuille_a_copier").Select
    Sheets("feuille_a_copier").Copy Before:=Workbooks("classeur2.xls").Sheets(17)

Donc j'explique pour ceux qui galèrerait a comprendre
Je veux copier ma feuille (feuille_a_copier) qui est dans la classeur 1
et je veux l'insérer dans la classeur2 avant/ou a la place (che plus) la feuille 17

Cordialement