salut,
Dans un classeur, j'ai cr=E9er une macro qui ouvre un=20
documment Excel dans une autre fenetre. Comment faire=20
pour donner la main =E0 cette fenetre ?
voici la macro :
Sub Main()
=20
' Start Excel and loads the text file
On Error GoTo Fin
Dim excelApp As Object
Set excelApp =3D CreateObject("Excel.Application")
On Error GoTo 0
excelApp.Visible =3D True
excelApp.Workbooks.OpenText Filename:=3D"C:\Documents=20
and Settings\MARMONIER_C\Bureau\Travail En=20
Cours\CreationComposant.xls"
=20
Fin:
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
B.Reumont
Bonjour J'ai le même problème... J'utilise un MENU dans une feuille UserForm et lorsque je clique sur un des boutons du menu j'active la feuille concernée, mais je n'ai pas le focus. Pour obtenir le focus je suis obligé de fermer mon menu avec la propriété HIDE ( UserForm1.Hide ). Pour faire afficher mon menu (Userform1.Show) j'ai placé un bouton dans la barre de menu en le reliant vers une macro... mais alors je perds l'intérêt de mon menu ... autant utiliser les onglets en bas des feuilles et placer des boutons avec macros dans ces feuilles. Si une personne peut me donner la solution pour laisser la fenêtre menu visible en même temps qu'une feuille et obtenir le focus là ou je clique ( soit le menu ou la feuille.) Merci A+ Bernard
-----Message d'origine----- salut, Dans un classeur, j'ai créer une macro qui ouvre un documment Excel dans une autre fenetre. Comment faire pour donner la main à cette fenetre ?
voici la macro :
Sub Main()
' Start Excel and loads the text file On Error GoTo Fin Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") On Error GoTo 0 excelApp.Visible = True excelApp.Workbooks.OpenText Filename:="C:Documents and SettingsMARMONIER_CBureauTravail En CoursCreationComposant.xls"
Fin:
End Sub .
Bonjour
J'ai le même problème...
J'utilise un MENU dans une feuille UserForm et lorsque je
clique sur un des boutons du menu j'active la feuille
concernée, mais je n'ai pas le focus. Pour obtenir le
focus je suis obligé de fermer mon menu avec la propriété
HIDE ( UserForm1.Hide ). Pour faire afficher mon menu
(Userform1.Show) j'ai placé un bouton dans la barre de
menu en le reliant vers une macro... mais alors je perds
l'intérêt de mon menu ... autant utiliser les onglets en
bas des feuilles et placer des boutons avec macros dans
ces feuilles.
Si une personne peut me donner la solution pour laisser la
fenêtre menu visible en même temps qu'une feuille et
obtenir le focus là ou je clique ( soit le menu ou la
feuille.)
Merci
A+
Bernard
-----Message d'origine-----
salut,
Dans un classeur, j'ai créer une macro qui ouvre un
documment Excel dans une autre fenetre. Comment faire
pour donner la main à cette fenetre ?
voici la macro :
Sub Main()
' Start Excel and loads the text file
On Error GoTo Fin
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
On Error GoTo 0
excelApp.Visible = True
excelApp.Workbooks.OpenText Filename:="C:Documents
and SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls"
Bonjour J'ai le même problème... J'utilise un MENU dans une feuille UserForm et lorsque je clique sur un des boutons du menu j'active la feuille concernée, mais je n'ai pas le focus. Pour obtenir le focus je suis obligé de fermer mon menu avec la propriété HIDE ( UserForm1.Hide ). Pour faire afficher mon menu (Userform1.Show) j'ai placé un bouton dans la barre de menu en le reliant vers une macro... mais alors je perds l'intérêt de mon menu ... autant utiliser les onglets en bas des feuilles et placer des boutons avec macros dans ces feuilles. Si une personne peut me donner la solution pour laisser la fenêtre menu visible en même temps qu'une feuille et obtenir le focus là ou je clique ( soit le menu ou la feuille.) Merci A+ Bernard
-----Message d'origine----- salut, Dans un classeur, j'ai créer une macro qui ouvre un documment Excel dans une autre fenetre. Comment faire pour donner la main à cette fenetre ?
voici la macro :
Sub Main()
' Start Excel and loads the text file On Error GoTo Fin Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") On Error GoTo 0 excelApp.Visible = True excelApp.Workbooks.OpenText Filename:="C:Documents and SettingsMARMONIER_CBureauTravail En CoursCreationComposant.xls"
Fin:
End Sub .
Frédéric Sigonneau
Bonjour,
Juste avant l'étiquette Fin, essaye d'ajouter :
AppActivate excelApp.Name
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
salut, Dans un classeur, j'ai créer une macro qui ouvre un documment Excel dans une autre fenetre. Comment faire pour donner la main à cette fenetre ?
voici la macro :
Sub Main()
' Start Excel and loads the text file On Error GoTo Fin Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") On Error GoTo 0 excelApp.Visible = True excelApp.Workbooks.OpenText Filename:="C:Documents and SettingsMARMONIER_CBureauTravail En CoursCreationComposant.xls"
Fin:
End Sub
Bonjour,
Juste avant l'étiquette Fin, essaye d'ajouter :
AppActivate excelApp.Name
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
salut,
Dans un classeur, j'ai créer une macro qui ouvre un
documment Excel dans une autre fenetre. Comment faire
pour donner la main à cette fenetre ?
voici la macro :
Sub Main()
' Start Excel and loads the text file
On Error GoTo Fin
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
On Error GoTo 0
excelApp.Visible = True
excelApp.Workbooks.OpenText Filename:="C:Documents
and SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls"
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
salut, Dans un classeur, j'ai créer une macro qui ouvre un documment Excel dans une autre fenetre. Comment faire pour donner la main à cette fenetre ?
voici la macro :
Sub Main()
' Start Excel and loads the text file On Error GoTo Fin Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") On Error GoTo 0 excelApp.Visible = True excelApp.Workbooks.OpenText Filename:="C:Documents and SettingsMARMONIER_CBureauTravail En CoursCreationComposant.xls"
