XL 2010 Proposer nom d'un fichier a partir d'un modèle excel

[sebbbbb]

1. bonjour à tous
   
   j'ai créé un fichier excel qui me sert de modèle (format type modèle microsoft excel prenant en charge les macros)
   
   lorsque l'on veut enregistrer un nouveau fichier à partir de ce modèle je souhaiterai que le nom de ce fichier commence automatiquement par le mois en chiffre, puis un tiret, puis l'année en chiffre suivi par le nom du dossier.
   
   exemple : 11-16 Ville de Bordeaux . 11 correspondant au mois de novembre et 16 à l'année 2016 et ville de Bordeaux = texte cellule C4
   
   je souhaiterai que le nom proposé affiché après le mois et l'année inscrive automatiquement le texte d'une cellule précise soit disons C4
   
   j'aimerai que ce fichier soit créé dans un dossier qui porte le même nom. Celà vous semble t il réalisable ?
   
   merci a vous
   Seb

 

[sousou]

Bonjour
Tu peux essayer ceci.
j'ai mis c: comme lecteur , il faudra ajuster à ta configuration
Sub deb()
nom = Month(Date) & "-" & Year(Date) & Sheets(1).Range("c4").Value & ".xlsm"
MsgBox nom
chemin = "c:\" & nom
MsgBox chemin

ThisWorkbook.SaveAs (chemin & "/" & nom)
End Sub

 

[sebbbbb]

super
j'essaie et te tiens informé
merci pour ton aide et a bientot

 

[sebbbbb]

Super
j'essaie ce WE et te tiens informé
merci pour ton aide et a bientot

 

[sebbbbb]

Hello
sniff celà ne fonctionne pas ou plus probablement je n'ai pas compris l'astuce.
merci par avance

 

[sousou]

Bonjour
une petite erreur un'/' de trop après le chemin
Voici ce qui fonctionne sur mon pc avec 'mon chemin' à modifier

Sub deb()
nom = Month(Date) & "-" & Year(Date) & Sheets(1).Range("c4").Value & ".xlsm"
MsgBox nom
chemin = "C:\Documents and Settings\HP_Propriétaire\Bureau\exceldownload" & nom
MsgBox chemin

ThisWorkbook.SaveAs (chemin & nom)
End Sub

Supprimes les msgbox une fois tout ok bien sur

 

[sebbbbb]

bonjour Sousou
merci pour ta patience mais j'ai toujours le même prob : rien ne se passe
j'ai ajouté ton code a un fichier test.
peux tu regarder ce qui cloche stp ?
un grand merci par avance
seb

 

[sousou]

Re
1/ tu utilises les options explicites (ce que j'ai la mauvaise habitude de ne pas faire) donc tu doit déclarer les variable nom et chemin dans ton module
2/ Pour viser la feuille fb c'est Sheets("fb") en non sheet(fb) ce qui voudrait dire que le nom de la feuille est dans une variable nommée fb
La procédure est dans thisworkbook (moyen) ca marche, mais je te conseil de mettre cette procédure dans un module à part.
3/ En plus je ne sais pas ce que j'ai fait dans la copie du code, mais mon chemin & nom c'est faux.....
Maintenant il faut voir comment tu lances la procédure?
Comme quoi il est préférable de fournir dans ce forum une copie la plus ressemblante possible à la réalité
Change le chemin et tien moi au courant