Macro enregistrer

[adi399]

Bonjour à tous,
Problème:

je voudrais que lorsque la personne clique sur un bouton, l'écran d'enregistrer sous apparraisse dans un dossier défini, qui contient lui même plusieurs autres dossiers que viendrai selectionner manuellement la personne pour enregistrer.

Je n'arrive pas à créer une macro en automatique pour la modifier ensuite... :s
Merci d'avance de votre aide !
@+

 

[Pierrot93]

Re : macro enregistrer

Re,

allez, peut être en modifiant comme ceci...

If Nomfile Like "*Version*" Then
    NomCourt = Split(ActiveWorkbook.Name, "-")(0)
Else
NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
End If

 

[adi399]

Re : macro enregistrer

Merci beaucoup à vous deux!!! je progresse grâce à vous!
Bonne journée et à bientôt.

PS: savez vous comment on classe une discussion en "résolu"?

 

[Pierrot93]

Re : macro enregistrer

Re,

PS: savez vous comment on classe une discussion en "résolu"?

pas de "flag" sur ce forum, tu le dis et c'est très bien, certains éditent leur 1er message en modifiant le titre...

 

[RENAUDER]

Re : [Résolu]macro enregistrer

Bonjour,

La solution de Pierrot s'affranchit du nombre de caractères à retrancher sauf qu'il ne faut pas dans ton nom de fichier avoir un tiret avant celui de Version.
Exemple à bannir par exemple un tiret entre Suivi et travaux:
Suivi-Travaux-Version ......xls

Info:
J'ai re-testé, c'était 24 au lieu de 23

 

[adi399]

Re : [Résolu]macro enregistrer

Ok effectivement en testant avec mes noms de fichier qui comporte des -, cela pose encore problème...
J'ai remodifié votre code Eric et un autre problème est apparût:

Le nom d'enregistrement est parfait :
classeur-1-version 27-10_0924
classeur-1-version 27-10_0925
classeur-1-version 27-10_0926

Cependant ils ne s'enregistre pas en type: "feuille de calcul excel" mais juste en type : "fichier". Je ne comprend pas.. je rééssaye

 

[adi399]

Re : [Résolu]macro enregistrer

oups le code :

Sub EnregistrerAvecVersion()
ChDir "C:\Documents and Settings\ab\Bureau\Copie de ESSAI"
Nomfile = ActiveWorkbook.Name
If Nomfile Like "*Version*" Then
NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 24)
Else
NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
End If
FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & _
"-Version " & Format(Now, "dd-mm_hhmm"), _
fileFilter:="Fichiers Excel (*.xls), *.xls", Title:="Enregistrement")
ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[RENAUDER]

Re : [Résolu]macro enregistrer

Bonjour,

Je ne comprends pas ton problème.
Une feuille de calcul s'enregistre dans fichier Excel!!!

 

[adi399]

Re : [Résolu]macro enregistrer

Je ne comprend pas non plus..
lorsque je veux enregistrer sous par la voie normal (fichier enregistrer sous), J'ai bien ds le type : fichier excel(*.xls) comme sur votre image, ainsi que d'autres types.
Mais lorsque j'utilise la macro, j'ai qu'un seul choix : Fichier excel ... ??? bon je peux toujours en cliquant sur l'icone ouvrir excel seulement ce n'est pas l'îcone d'excel vert, c'est un îcone blanc.

 

[RENAUDER]

Re : Macro enregistrer

Bonjour,
C'est normal car on utilise la fonction GetSaveAsFilename (prédéfinie) mais ça enregistre au format d'un classeur Excel.
Tu peux mettre cela à la place si tu préfères:

FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & "-Version " & Format(Now, "dd-mm_hh-mm"), _
fileFilter:="Classeur Microsoft Office Excel (*.xls), *.xls", _
Title:="Enregistrement")

 

[adi399]

Re : Macro enregistrer

d'accord mais ce n'est pas possible d'avoir l'îcone excel sans tout modifié le code? parceque les personnes qui vont utiliser mes sauvegardes ne connaissent pas vraiment ce type de fichier... sinon je m'en contenterai

 

[RENAUDER]

Re : Macro enregistrer

Bonjour,
De quel icône tu parles ?
J'ai bien des icônes Excel.

 

[Pierrot93]

Re : Macro enregistrer

Re,

pour le fun..

Dim s As String
s = "nom-fichier-origine-Version 27-10_1203.xls"
MsgBox Split(s, "-Version")(0)

bon après midi
@+

 

[adi399]

Re : Macro enregistrer



J'éspere que le lien fonctionne

 

[RENAUDER]

Re : Macro enregistrer

Bonjour,

Non le lien ne fonctionne pas

 

[adi399]

Re : Macro enregistrer

j'ai inseré un petit îcone dans le message précédent il n'est pas visible? c'est cet îcone dont je parle