Enregistrement de fichier

[Eric C]

Bonjour le forum
Bonjour à toutes & à tous

C'est une question redondante, je le conviens mais je ne trouve solution à mon blème :
- J'ouvre un fichier "Semaine.xls" qui se trouve en :
C:\1\Toto\Semaines\Semaine.xls

Après modifs, je souhaiterais enregistrer mon fichier sous le même nom avec l'extension qui se trouve sur la feuille "Accueil", cellule "N5" mais en vain car j'obtiens l'erreur 1004.
Mes # codes essayés :

1/
Dim LeChemin, Nom As String
LeChemin = ActiveWorkbook.Path & "\"
Nom = Sheets("Accueil").Range("N5").Value
ThisWorkbook.SaveAs LeChemin & Nom & ".xls"
2/
Dim Nom As String
Nom = "Semaine" & Sheets("Accueil").Range("N5").Value
ThisWorkbook.SaveCopyAs Filename:="C:\1\Toto\Semaines\" & Nom & ".xls"
3/
Dim x As String
x = ThisWorkbook.Name & Sheets("Accueil").Range("N5")
ThisWorkbook.SaveCopyAs Filename:="C:\1\Toto\Semaines\" & x & ".xls"

Vous remerciant de votre attention
Eric c

 

[Paf]

Re : Enregistrement de fichier

Bonjour

Pas de soucis avec le 1) (pas testé les autres), sauf si la cellule (ici N5) est vide => erreur 1004

A+

 

[camarchepas]

Re : Enregistrement de fichier

Bonsoir Paf, Eric

Les 3 fonctionnent , en sécurisant un peu cela pourrait donner :

Option Explicit

Sub a1()
Dim LeChemin, Nom As String
LeChemin = ActiveWorkbook.Path & "\"
Nom = Sheets("Accueil").Range("N5").Value
If Nom = "" Then MsgBox "Cellule N5 non renseignée": Exit Sub
ThisWorkbook.SaveAs LeChemin & Nom & ".xls"
End Sub

Sub a2()

Dim Nom As String
Nom = "Semaine" & Sheets("Accueil").Range("N5").Value
If Nom = "Semaine" Then MsgBox "Cellule N5 non renseignée": Exit Sub
If Dir("C:\1\Toto\Semaines\") = "" Then MsgBox "Répertoire n'existe pas": Exit Sub
ThisWorkbook.SaveCopyAs Filename:="C:\1\Toto\Semaines\" & Nom & ".xls"

End Sub
Sub a3()


Dim x As String
If Sheets("Accueil").Range("N5") = "" Then MsgBox "Cellule N5 non renseignée": Exit Sub
x = ThisWorkbook.Name & Sheets("Accueil").Range("N5")
If Dir("C:\1\Toto\Semaines\") = "" Then MsgBox "Répertoire n'existe pas": Exit Sub
ThisWorkbook.SaveCopyAs Filename:="C:\1\Toto\Semaines\" & x & ".xls"

End Sub

 

[Eric C]

Re : Enregistrement de fichier

Re le forum
Bonsoir Paf

Merci à toi d'avoir pris de ton temps pour m'aider 😀. En fait, la cellule ("N5") n'est pas vide mais contient la semaine en cours suivie de l'année (48 / 2014). L'erreur n'est elle pas due aux séparateurs ???. Si je remplace la valeur de la cellule par un entier seul cela fonctionne 😕 ??
Bonne soirée
Eric c

 

[camarchepas]

Re : Enregistrement de fichier

Et oui ,

Tout juste le / fait partie des caractéres interdits ,
il te reste le - ou le _ par exemple

 

[Eric C]

Re : Enregistrement de fichier

Re le forum
Re Paf, bonsoir Bruno

Quand je te disais que je n'étais qu'un bidouilleur 😎. Pas pensé une minute à ces caractères interdits !!!!
Merci à toi 🙂

Eric c