Automatisation partage d'écran Win XP en 2 fenêtres XL + autre a pp

Le
Théo
Bonjour,
Je dois automatiser depuis un fichier XL, le partage d'écran vertical entre
le fichier XL actif et une autre application préalablement lancée, sachant
que plusieurs autres applications peuvent être actives en arrière-plan.
Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20389581
bonjour Théo,

voici un exemple :

Sub Macro1()
For Each wds In Application.Windows
fic = wds.Caption
If fic = "MonClasseurA.xls" Or fic = "MonClasseurB.xls" Then
wds.Activate
wds.WindowState = xlNormal
With wds
.Left = 2 + X
.Top = 10 'à adapter
.Width = 500 'à adapter
.Height = 600 'à adapter
End With
X = X + 500 'à adapter
End If
Next
End Sub


isabelle

Théo a écrit :
Bonjour,
Je dois automatiser depuis un fichier XL, le partage d'écran vertical entre
le fichier XL actif et une autre application préalablement lancée, sachant
que plusieurs autres applications peuvent être actives en arrière-plan.
Merci d'avance




Théo
Le #20471371
Merci Isabelle, OK pour le redimensionnement de la fenêtre mais j'ai besoin
de +

" comment programmer depuis un fichier XL, le partage d'écran vertical entre
le fichier XL actif et une autre application préalablement lancée (par ex.
SAP), sachant que plusieurs autres applications peuvent être actives en
arrière-plan."

Il me faut donc identifier les 2 fenêtres applications spécifiques (XL et
SAP par ex.) puis partager l'écran WINDOWS entre elles 2.


"isabelle" a écrit :

bonjour Théo,

voici un exemple :

Sub Macro1()
For Each wds In Application.Windows
fic = wds.Caption
If fic = "MonClasseurA.xls" Or fic = "MonClasseurB.xls" Then
wds.Activate
wds.WindowState = xlNormal
With wds
.Left = 2 + X
.Top = 10 'à adapter
.Width = 500 'à adapter
.Height = 600 'à adapter
End With
X = X + 500 'à adapter
End If
Next
End Sub


isabelle

Théo a écrit :
> Bonjour,
> Je dois automatiser depuis un fichier XL, le partage d'écran vertical entre
> le fichier XL actif et une autre application préalablement lancée, sachant
> que plusieurs autres applications peuvent être actives en arrière-plan.
> Merci d'avance
>
>
.



Publicité
Poster une réponse
Anonyme