Automatisation partage d'écran Win XP en 2 fenêtres XL + autre a pp
2 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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
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 > > .
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
>
>
.
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 > > .