Discussion :

[liner77]

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 ?

[Daniel.C]

Bonjour,

Peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = "D:\Users\HOME\Documents\" & variablenom & "\"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nom = chemin & NomFichier

[illight]

=> Merci d'utiliser les balises CODE pour mettre ton code

Quand tu écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = "D:\Users\HOME\Documents\variablenom\"

Le dossier "D:\Users\HOME\Documents\variablenom\" existe ou pas ?

D'ailleurs ça ne serait pas plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = "D:\Users\HOME\Documents\" & variablenom& \"

?

Si le dossier n'existe pas, il faudrait peut-être vérifier, au préalable qu'il existe et s'il n'existe pas le créer, avec par exemple cette petite fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Function Rep_exists(ByRef Repertoire As String) As Boolean
    On Error Resume Next
    Rep_exists = CBool(GetAttr(Repertoire) And vbDirectory)
End Function

qui s'utilise comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Rep_exists(chemin) Then MkDir (chemin)

[liner77]

désolé pour la balise
Le dossier "D:\Users\HOME\Documents\variablenom\" n'est pas à créer, il existe déjà
En revanche, j'ai un autre message d'erreur :
erreur exécution 70
permission refusée
le blocage ce fait sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill (nom)

[Daniel.C]

Le dossier "D:\Users\HOME\Documents\variablenom\" n'est pas à créer, il existe déjà

Etonnant, puisque tu crées une variable "variablenom". Si tu utilises bien cette variable dans ton chemin, la syntaxe est incorrecte.

Quant à l'erreur sur le Kill, le disque D: ne serait-il pas un DVD ?

[liner77]

La variable "variablenom" permet de le déposer dans le bon répertoire suivant le fichier et plus précisément dans Cells(1, 1)
Peux être je mis prend mal
Quant à l'erreur sur le Kill, le disque D: ce n'est pas pas un DVD
D'ou vient l'erreur ?

[illight]

Si tu écris ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"D:\Users\HOME\Documents\variablenom\"

Si ta variable variablenom vaut toto, Excel va essayer de se connecter sur le dossier suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"D:\Users\HOME\Documents\variablenom\"

Si tu veux qu'il se connecte sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"D:\Users\HOME\Documents\toto\"

Il faut l'écrire (comme je l'ai dit plus haut) comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"D:\Users\HOME\Documents\" & variablenom & "\"