P
pepi
Guest
Bonjour Forum.
A ce beau matin hivernale (enfin!), une petite demande coup de pouce..
Dans ma petit application sous Excel, j'ai besoin de créér, à l'ouverture d'un nouveau projet, un répertoire où je copie les pièces jointes qui m'ont été envoyé par le client et une copie de la feuille excel propre au projet. Ceci est fait ci-dessous et marche bien.
Sub Bouton16_QuandClic()
Dim MyFile As String
Dim sDir As String
MyFile = ActiveSheet.Name
sDir = _
"C:\Documents and Settings\azerty\Mes documents\Devis\" & MyFile
On Error Resume Next
MkDir sDir
ChDir sDir
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=sDir & "\" & MyFile
ActiveWindow.Close
End Sub
Pour ne pas me mélanger les pates pendant le traitement de la demande du client, j'ai besoin de créér en même temps dans ce répertoire un sous-répertoire "DocsOriginaux". Problème est que: au moment de la création du répertoire, qui porte le nom de la feuille propre au projet, je n'ai pas encore le chemin complet devant les yeux... Le chemin devait donc être à la fin:
"C:\Documents and Settings\azerty\Mes documents\Devis\" & MyFile\DocsOriginaux\
Mais comment je résouds ce problème de MyFile?
En espérant d'avoir été clair...
D'avance merci
Pepi
A ce beau matin hivernale (enfin!), une petite demande coup de pouce..
Dans ma petit application sous Excel, j'ai besoin de créér, à l'ouverture d'un nouveau projet, un répertoire où je copie les pièces jointes qui m'ont été envoyé par le client et une copie de la feuille excel propre au projet. Ceci est fait ci-dessous et marche bien.
Sub Bouton16_QuandClic()
Dim MyFile As String
Dim sDir As String
MyFile = ActiveSheet.Name
sDir = _
"C:\Documents and Settings\azerty\Mes documents\Devis\" & MyFile
On Error Resume Next
MkDir sDir
ChDir sDir
ActiveSheet.Copy
ActiveSheet.SaveAs Filename:=sDir & "\" & MyFile
ActiveWindow.Close
End Sub
Pour ne pas me mélanger les pates pendant le traitement de la demande du client, j'ai besoin de créér en même temps dans ce répertoire un sous-répertoire "DocsOriginaux". Problème est que: au moment de la création du répertoire, qui porte le nom de la feuille propre au projet, je n'ai pas encore le chemin complet devant les yeux... Le chemin devait donc être à la fin:
"C:\Documents and Settings\azerty\Mes documents\Devis\" & MyFile\DocsOriginaux\
Mais comment je résouds ce problème de MyFile?
En espérant d'avoir été clair...
D'avance merci
Pepi