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 !
@+

 

[RENAUDER]

Re : macro enregistrer

Bonjour,

Essaies ceci

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) - 18)
    Else
        NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
    End If
    FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & _
        "-Version " & Format(Date, "dd-mm"), _
        fileFilter:="Fichiers Excel (*.xls), *.xls", Title:="Enregistrement")
    ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[WDAndCo]

Re : macro enregistrer

Bonsoir le Forum

NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)

je pense que si on modifie le 4 en 12 cela doit fonctionner !
a+
Dominique

Edit : Pardon je n'avait pas vu votre réponse !

 

[adi399]

Re : macro enregistrer

Merci pour vos réponses,
Le code me donne ceci:
-fichier1-version 26-10
-fichier1-version 27-10

Donc mon précédent problème est bien solutionné. par contre, il va m'arriver régulièrement d'enregistrer 2 fois ou plus le fichier dans la même journée, et la ça bloque car il me demande d'écraser le précédent...

je souhaiterais par exemple:
-fichier1-version 26-10
-fichier1-version 27-10
-fichier1-version 27-10 -2
-fichier1-version 27-10 -3
-fichier1-version 28-10

 

[Pierrot93]

Re : macro enregistrer

Bonjour à tous,

en l'absence d'Eric, peut être une autre approche en remplacant :

Format(Date, "dd-mm")

par :

Format(Now, "dd-mm_hh:mm")

bonne journée
@+

 

[adi399]

Re : macro enregistrer

Bonjour Pierrot93!,

Lorsque je modifie la ligne une autre erreur apparaît mais je n'ai pas l'impression qu'il y a un rapport avec la modif :

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

Erreur 1004 dans :
ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Autre question:
le code permet d'afficher le nom cour mais est-ce possible de l'avoir en entier?

 

[Pierrot93]

Re : macro enregistrer

Re,

autant pour moi, enlève les :

Format(Now, "dd-mm_hhmm")

 

[adi399]

Re : macro enregistrer

Le code me donne les enregistrements suivant:

Classeur1-version 27-10_0851
Classeur1-vers-version 27-10_0852
Classeur1-vers-vers-versions 27-10_0853

Comment éviter l'affichage de "vers" à chaque fois?

mon code actuelen cas d'erreur de ma part...)

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) - 18)
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 : macro enregistrer

Bonjour,

Dans ce cas il faut remplacer -18 par -22
Version 27-10_0851 =18 + .xls=4 soit 18+4=22

 

[adi399]

Re : macro enregistrer

C'est presque ça! en modifiant le 18 par 22, mes enregistrements donne ceci:

Classeur1-Version 27-10_0924
Classeur1--Version 27-10_0925
Classeur1---Version 27-10_0926
Classeur1----Version 27-10_0927

Seul le tiret pose problème.

Mon 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) - 22)
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

 

[Pierrot93]

Re : macro enregistrer

Re,

comme ca je dirais 18 et 5 23...

 

[RENAUDER]

Re : macro enregistrer

Bonjour Pierrot,

Moi je dirais 19 et 4 (de toute façon le résultat sera le même.)

-Version 27-10_0924=19
.xls=4

 

[adi399]

Re : macro enregistrer

J'ai bien peur de vous avoir perdu sur ce coup la.. à quoi correspond ces chiffres?

 

[Pierrot93]

Re : macro enregistrer

Re,

Moi je dirais 19 et 4 (de toute façon le résultat sera le même.)

oui, tu as raison Eric, mais j'ai pas tout suivi du fil...

 

[RENAUDER]

Re : macro enregistrer

Bonjour,

Je lis le nom du fichier ouvert (NomFile)
Si le programme trouve une chaîne de caractères contenant "Version" alors il doit retirer la partie "-Version 26-10_0924.xls" pour la remplacer par la nouvelle date, heure et extension, soit 23 caractères.
Exemple:
Nom du fichier ouvert: Suivi travaux-Version 26-10_0924.xls ce qui donne en retranchant 23 caractères: Suivi travaux et ensuite il suffit de rajouter à "Suivi travaux" le libellé -Version 27-10_1022.xls
S'il ne trouve pas de chaîne de caractères contenant "Version", il ajoute simplement -Version 27-10_1022.xls

 

[adi399]

Re : macro enregistrer

Ok merci pour les explications!
Cependant mon problème de tirets superflus est toujours d'actualité... je n'arrive pas à mes fins et ce, même en modifiant le nombre de caractères.

Classeur1-Version 27-10_0924
Classeur1--Version 27-10_0925
Classeur1---Version 27-10_0926
Classeur1----Version 27-10_0927