Bonjour,
Merci Pounet95, j'ai fait finalement un peu differemment :
Sub Creation()
'
Dim sPath As String, sFilename As String, sSource As String
Dim Reponse As VbMsgBoxResult
'Teste si repertoire output existe
On Error Resume Next
ChDir Range("CHEMINOUTPUT")
If Err Then MkDir Range("CHEMINOUTPUT") 'pour le créer
On Error GoTo 0
Reponse = MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo, "Demande de confirmation")
If Reponse = vbNo Then Exit Sub
sPath = Range("CHEMINOUTPUT")
sFilename = Range("FILEOUTPUT")
sSource = Range("CHEMINTOOLSHORT") & "\" & Range("FILETOOL")
With ThisWorkbook
.Save
.ActiveSheet.Shapes.Range(Array("ImageDatabase")).Delete
.ActiveSheet.Shapes.Range(Array("ImageCreation")).Delete
.Sheets("EXTRACT Bex").Visible = False
.SaveAs Filename:=sPath & "\" & sFilename
End With
Workbooks.Open (sSource)
Workbooks(sFilename).Close
End Sub
Merci pour ton aide.
Bat.
Mike