enregistrement auto

[MARC69]

bonsoir,
je souhaiterai par le biais d'une macro à partir d'un fichier xlt pouvoir enregistrer mon nouveau classeur d'où le nom viendrait de la valeur mise dans une case de la feuille.
ex: en B2 valeur (95) automatique le nom quand j'enregistre me donne 95.xls

merci pour votre aide

 

[MichelXld]

bonjour

tu peux tester ce type de synthaxe pour sauvegarder le fichier

ThisWorkbook.SaveAs 'C:\\\\\\\\mon Repertoire\\\\\\\\' & Range('B2') & '.xls'


bonne soirée
MichelXld

 

[Brigitte]

Bonjour le fil,


Plus qu'un Michel et tu deviens ?????

 

[MARC69]

salut, michel et merci mais cela ne fonctionne pas.

le pire est que dans un autre fichier j'ai utilisé la macro suivant qui fonctionne très bien, je l'ai pompé sur mon nouveau modèle et ça ne fonctionne pas , je ne compends pas!
Sub Enr_Fichier()
Dim nom_fich As String
Dim nom_wb As String
Dim magasin
enseigne = Range('B10').Value
magasin = Range('B11').Value

nom_wb = (enseigne) + ' ' + (magasin) + Str(Month(Date)) + Str(Day(Date)) + '-'


nom_fich = '\\\\Controleur\\documents\\Commercial\\DEMANDE PRIX ET CODE\\' + nom_wb + '.xls'
Application.Dialogs(xlDialogSaveAs).Show (nom_fich)
ThisWorkbook.Saved = True
End Sub

qui y a t'il la dedans qui enpeche de fonctionnerdans n4import quel fichier??
si quelqu'un trouve merci d'avance

 

[MichelXld]

rebonsoir Marc , bonsoir ma cher Brigitte


Brigitte , je te remercie pour ton gentil message


Marc , peux tu preciser ce qui ne fonctionne pas : quel est le message d'erreur ?
j'ai testé ta macro et je n'ai pas rencontré de probleme ( Excel2002)


bonne soirée
MichelXld

 

[MARC69]

merci de te penchais sur mon pb
je n'ai pas de message d'erreur par contre lors de la fermeture le nom qui devrait être proposé doit correspondre au cellule désirés ce qui n'est pas le cas

si tu trouve quelque chose dans le fichier joint.
ça serait bien sinon nous taperons le nom du fichier à la main tanpis
et merci encore [file name=FICHES.zip size=16299]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FICHES.zip[/file]

 

[MichelXld]

bonjour Marc

je suis surpris que tu n'ais pas de message d'erreur car chez moi , la macro n'accepte les symboles

/ contenu dans la cellule B10

et

\\\\\\\\ , que tu utilises dans cette ligne
'nom_fich = '\\\\\\\\ControleurdocumentsCommercialDEMANDE PRIX ET CODE' + nom_wb + '.xls'


'ControleurdocumentsCommercialDEMANDE PRIX ET CODE' correspond au nom du fichier ou à un répertoire ?
s'il s'agit d'un repertoire , il manque un antislash \\\\\\\\ avant le nom du classeur



quand tu utilises

Application.Dialogs(xlDialogSaveAs).Show (nom_fich)

as tu vérifié que la boite de dialogue s'affiche sur le bon répertoire par défaut ( chez moi , c'est la racine C )


bon week end
MichelXld

Message édité par: michelxld, à: 18/03/2006 08:20

 

[MARCO69]

bonjour michel

effectivement il manque le double antislach.


bon a force de bricolé ( je suis tres novice la dedans) j'obtiens ce que je veux en ouvrant mon modele xlt

par contre quand je double clic pour obtenir un nouveau fichier cela ne fonctionne pas.

je pense qu' en tatonnant je vais trouvé le pb.

encore merci

 

[MichelXld]

bonjour Marc , bonjour Brigitte

par contre quand je double clic pour obtenir un nouveau fichier cela ne fonctionne pas.

peux tu préciser à quel endroit tu double cliques et ce que tu veux dire par 'obtenir un nouveau fichier'


bonne journée
MichelXld