Bonjour,
Je m'explique :

Je souhaite enregistrer une feuille
1- dans un répertoire variable ( partie fixe + partie variable suivant le contenu de ma feuille )
2- le nom est également une variable suivant la même feuille
3- si la feuille a le même nom celui est écraser car déja ouverte
4- sinon il créer la feuille avec le nouveau nom

Le code actuelle est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macrosauvegarde()
Dim chemin As String, NomFichier As String, nom As String, var1 As String, var2 As String, var3 As Integer, variablenom As String
var1 = Cells(1, 1)
var2 = Cells(1, 17)
var3 = Cells(9, 4)
variablenom = Cells(1, 1)                         
chemin = "D:\Users\HOME\Documents\variablenom\"
'D:\Users\HOME\Documents\STE1
NomFichier = var1 & " " & "R3 DU T" & var2 & " " & var3 & ".xlsm"
'STE1 R3 DU T2 2014
nom = chemin & MonFichier
If dir(nom) <> "" Then
Kill (nom)
Else
ActiveWorkbook.SaveAs Filename:=nom
End If
End Sub
En le lancant j'ai ce message d'erreur :
Erreur d'exécution 1004
fichier inaccessible.

Pouvez vous m'aider ?