Macro enregistrer

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2011

• #31

Re : macro enregistrer

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #32

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"?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2011

• #33

Re : macro enregistrer

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 27 Octobre 2011

• #34

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

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #35

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

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #36

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

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 27 Octobre 2011

• #37

Re : [Résolu]macro enregistrer

Bonjour,

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

 

Pièces jointes

• saveas.jpg

  68.6 KB · Affichages: 44
• saveas.jpg

  68.6 KB · Affichages: 49

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #38

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.

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 27 Octobre 2011

• #39

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:

Code:

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

 

Dernière édition: 27 Octobre 2011

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #40

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

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 27 Octobre 2011

• #41

Re : Macro enregistrer

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

 

Pièces jointes

• saveas.jpg

  76.1 KB · Affichages: 44
• saveas.jpg

  76.1 KB · Affichages: 46

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2011

• #42

Re : Macro enregistrer

Re,

pour le fun..

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #43

Re : Macro enregistrer



J'éspere que le lien fonctionne

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 27 Octobre 2011

• #44

Re : Macro enregistrer

Bonjour,

Non le lien ne fonctionne pas

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 27 Octobre 2011

• #45

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

 

Vote positif 0 Vote négatif