sauvegarder sous

[nimbus le truand]

Bonjour les gens du forum,

Voici un code qui permet de ‘sauvegarder sous’ un nom avec un numéro de fichier qu’un utilisateur aura rentré. Le problème est que j’ai quelques lacunes en VBA, même dire que je suis un débutant ; mais j’ai tenté de faire quelque chose, et en voici le résultat :

Sub Sauvegarde()

' Récupère le nom du fichier sans l'extension
NomFichier = ThisWorkbook.Name 'Récupère le nom
NomFichier = Strings.Replace(NomFichier, ".xls", "") 'Enlève l'extension

' Récupère un numéro
Dim NumFichier As Integer
NumFichier = InputBox("Quel est le numéro du Fichier (entier seulement) ?")

' Sauvegarde le fichier avec le numéro sous le forme : "NomFichier NumFichier.xls"
ThisWorkbook.Activate
Application.Dialogs(xlDialogSaveAs).Show 'Et là, je sais pas comment lui donner les paramètres !!!
'
End Sub

Alors là, faites-vous plaisir Critiquez !!

J’attends vos réponses avec enthousiasme…

Bonne journée à vous.

Nimbus

 

[G.David]

Cher Nimbus ,cher Enthousiasme
puisque vous attendez des réponses
en voici une :
Quelle est la question?
Cordialement
G.David

 

[Yeahou]

Bonjour Nimbus le truand, G.David, Le Forum

Nimbus, je te propose ce code qui utilise getsaveasfilename plutôt que Dialogs(xlDialogSaveAs).

Cordialement, A+

Sub Sauvegarde()
Dim Nom_Fichier As String, Nom_Fichier_Final As String
Dim Num_Fichier As Long
' Récupère le nom du fichier sans l'extension
Nom_Fichier = ThisWorkbook.Name 'Récupère le nom
If InStr(1, Nom_Fichier, ".", 1) > 0 Then Nom_Fichier = Left(Nom_Fichier, InStr(1, Nom_Fichier, ".", 1) - 1) 'Enlève toute extension présente

' Récupère un numéro
Do
Num_Fichier = Application.InputBox(Prompt:="Quel est le numéro du Fichier (entier seulement) ?", Type:=1)
Loop Until Num_Fichier > 0

' Sauvegarde le fichier avec le numéro sous le forme : "Nom_Fichier Num_Fichier.xls"
Nom_Fichier_Final = Application.GetSaveAsFilename(Nom_Fichier & "_" & Num_Fichier & ".xls", FileFilter:="Fichiers Excel (*.Xls),*.Xls", Title:="Enregistrement") 'dialogue enregistrer sous
If Not (Nom_Fichier_Final = "Faux") Then ThisWorkbook.SaveAs Filename:=Nom_Fichier_Final Else MsgBox "Annulation, fichier non enregistré", vbInformation 'sauvegarde le fichier si pas d'annulation
End Sub

 

[nimbus le truand]

Content de faire ta connaissance G.David,

Ma question, il est vrai, est caché car il fallait comprendre :
Si vous avez des idées de codes plus rapides avec gestionnaire d’erreur, qui permettrai d’améliorer ce que je vous propose, faite moi vos propositions !!

Voilà, en espérant avoir répondu à ton message..

Bien à toi

Nimbus

 

[yeahou]

Bonjour G.David, Nimbus le truand, le forum

Nimbus, tu entends quoi par gestionnaire d'erreur et code + rapide ?
celui que j'ai proposé convient pas?

A+

 

[nimbus le truand]

Bonsoir Yeahou, G.David et tout le monde

Si bien sur que le code me va !!
Je les juste mis à ma sauce pour l’incorporer dans un gros programme mais sinon ça me va.
Seul test qui ne passe pas et le suivant :
‘toto v1.0.xls’ devient ‘toto v1_99.xls’ ; il ne supprime pas que l’extension !!

Pour moi un gestionnaire d’erreur (comme dans Java avec Try Catch Finally) permet de prévenir des erreurs éventuels du programme. Mais je pense que je rentre là dans une programmation poussée … !!

bye

 

[Yeahou]

Bonjour Nimbus

pour éviter ce problème, utilise InstrRev à la place de instr (attention syntaxe différente), mais je serai toi, j'éviterai les points dans les noms.

A+

 

[nimbus le truand]

Bonjour à vous tous,

Merci pour l’aide que vous m’avez apporté !!

J’ai laissé tomber ta résolution de problème Yeahou, ça fait assez compliqué pour le programmer… et y’aura pas de point dans les noms de fichiers, je l’ai noté pour les utilisateurs !!

Merci encore à tous

Nimbus