Création répertoire en VBA

[ChuBaKa]

Bonjour à tous,

Je cherche à savoir s'il est possible par une ligne de commande VBA de créer un répertoire et un raccourci à un fichier Excel à un endroit précis du disque dur.
Mon but:
1) Envoyer par mail un fichier Excel (incluant des codes VBA)
2) lorsque l'utilisateur ouvre le fichier pour la première fois, le fichier crée automatiquement un répertoire à l'endroit voulu, le fichier s'enregistre dans ce répertoire et un raccourci est crée dans le bureau.

Merci d'avance à ceux qui pourrait m'aider.

 

[juju]

Hello,

Si dans ta cellule A1 tu indiques le chemin du repertoire et en A2 le nom du fichier, tu peux saisir cette macro (tu peux tout à fait remplacer les variables directement par les valeurs dans la macro si celles ci ne varient pas) :
Sub Creation ()
Rep = Range("A1").Value
F = Range("A2").Value
On Error GoTo fin
MkDir Rep
ActiveWorkbook.SaveAs Filename:=Rep & F
Exit Sub
fin:
If Err = 75 Then MsgBox "Il existe déja !!!", vbInformation, "Message"
End Sub

Par contre je ne sais pas créer le raccourci... désolé

Espérant avoir pu t'aider.

Bye

Ju

 

[michel]

bonjour ChuBaKa , bonjour Juju

pour ce qui est du raccourci bureau , tu peux utiliser la solution donnée par LaurentTBT dans le lien ci dessous


Lien supprimé


bonne journée
MichelXld

 

[ChuBaKa]

Merci à vous deux juju et michel pour cette aide qui va m'être précieuse.

Salutations