Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Accéder aux options de Excel

Accéder aux options de Excel

6 réponses
Avatar
cmoi
Bonjour,

Je souhaite trouver avec vba les dossiers où se trouve les modèles Excel,
tels qu'ils sont enregistrés dans le menu Outils>Options. Est-ce possible ?
Peut-on trouver les autres paramètres des options ?
Je cherche quelque chose qui marche pour toutes les versions de 97 à 2007.

Marc
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Daniel.j
Bonjour
Avec çà :
============= Option Explicit

' Déclaration des Api
Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal
hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As
Long, ByVal lpBuffer As String) As Long

' Enumération des dossiers spéciaux
Public Enum SpecialFoldersConstants
CSIDL_ADMINTOOLS = &H30
CSIDL_ALTSTARTUP = &H1D
CSIDL_APPDATA = &H1A
CSIDL_BITBUCKET = &HA
CSIDL_COMMON_ADMINTOOLS = &H2F
CSIDL_COMMON_ALTSTARTUP = &H1E
CSIDL_COMMON_APPDATA = &H23
CSIDL_COMMON_DESKTOPDIRECTORY = &H19
CSIDL_COMMON_DOCUMENTS = &H2E
CSIDL_COMMON_FAVORITES = &H1F
CSIDL_COMMON_PROGRAMS = &H17
CSIDL_COMMON_STARTMENU = &H16
CSIDL_COMMON_STARTUP = &H18
CSIDL_COMMON_TEMPLATES = &H2D
CSIDL_CONTROLS = &H3
CSIDL_COOKIES = &H21
CSIDL_DESKTOP = &H0
CSIDL_DESKTOPDIRECTORY = &H10
CSIDL_DRIVES = &H11
CSIDL_FAVORITES = &H6
CSIDL_FLAG_CREATE = &H8000
CSIDL_FLAG_DONT_VERIFY = &H4000
CSIDL_FLAG_MASK = &HFF00
CSIDL_FONTS = &H14
CSIDL_HISTORY = &H22
CSIDL_INTERNET = &H1
CSIDL_INTERNET_CACHE = &H20
CSIDL_LOCAL_APPDATA = &H1C
CSIDL_MYPICTURES = &H27
CSIDL_NETHOOD = &H13
CSIDL_NETWORK = &H12
CSIDL_PERSONAL = &H5
CSIDL_PRINTERS = &H4
CSIDL_PRINTHOOD = &H1B
CSIDL_PROFILE = &H28
CSIDL_PROGRAM_FILES = &H26
CSIDL_PROGRAM_FILES_COMMON = &H2B
CSIDL_PROGRAM_FILES_COMMONX86 = &H2C
CSIDL_PROGRAM_FILESX86 = &H2A
CSIDL_PROGRAMS = &H2
CSIDL_RECENT = &H8
CSIDL_SENDTO = &H9
CSIDL_STARTMENU = &HB
CSIDL_STARTUP = &H7
CSIDL_SYSTEM = &H25
CSIDL_SYSTEMX86 = &H29
CSIDL_TEMPLATES = &H15
CSIDL_WINDOWS = &H24
End Enum

' Type
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type

' Constantes
Public Const MAX_PATH = 260

Public Function GetSpecialFolder(SpecialFolder As SpecialFoldersConstants)
As String

' Les variables
Dim RC As Long
Dim IDL As ITEMIDLIST
Dim sPath As String

' Récupère le dossier spécial
RC = SHGetSpecialFolderLocation(100, SpecialFolder, IDL)
If RC = 0 Then
' Crée un tampon
sPath = Space$(MAX_PATH)
' Récupère le path à partir de l'IDList
SHGetPathFromIDList ByVal IDL.mkid.cb, ByVal sPath
' Supprime les chr$(0) inutiles
sPath = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
If Right$(sPath, 1) <> "" Then sPath = sPath & ""
Else
sPath = ""
End If
GetSpecialFolder = sPath

End Function

'Exemple d 'utilisation de la fonction :

Sub Form_Load()

MsgBox GetSpecialFolder(CSIDL_PERSONAL)
MsgBox GetSpecialFolder(CSIDL_COOKIES)
MsgBox GetSpecialFolder(CSIDL_COMMON_TEMPLATES)

End Sub
================================================== Daniel

--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm





"cmoi" a écrit dans le message de news:
460187ec$0$27378$
Bonjour,

Je souhaite trouver avec vba les dossiers où se trouve les modèles Excel,
tels qu'ils sont enregistrés dans le menu Outils>Options. Est-ce possible
?
Peut-on trouver les autres paramètres des options ?
Je cherche quelque chose qui marche pour toutes les versions de 97 à 2007.

Marc





Avatar
jean-marc
"cmoi" wrote in message
news:460187ec$0$27378$
Bonjour,

Je souhaite trouver avec vba les dossiers où se trouve les modèles Excel,
tels qu'ils sont enregistrés dans le menu Outils>Options. Est-ce possible
?
Peut-on trouver les autres paramètres des options ?
Je cherche quelque chose qui marche pour toutes les versions de 97 à 2007.



Hello,

Je complète la réponse précédente en précisant que l'exemple
mentionné vient de la FAQ VB : http://faq.vb.free.fr/

La réponse à ta question se trouve ici:
http://faq.vb.free.fr/index.php?question`

la FAQ contient de nombreux articles détaillés,
couvrant toutes sortes de sujet. La FAQ a été mise
à jour tout récemment avec une vingtaine de nouveaux
articles:
http://groups.google.fr/group/microsoft.public.fr.vb/browse_thread/thread/1806a9935e82e8f5/e13e2a555861479f?lnk=gst&q=mise+%C3%A0+jour+FAQ&rnum=1&hl=fr

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
JPvC
jean-marc a écrit :
Hello,

Je complète la réponse précédente en précisant que l'exemple
mentionné vient de la FAQ VB : http://faq.vb.free.fr/

La réponse à ta question se trouve ici:
http://faq.vb.free.fr/index.php?question`

la FAQ contient de nombreux articles détaillés,
couvrant toutes sortes de sujet. La FAQ a été mise
à jour tout récemment avec une vingtaine de nouveaux
articles:
http://groups.google.fr/group/microsoft.public.fr.vb/browse_thread/thre ad/1806a9935e82e8f5/e13e2a555861479f?lnk=gst&q=mise+%C3%A0+jour+FAQ&r num=1&hl=fr

Cordialement,



Bonjour,
Très intéressant mais comme toujours aucune explication pour les heur eux
utilisateurs de VBA sur les machines Apple sous MacOS.
J'en profite donc pour demander si des FAQ peuvent également être
proposées pour traiter des problèmes que l'on a sur Mac et que
les utilisateurs de Windows ne rencontrent pas.
Merci d'avance.
Cordialement.
JPvC
Avatar
jean-marc
"JPvC" wrote in message
news:46027acc$0$29313$
jean-marc a écrit :
Hello,

Je complète la réponse précédente en précisant que l'exemple
mentionné vient de la FAQ VB : http://faq.vb.free.fr/

La réponse à ta question se trouve ici:
http://faq.vb.free.fr/index.php?question`

la FAQ contient de nombreux articles détaillés,
couvrant toutes sortes de sujet. La FAQ a été mise
à jour tout récemment avec une vingtaine de nouveaux
articles:
http://groups.google.fr/group/microsoft.public.fr.vb/browse_thread/thread/1806a9935e82e8f5/e13e2a555861479f?lnk=gst&q=mise+%C3%A0+jour+FAQ&rnum=1&hl=fr

Cordialement,

Bonjour,
Très intéressant mais comme toujours aucune explication pour les heureux
utilisateurs de VBA sur les machines Apple sous MacOS.
J'en profite donc pour demander si des FAQ peuvent également être proposées
pour traiter des problèmes que l'on a sur Mac et que
les utilisateurs de Windows ne rencontrent pas.
Merci d'avance.
Cordialement.
JPvC



Bonjour,

Rien de prévu en tout cas dans cette FAQ, qui est plutot
consacrée à Visual Basic 6.0 et antérieures qu'à VBA
proprement dit, même si il y a de très grandes similitudes.

Pour les problèmes "Mac OS spécifiques", rien de prévu en
tout cas. C'est vrai qu'on trouve peu de ressources sur
le sujet sur le net (je n'ai pas beaucoup cherché).

A mon avis, on doit trouver des choses sur les newsgroups
dédiés Mac.

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Daniel.j
Bonjour Jean-Marc
Je n'ai rien precisé parce que je ne savais plus d'ou venait ce code.
Désolé ....
Cordialement
Daniel

FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"jean-marc" a écrit dans le message de news:
46026fa4$0$14230$
"cmoi" wrote in message
news:460187ec$0$27378$



Je complète la réponse précédente en précisant que l'exemple
mentionné vient de la FAQ VB : http://faq.vb.free.fr/

La réponse à ta question se trouve ici:
http://faq.vb.free.fr/index.php?question`

la FAQ contient de nombreux articles détaillés,
couvrant toutes sortes de sujet. La FAQ a été mise
à jour tout récemment avec une vingtaine de nouveaux
articles:
http://groups.google.fr/group/microsoft.public.fr.vb/browse_thread/thread/1806a9935e82e8f5/e13e2a555861479f?lnk=gst&q=mise+%C3%A0+jour+FAQ&rnum=1&hl=fr

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/







Avatar
jean-marc
"Daniel.j" wrote in message
news:
Bonjour Jean-Marc
Je n'ai rien precisé parce que je ne savais plus d'ou venait ce code.
Désolé ....
Cordialement
Daniel



Bonjour Daniel,

Aucun problème, il n'y a pas de mal :-)

Je profitais juste de l'occasion pour donner
le lien de la FAQ pour les nouveaux :-)

Bien cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/