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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sebbbbb

XLDnaute Impliqué
  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
 
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
 
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
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour