Macro enregistrement selon contenu d'une cell Fermé

Question

Bonjour, 

J'aimerais savoir si il est possible de créer une macro qui permettrait de definir un chemin d enregistrement flexible.

J explique, 
J'enregistre mon fichier sous le chemin suivant:
"X:\CdG\Présentations\2011\2011 08 bis\Package Budget Leader\anonyme.xlsx"

Grace à la macro j arrive à enrregistrer le fichier sous le nom du client situé dans la cellule S1 comme suit,
ActiveWorkbook.SaveAs Filename:= _
        "X:\CdG\Présentations\2011\2011 08 bis\Package Budget Leader\" & "" & Range("S1").Value, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("P&L by budget leader.xlsm").Activate

J'aimerai maintenant que le fichier sois placé dans un dossier de mois selon le mois indiqué dans la cellule S2. 

Pour que le 2011 08 bis (souligné dans le chemin suivant) puisse varié selon le contenue de S2.

"X:\CdG\Présentations\2011\2011 08 bis\Package Budget Leader\" & "" & Range("S1").Value

Est-ce possible? 


Merci d'avance de votre aide. 



Configuration: Windows XP / Internet Explorer 8.0

eriiic · Answer

Bonjour, 
Tout dépend de ce que tu as en S2. 
Si c'est une date : 
... & TEXTE(S2;"aaaa mm")&" bis" & ...

eric

manoelinho · Answer

Merci pour ta réponse mais je ne suis pas sûr de l'écriture à passer, 

"X:\CdG\Présentations\2011\& TEXTE(S2;"aaaa mm")&" bis" & Package Budget Leader & " & "" & Range("S1").Value, _

Cette écriture la est signalée comme incorrecte.

eriiic · Answer

Bonjour,  

essaie avec :  
fich="X:\CdG\Présentations\2011\" & TEXTE([S2];"aaaa mm") & " bis\Package Budget Leader\" & Range("S1").Value & ".xlsx"   
ActiveWorkbook.SaveAs Filename:= fich, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False   

Ce sont les cellules de la feuille active qui sont prises en compte. Sinon il faut en plus spécifier le nom de la feuille
eric

manoelinho · Answer

j ai essayé mais  EXCEL m indique une "erreur de compilation Fin d instruction attendu".

eriiic · Answer

oui, excuse-moi j'avais testé par formule et oublié de convertir en vba :  

fich = "X:\CdG\Présentations\2011\" & Format([S2], "yyyy mm") & " bis\Package Budget Leader\" & Range("S1").Value & ".xlsx"  

ça devrait être bon là :-)  

eric

et tant qu'on y est, si tu veux spécifier la feuille :
fich = "X:\CdG\Présentations\2011\" & Format([Feuil1!S2], "yyyy mm") & " bis\Package Budget Leader\" & [Feuil1!S1] & ".xlsx"

Macro enregistrement selon contenu d'une cell

5 réponses

Discussions similaires