Re : Creation d'une copie d'un fichier
Bonjour,
Merci pour ta réponse, de mon côté j'ai également avancé...
Private Sub CommandButton3_Click()
Dim LancerWord As Object
Set LancerWord = CreateObject("Word.Application")
LancerWord.WindowState = wdWindowStateMaximize
LancerWord.Visible = True
LancerWord.Documents.Open Filename:="W:\Automatisme\Procédures Périphériques\Mise en page Procédure Standard.doc"
LancerWord.ActiveDocument.SaveAs Filename:="C:\Temp\Glossaire\" & "Copie Mise en page Procédure Standard.doc"
End Sub
Private Sub Workbook_Open()
Dim NomDossier As String
Dim Lecteur As String
NomDossier = "C:\Temp\Glossaire" '& " " & Format(Date, "dd-mm-yyyy")
'NomDossier = "C:\Program Files\Glossaire" '& " " & Format(Date, "dd-mm-yyyy")
'MsgBox NomDossier
'Lecteur = Mid(NomDossier, 1, 2)
ChDrive Lecteur
MkDir NomDossier
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ChDrive "C:"
'ChDir "C:\temp\Glossaire"
'fileToOpen = Application.GetOpenFilename("Fichiers DOC (*.doc), *.doc")
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.Deletefolder "C:\Temp\Glossaire"
End Sub
Lorsque j'ouvre le fichier le dossier "Glossaire" est crée dans "Temp".
Lorsqu'une procédure est ouverte, une copie de celle-ci est crée dans "Glossaire".
A la fermeture du fichier le dossier "Glossaire" ainsi que son contenu est supprimé.
Problèmes:
J'aimerais rajouter un test à la création du dossier "Glossaire", s'il existe déjà ne pas le créer ( invite bug)
Puis ne pouvoir fermer le fichier seulement si toutes les procédures ouvertes sont fermées.
Et pour finir, si on ouvre 2 fois la même procédure ne pas créer une nouvelle copie
( cela bug forcement )
Peux tu m'aider une derniere fois ? stp