Enregistrer sous VBA Excel PB!!!

medeuy Messages postés 45 Statut Membre -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaite enregistrersous dans une macro VBA, et je me retrouve face à un probleme...
Je veux povoir en même temps enregistrer sous le nom que je veux et pouvoir en même temps gérer les boutons annuler et non si besoin g un bout de code un peu modifié et je sais pas comment faire

Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N4
With NewClasseur
.Title = "Requetes Niveau 4"
.Subject = "Query N4"
Set enregistrersous = Application.Dialogs(xlDialogSaveAs)
End With
With NewClasseur
.SaveAs Filename:=Application.GetSaveAsFilename

End With
If Application = False Then
NewClasseur.Close SaveChanges:=False
Exit Function
NiveauForm.Show
Application.EnableEvents = False 'Réactive la prise en compte des Evts
Application.ScreenUpdating = True 'Réactive la mise à jour de l'écran
Else
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Tu nous a fait une soupe de code et tu n'as pas de réponse car il faut éviter de mettre du vrac.

    Tu peux essayer ceci qui fonctionne mais on ne fait pas cela dans une fonction mais dans une "sub" 
    Dim NewClasseur As Workbook
Dim enregistrersous As Variant
Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N4
With NewClasseur
    .Title = "Requetes Niveau 4"
    .Subject = "Query N4"
End With
enregistrersous = Application.Dialogs(xlDialogSaveAs).Show
If enregistrersous = False Then Exit Function
NewClasseur.Close SaveChanges:=False

Application.EnableEvents = True 'Réactive la prise en compte des Evts
Application.ScreenUpdating = True 'Réactive la mise à jour de l'écran
NiveauForm.Show
    0