Discussion :

[norman5]

voila bonjour a tous.
je suis sur un problème depuis deux jours et mes recherches sur internet non rien donnée...

je voudrait communiquer entres deux fichier excel mais le problème c est que ces dernières possèdent deux fenêtres différente (ce que je desirent garder) ce qui empêche le fonction
windows(" ").activate de fonctionner.
cette dernière ne marche pas parce qu'excel n'arrive pas a trouver le fichier car bien qu'ouvert il se trouve dans une autre fenêtre.

merci de m aider dans la mesure il y aurait une alternative a la fonction windows(" ).activate ou un complément a celle ci.

[SfJ5Rpw8]

bonsoir,

à quoi peu bien te servir la fonction windows(" ").activate ?

c'est pour un diaporama ?

[norman5]

ba ça sert simplement a passer d un fichier excel a l autre
mais seulement dans le cas ou les deux fichier se trouve dans le même classeur (la meme fenetre).
moi ce ki minteresse c de pouvoir sélectionner un fichier excel un partir dun autre fichier ne se trouvant pas dans le meme classeur.
mais pour ça la fonction windows("fichier.xls").activate ne marche pas...

[SfJ5Rpw8]

Quand tu dit passer d'un fichier à l'autre c'est juste l'affichage ... ton but n'est pas d'agir sur le contenu de tes classeurs ?


et donc si c'est pour modifier l'affichage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AfficheMonClasseur(stNom As String)
  Dim w As Window
  For Each w In Application.Windows
    Debug.Print w.Caption
    If InStr(1, stNom, w.Caption, vbTextCompare) > 0 Then
     MsgBox "Trouvé : " & w.Caption
     w.Activate
     Exit Sub
    End If
  Next
End Sub

et pour l'appel : AfficheMonClasseur "Classeur1"

[norman5]

nom c pas vraiment ce que je recherche. je vais mieux m expliquer, voila 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
 
Sub Macro1()
Set xls = CreateObject("Excel.Application")
      xls.Visible = True
 
xls.Workbooks.Open Filename:="K:\projet entreprise\programmes\patron.xlsm"
 
 
Set xls2 = CreateObject("Excel.Application")
 
      xls2.Visible = True
      xls2.Workbooks.Open Filename:="K:\projet entreprise\programmes        \interfaceclient.xlsm"
 
'voila donc les 2 fichiers ouverts dans 2 fenêtres differentes     
'maintenant la seul façon pour passer d un fichier a l autre c est ces formules   
 
 xls.Workbooks("patron.xlsm").Activate
 
xls2.Workbooks("interfaceclient.xlsm").Activate
End Sub

tu me dira qu'a priori ca a lair de marcher, seulement les variable xls et xls2 ne sont pas réutilisable dans un autre module ou userform, ce qui m empêche d utiliser ces 2 formules.

en gros ma situation est la suivante :
g 2 fichier (patron.xlsm et interfaceclient.xlsm) et je veux creer des lien entre les 2 (copiage/collage etc..).
pour l instant j ai presque réussi, seulement les formules (xls2.Workbooks("interfaceclient.xlsm").Activate et xls.Workbooks("patron.xlsm").Activate) ne peuvent pas être réutiliser car xls et xls2 perdent leurs valeurs.

si tu arrive a me régler le problème tu et un boss !!

[SfJ5Rpw8]

avant d'aller plus loin, explique moi pourquoi tu crée une nouvelle instance d'excel ?.

Code :

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

Set xls = CreateObject("Excel.Application")