N
nimbus le truand
Guest
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
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