Quelqu'un peut-il me donner la marche a suivre soius=20
Escel 2003 pour cr=E9er un bouton ou une icone perso dans=20
la barre d'outil general pour que en cliquant dessus =E7a=20
ouvre un mod=E8le .xlt (se trouvant dans le dossier sous=20
C:\Documents and Settings\Boa\Application=20
Data\Microsoft\Mod=E8les\
Merci d'avance de vos r=E9ponses
Cordialement,
Boa73
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
michdenis
Bonjour Boa73,
Barre des menus de la feuille de calcul / affichage / barre d'outils / Personnaliser /
Dans la fenêtre qui s'ouvre : Choisir onglet Commandes
Dans la liste de la section de gauche : choisir l'item Macro.
Dans la fenêtre de droite, sélectionner l'icône disponible (sourire) et le glisser dans la barre d'outils désirée.
Toujours en conservant la boîte "personnalisation ouverte" , fais un clic gauche sur le bouton que tu viens d'insérer ... dans le menu contextuel tu as la possibilité de définir un nouvel icône pour le bouton, de lui ajouter du texte et de lui associer une macro que tu auras pris soin de définir à préalable.
'------------------------ Sub OuvrirMonModele()
Workbooks.Open "C:Documents and SettingsBoaApplication DataMicrosoftModèlesNomDuModèle.xlt"
end sub '------------------------
End sub
Salutations!
"Boa73" a écrit dans le message de news:00f501c3ce2b$3d6b3ea0$
Bonjour à tous,
Quelqu'un peut-il me donner la marche a suivre soius Escel 2003 pour créer un bouton ou une icone perso dans la barre d'outil general pour que en cliquant dessus ça ouvre un modèle .xlt (se trouvant dans le dossier sous C:Documents and SettingsBoaApplication DataMicrosoftModèles
Merci d'avance de vos réponses Cordialement, Boa73
Bonjour Boa73,
Barre des menus de la feuille de calcul / affichage / barre d'outils / Personnaliser /
Dans la fenêtre qui s'ouvre : Choisir onglet Commandes
Dans la liste de la section de gauche : choisir l'item Macro.
Dans la fenêtre de droite, sélectionner l'icône disponible (sourire) et le glisser dans la barre d'outils désirée.
Toujours en conservant la boîte "personnalisation ouverte" , fais un clic gauche sur le bouton que tu viens d'insérer ...
dans le menu contextuel tu as la possibilité de définir un nouvel icône pour le bouton, de lui ajouter du texte et de lui
associer une macro que tu auras pris soin de définir à préalable.
'------------------------
Sub OuvrirMonModele()
Workbooks.Open "C:Documents and SettingsBoaApplication DataMicrosoftModèlesNomDuModèle.xlt"
end sub
'------------------------
End sub
Salutations!
"Boa73" <anonymous@discussions.microsoft.com> a écrit dans le message de news:00f501c3ce2b$3d6b3ea0$a101280a@phx.gbl...
Bonjour à tous,
Quelqu'un peut-il me donner la marche a suivre soius
Escel 2003 pour créer un bouton ou une icone perso dans
la barre d'outil general pour que en cliquant dessus ça
ouvre un modèle .xlt (se trouvant dans le dossier sous
C:Documents and SettingsBoaApplication
DataMicrosoftModèles
Merci d'avance de vos réponses
Cordialement,
Boa73
Barre des menus de la feuille de calcul / affichage / barre d'outils / Personnaliser /
Dans la fenêtre qui s'ouvre : Choisir onglet Commandes
Dans la liste de la section de gauche : choisir l'item Macro.
Dans la fenêtre de droite, sélectionner l'icône disponible (sourire) et le glisser dans la barre d'outils désirée.
Toujours en conservant la boîte "personnalisation ouverte" , fais un clic gauche sur le bouton que tu viens d'insérer ... dans le menu contextuel tu as la possibilité de définir un nouvel icône pour le bouton, de lui ajouter du texte et de lui associer une macro que tu auras pris soin de définir à préalable.
'------------------------ Sub OuvrirMonModele()
Workbooks.Open "C:Documents and SettingsBoaApplication DataMicrosoftModèlesNomDuModèle.xlt"
end sub '------------------------
End sub
Salutations!
"Boa73" a écrit dans le message de news:00f501c3ce2b$3d6b3ea0$
Bonjour à tous,
Quelqu'un peut-il me donner la marche a suivre soius Escel 2003 pour créer un bouton ou une icone perso dans la barre d'outil general pour que en cliquant dessus ça ouvre un modèle .xlt (se trouvant dans le dossier sous C:Documents and SettingsBoaApplication DataMicrosoftModèles
Merci d'avance de vos réponses Cordialement, Boa73
michdenis
Bonjour Boa73,
Si ta macro doit ouvrir le fichier modèle et non une copie du modèle, tu peux utiliser ce qui suit dans un module standard :
'Api pour la commande ShellExecute dans le haut du module
Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _ String, ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'----------------------------------- Sub ShellOuvrirModele()
Const SW_SHOWNORMAL = 1 Dim hwnd As Long Dim Fich As String
'Chemin et fichier modèle à déterminer Fich = "C:Documents and SettingsAdministrateur" & _ "Application DataMicrosoftModèlesClasseur.xlt" hwnd = FindWindow(vbNullString, Application.Caption) ShellExecute hwnd, "open", Fich, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub '-----------------------------------
Salutations!
Boa73" a écrit dans le message de news:00f501c3ce2b$3d6b3ea0$
Bonjour à tous,
Quelqu'un peut-il me donner la marche a suivre soius Escel 2003 pour créer un bouton ou une icone perso dans la barre d'outil general pour que en cliquant dessus ça ouvre un modèle .xlt (se trouvant dans le dossier sous C:Documents and SettingsBoaApplication DataMicrosoftModèles
Merci d'avance de vos réponses Cordialement, Boa73
Bonjour Boa73,
Si ta macro doit ouvrir le fichier modèle et non une copie du modèle, tu peux utiliser ce qui suit dans un module standard :
'Api pour la commande ShellExecute dans le haut du module
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'-----------------------------------
Sub ShellOuvrirModele()
Const SW_SHOWNORMAL = 1
Dim hwnd As Long
Dim Fich As String
'Chemin et fichier modèle à déterminer
Fich = "C:Documents and SettingsAdministrateur" & _
"Application DataMicrosoftModèlesClasseur.xlt"
hwnd = FindWindow(vbNullString, Application.Caption)
ShellExecute hwnd, "open", Fich, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
'-----------------------------------
Salutations!
Boa73" <anonymous@discussions.microsoft.com> a écrit dans le message de news:00f501c3ce2b$3d6b3ea0$a101280a@phx.gbl...
Bonjour à tous,
Quelqu'un peut-il me donner la marche a suivre soius
Escel 2003 pour créer un bouton ou une icone perso dans
la barre d'outil general pour que en cliquant dessus ça
ouvre un modèle .xlt (se trouvant dans le dossier sous
C:Documents and SettingsBoaApplication
DataMicrosoftModèles
Merci d'avance de vos réponses
Cordialement,
Boa73
Si ta macro doit ouvrir le fichier modèle et non une copie du modèle, tu peux utiliser ce qui suit dans un module standard :
'Api pour la commande ShellExecute dans le haut du module
Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _ String, ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'----------------------------------- Sub ShellOuvrirModele()
Const SW_SHOWNORMAL = 1 Dim hwnd As Long Dim Fich As String
'Chemin et fichier modèle à déterminer Fich = "C:Documents and SettingsAdministrateur" & _ "Application DataMicrosoftModèlesClasseur.xlt" hwnd = FindWindow(vbNullString, Application.Caption) ShellExecute hwnd, "open", Fich, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub '-----------------------------------
Salutations!
Boa73" a écrit dans le message de news:00f501c3ce2b$3d6b3ea0$
Bonjour à tous,
Quelqu'un peut-il me donner la marche a suivre soius Escel 2003 pour créer un bouton ou une icone perso dans la barre d'outil general pour que en cliquant dessus ça ouvre un modèle .xlt (se trouvant dans le dossier sous C:Documents and SettingsBoaApplication DataMicrosoftModèles
Merci d'avance de vos réponses Cordialement, Boa73
Boa73
Merci bien pour ces deux macros, je pense qu'il me faut utiliser la deuxième car je veux le modèle et non une copie.
Merci encore je vais mettre ça en place. Cordialement, Boa73
Merci bien pour ces deux macros, je pense qu'il me faut
utiliser la deuxième car je veux le modèle et non une
copie.
Merci encore je vais mettre ça en place.
Cordialement,
Boa73
