Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Créer un dossier et un raccourci

Créer un dossier et un raccourci

4 réponses
Avatar
Didier Novarin
Bonsoir,
je souhaite par VBA créé un dossier sur le bureau, et mettre un raccourci du
fichier sur lequel je travaille dans celui-ci.
Je ne sais pas si je suis clair ;-)
Je vous remercie beaucoup
Didier
Signaler un problème avec ce contenu

4 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
Bonsoir,
Comment créer un dossier ?

Ajouter une référence à "Microsoft Scripting Runtime"
depuis le menu Projet à Références de l'Editeur Visual Basic.
Sub CreationDossier()
Dim fso ' As Scripting.FileSystemObject
Dim fd ' As Scripting.Folder
Dim sFolderName ' As String

' Initialisation du nom du dossier
sFolderName = "C:NewDossier"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If
End Sub
http://dj.joss.free.fr/fichier.htm

et pour créer un raccourci:
http://dj.joss.free.fr/faq.htm#raccourciburo


Daniel
===================== FAQ MPFE
http://dj.joss.free.fr/faq.htm
===================== "Didier Novarin" a écrit dans le message de
news:
Bonsoir,
je souhaite par VBA créé un dossier sur le bureau, et mettre un raccourci
du fichier sur lequel je travaille dans celui-ci.
Je ne sais pas si je suis clair ;-)
Je vous remercie beaucoup
Didier



Avatar
Didier Novarin
Bonjour Daniel et merci beaucoup
Si je souhaite avoir le fichier sur un bureau, le pb est qu'il peut y avoir
soit Xp soit 98
C'est à dire "Documents and Setting..." ou pas
Comment dois-je m'y prendre ?
Didier


"Daniel.j" a écrit dans le message de news:

Bonsoir,
Comment créer un dossier ?

Ajouter une référence à "Microsoft Scripting Runtime"
depuis le menu Projet à Références de l'Editeur Visual Basic.
Sub CreationDossier()
Dim fso ' As Scripting.FileSystemObject
Dim fd ' As Scripting.Folder
Dim sFolderName ' As String

' Initialisation du nom du dossier
sFolderName = "C:NewDossier"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If
End Sub
http://dj.joss.free.fr/fichier.htm

et pour créer un raccourci:
http://dj.joss.free.fr/faq.htm#raccourciburo


Daniel
===================== > FAQ MPFE
http://dj.joss.free.fr/faq.htm
===================== > "Didier Novarin" a écrit dans le message de
news:
Bonsoir,
je souhaite par VBA créé un dossier sur le bureau, et mettre un raccourci
du fichier sur lequel je travaille dans celui-ci.
Je ne sais pas si je suis clair ;-)
Je vous remercie beaucoup
Didier







Avatar
michdenis
Bonjour Didier,

Pour trouver les principaux répertoires de Windows :

'Déclare les constantes et API dans le haut d'un module standard
'Exécute la procédure test --> tu devrais obtenir le chemin du bureau
'nonobstant le système d'exploitation utilisé.

Public Const NOERROR = 0
Public Const MAXPATH = 260
Public Const FldrDeskTop1 = &H0
Public Const FldrStartMenuPrograms = &H2
Public Const FldrMyDocuments = &H5
Public Const FldrFavorites = &H6
Public Const FldrStartMenuProgramsStartUp = &H7
Public Const FldrRecent = &H8
Public Const FldrSendTo = &H9
Public Const FldrStartMenu = &HB
Public Const FldrDeskTop2 = &H10
Public Const FldrNetHood = &H13
Public Const FldrFonts = &H14
Public Const FldrShellNew = &H15

Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
'---------------------------
'Daniel Lewis, mpep
Public Function GetSpecialFolder(CSIDL As Long) As String
Dim Result As Long
Dim sPath As String
Dim pidl As Long
Result = SHGetSpecialFolderLocation(0, CSIDL, pidl)
If Result = NOERROR Then
sPath = Space(MAXPATH)
Result = SHGetPathFromIDList(ByVal pidl, ByVal sPath)
If Result Then
GetSpecialFolder = Left(sPath, InStr(sPath, Chr(0)) - 1)
End If
End If
End Function
'---------------------------
Sub test()
MsgBox GetSpecialFolder(&H0)
End Sub
'---------------------------


Salutations!







"Didier Novarin" a écrit dans le message de news:
Bonjour Daniel et merci beaucoup
Si je souhaite avoir le fichier sur un bureau, le pb est qu'il peut y avoir
soit Xp soit 98
C'est à dire "Documents and Setting..." ou pas
Comment dois-je m'y prendre ?
Didier


"Daniel.j" a écrit dans le message de news:

Bonsoir,
Comment créer un dossier ?

Ajouter une référence à "Microsoft Scripting Runtime"
depuis le menu Projet à Références de l'Editeur Visual Basic.
Sub CreationDossier()
Dim fso ' As Scripting.FileSystemObject
Dim fd ' As Scripting.Folder
Dim sFolderName ' As String

' Initialisation du nom du dossier
sFolderName = "C:NewDossier"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If
End Sub
http://dj.joss.free.fr/fichier.htm

et pour créer un raccourci:
http://dj.joss.free.fr/faq.htm#raccourciburo


Daniel
===================== > FAQ MPFE
http://dj.joss.free.fr/faq.htm
===================== > "Didier Novarin" a écrit dans le message de
news:
Bonsoir,
je souhaite par VBA créé un dossier sur le bureau, et mettre un raccourci
du fichier sur lequel je travaille dans celui-ci.
Je ne sais pas si je suis clair ;-)
Je vous remercie beaucoup
Didier







Avatar
Didier Novarin
Bonsoir Denis,
Merci beaucoup
je regarde cela attentivement
Didier

"michdenis" a écrit dans le message de news:

Bonjour Didier,

Pour trouver les principaux répertoires de Windows :

'Déclare les constantes et API dans le haut d'un module standard
'Exécute la procédure test --> tu devrais obtenir le chemin du bureau
'nonobstant le système d'exploitation utilisé.

Public Const NOERROR = 0
Public Const MAXPATH = 260
Public Const FldrDeskTop1 = &H0
Public Const FldrStartMenuPrograms = &H2
Public Const FldrMyDocuments = &H5
Public Const FldrFavorites = &H6
Public Const FldrStartMenuProgramsStartUp = &H7
Public Const FldrRecent = &H8
Public Const FldrSendTo = &H9
Public Const FldrStartMenu = &HB
Public Const FldrDeskTop2 = &H10
Public Const FldrNetHood = &H13
Public Const FldrFonts = &H14
Public Const FldrShellNew = &H15

Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
'---------------------------
'Daniel Lewis, mpep
Public Function GetSpecialFolder(CSIDL As Long) As String
Dim Result As Long
Dim sPath As String
Dim pidl As Long
Result = SHGetSpecialFolderLocation(0, CSIDL, pidl)
If Result = NOERROR Then
sPath = Space(MAXPATH)
Result = SHGetPathFromIDList(ByVal pidl, ByVal sPath)
If Result Then
GetSpecialFolder = Left(sPath, InStr(sPath, Chr(0)) - 1)
End If
End If
End Function
'---------------------------
Sub test()
MsgBox GetSpecialFolder(&H0)
End Sub
'---------------------------


Salutations!







"Didier Novarin" a écrit dans le message de
news:
Bonjour Daniel et merci beaucoup
Si je souhaite avoir le fichier sur un bureau, le pb est qu'il peut y
avoir
soit Xp soit 98
C'est à dire "Documents and Setting..." ou pas
Comment dois-je m'y prendre ?
Didier


"Daniel.j" a écrit dans le message de news:

Bonsoir,
Comment créer un dossier ?

Ajouter une référence à "Microsoft Scripting Runtime"
depuis le menu Projet à Références de l'Editeur Visual Basic.
Sub CreationDossier()
Dim fso ' As Scripting.FileSystemObject
Dim fd ' As Scripting.Folder
Dim sFolderName ' As String

' Initialisation du nom du dossier
sFolderName = "C:NewDossier"

Set fso = CreateObject("Scripting.FileSystemObject")

' Vérifier que le dossier à créer n'existe pas
If Not fso.FolderExists(sFolderName) Then
' Créer le dossier.
Set fd = fso.CreateFolder(sFolderName)
MsgBox "Le dossier " & sFolderName & " a été créé"
Else
MsgBox "Le dossier " & sFolderName & " existe déjà!"
End If
End Sub
http://dj.joss.free.fr/fichier.htm

et pour créer un raccourci:
http://dj.joss.free.fr/faq.htm#raccourciburo


Daniel
===================== >> FAQ MPFE
http://dj.joss.free.fr/faq.htm
===================== >> "Didier Novarin" a écrit dans le message de
news:
Bonsoir,
je souhaite par VBA créé un dossier sur le bureau, et mettre un
raccourci
du fichier sur lequel je travaille dans celui-ci.
Je ne sais pas si je suis clair ;-)
Je vous remercie beaucoup
Didier