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

Eric C

XLDnaute Barbatruc

• 27 Avril 2013

• #2

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.

 

Pièces jointes

• Création dossier sous C.xls

  20 KB · Affichages: 55

Vote positif 0 Vote négatif

P

poups

XLDnaute Occasionnel

• 27 Avril 2013

• #3

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 ?

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Avril 2013

• #4

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Avril 2013

• #5

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.

Code:

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Avril 2013

• #6

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

Cliquez pour agrandir...

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

Code:

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

Balis HTML :

HTML:

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

Balise PHP :

PHP:

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

Balise VBA non "iconisée" :

VB:

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

A+ à tous

 

Pièces jointes

• Capture.1.png

  397 bytes · Affichages: 136
• Capture.1.png

  397 bytes · Affichages: 135
• Capture.2.png

  1.4 KB · Affichages: 141
• Capture.2.png

  1.4 KB · Affichages: 139
• Capture.3.png

  2 KB · Affichages: 140
• Capture.3.png

  2 KB · Affichages: 138

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Avril 2013

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Avril 2013

• #8

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

Bonjour à tous,

Voici deux captures :

Mode réponse rapide



Mode avancé :




A+ à tous

 

Pièces jointes

• Capture.1.jpg

  27.6 KB · Affichages: 106
• Capture.1.jpg

  27.6 KB · Affichages: 99

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Avril 2013

• #9

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

 

Pièces jointes

• Capture.3.png

  17.2 KB · Affichages: 103
• Capture.3.png

  17.2 KB · Affichages: 100

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Avril 2013

• #10

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.

Cliquez pour agrandir...

Bonne fin de dimanche

 

Vote positif 0 Vote négatif

P

poups

XLDnaute Occasionnel

• 28 Avril 2013

• #11

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

 

Vote positif 0 Vote négatif

P

poups

XLDnaute Occasionnel

• 20 Mai 2013

• #12

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

HTML:

oShellLink.Save

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Mai 2013

• #13

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

Bonjour à tous,

Es-tu en mode Administrateur sur ce poste ?

A+ à tous

 

Vote positif 0 Vote négatif

P

poups

XLDnaute Occasionnel

• 21 Mai 2013

• #14

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

 

Vote positif 0 Vote négatif

P

poups

XLDnaute Occasionnel

• 22 Mai 2013

• #15

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

J'ai trouvé !

HTML:

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

 

Vote positif 0 Vote négatif