Créaction d'un dossier automatic sous C:/

[poups]

Bonjour,
J'aimerais savoir en VB si il est possible de créer automatiquement un répertoir sur le disque dur
Le nom du répertoire serais prédéfini par une cellule d'excel

J'aimerais également généré un répertoire dans un dossier archivage Outlook du même non

Merci de votre aide

 

[Eric C]

Re : Créaction d'un dossier automatic sous C:/

Bonjour le forum
Bonjour poups

Pour la première partie, je pense que le fichier joint répondra à ta demande.

 

[poups]

Re : Créaction d'un dossier automatic sous C:/

Bonjour tous le monde !

J'ai testé, c'est exactement ce que je cherchais et voulais !
Merci beaucoup

As tu une commande pour créé un raccourci a ce dossier pour le placer sur le bureau Windows par exemple ?
Pas d'idée pour faire la m^me chose sur Outlook dans un dossier d'archivage ?

 

[Eric C]

Re : Créaction d'un dossier automatic sous C:/

Bonjour le forum
Re poups

Places avant le "End Sub" ceci qui doit faire en sorte de te placer un raccourci sur le bureau (Test sous 2003 : OK) :

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:=NomDossier


PS : Si quelqu'un peut me dire comment placer des quôtes pour "envelopper" le code ce serait sympa et plus propre pour la lecture.

Bon dimanche à toutes & à tous

 

[MJ13]

Re : Créaction d'un dossier automatic sous C:/

Bonjour Poups, Eric

Pour créer un raccourci sur le bureau, j'ai trouvé ceci dans mon pense-bête Excel. Cela fonctionne normalement aussi pour les dossiers.

Sub CreerRaccourci(CheminCible)
 
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\TestRaccourci.lnk")
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub
 
Sub TestRaccourci()
CreerRaccourci "c:\classeur1.xls"
End Sub

 

[JCGL]

Re : Créaction d'un dossier automatic sous C:/

Bonjour à tous,
Salut Michel,
Salut Eric,

Pour Eric :
En mode réponse rapide : Sélectionne le code et clique sur à l’extrême droite de la barre d'icône

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:=NomDossier

En mode avancé : Sélectionne le code et clique sur une des trois icônes
Balise Code :

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:=NomDossier

Balis HTML :

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:=NomDossier

Balise PHP :

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:=NomDossier

Balise VBA non "iconisée" :

ChDir "C:\Documents and Settings\Administrateur\Bureau"
ActiveWorkbook.SaveAs Filename:=NomDossier

A+ à tous

 

[Eric C]

Re : Créaction d'un dossier automatic sous C:/

Re le forum
Re poups, bonjour MJ13, bonjour JCGL,

Je te remercie de ton attention JCGL mais je ne vois pas la ou les icônes dans ma boîte de réponse que ce soit en réponse rapide ou en mode avancé ??

Bon dimanche à toutes & à tous

 

[JCGL]

Re : Créaction d'un dossier automatic sous C:/

Bonjour à tous,

Voici deux captures :

Mode réponse rapide



Mode avancé :




A+ à tous

 

[JCGL]

Re : Créaction d'un dossier automatic sous C:/

Bonjour à tous,

Re,

Voir tes paramètres dans le Tableau de Bord / Options Générales :



Et vérifier les Options Diverses :



A+ à tous

 

[Eric C]

Re : Créaction d'un dossier automatic sous C:/

Re le forum et les intervenants
Re JCGL

Bien vu - Je n'avais pas modifié mon tableau de bord. Merci pour tout.

Bonne fin de dimanche

 

[poups]

Re : Créaction d'un dossier automatic sous C:/

Bonjour mes nouveaux amis,

J'ai testé, et suis arrivé a cela ...

Private Sub CommandButton1_Click()
Dim NomDossier As String
NomDossier = [A1]
If Dir("C:\Users\JondSyL\Documents\" & NomDossier, vbDirectory) = "" Then _
MkDir "C:\Users\JondSyL\Documents\" & NomDossier

CreerRaccourci "C:\Users\JondSyL\Documents\" & NomDossier

End Sub

Sub CreerRaccourci(CheminCible)
Dim NomDossier As String
NomDossier = [A1]

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & NomDossier & ".lnk")
oShellLink.TargetPath = CheminCible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

C'est fonctionnel,
J'ai quand même une question ..., peux ton imaginer le raccourci ailleurs que sur le bureau ?
Dans le code il y a des "Desktop" partous

Je bidouille, mais je ne maitrise rien
Alors je qestionne ...
Merci beaucoup

 

[poups]

Re : Créaction d'un dossier automatic sous C:/

Bonjours à tous,
Je reviens sur ce sujet
Pour la création d'un répertoir ou je veux sur le PC pas de probleme
Pour le raccouci impossible de le faire fonctionner ailleur que sur le bureau
VBA indique une erreur au moment de l'enregistrement de celui-ci

oShellLink.Save

Quelqu'un à t'il une idée ?
merci d'avance
Poups

 

[JCGL]

Re : Créaction d'un dossier automatic sous C:/

Bonjour à tous,

Es-tu en mode Administrateur sur ce poste ?

A+ à tous

 

[poups]

Re : Créaction d'un dossier automatic sous C:/

Bonjour JCGL,
Oui je dois être administrateur ...
mais pourquoi cela marcherais telle que sur le bureau et pas ailleur ?
merci beaucoup
Poups

 

[poups]

Re : Créaction d'un dossier automatic sous C:/

J'ai trouvé !

Private Sub CommandButton1_Click()
Dim NomDossier As String
NomDossier = [A1]
If Dir("C:\Users\JondSyL\Documents\" & NomDossier, vbDirectory) = "" Then _
    MkDir "C:\Users\JondSyL\Documents\" & NomDossier

CreerRaccourci

End Sub

Sub CreerRaccourci()
Dim NomDossier As String
NomDossier = [A1]
  
 Set WshShell = CreateObject("WScript.Shell")
 Set oShellLink = WshShell.CreateShortcut(NomDossier & ".lnk")
 oShellLink.TargetPath = "C:\Users\JondSyL\Documents\"
 oShellLink.WindowStyle = 1
 oShellLink.Save
 End Sub

Merci beaucoup à tous
poupis