Problème avec enregister-sous vba excel

[matrix]

Bonjour,

Dans ce code, tous se passe comme je le veux sauf qu'en bout de ligne, rien n'enregistre sous:

Dim NomFichier,  w As String, NomDefaut As String
    
    
    w = "Horaire Semaine" & TextBox1.Value
    
    NomDefaut = w
    
    NomFichier = Application.GetSaveAsFilename(NomDefaut, "Microsoft Excel (*.xls), *.xls")
    
    If NomFichier = False Then
        MsgBox "Enregistrement annulé."

Pouvez-vous m'aider s.v.p

 

[smotty]

Re : Problème avec enregister-sous vba excel

Bonjour,

Pourquoi ne pas utiliser:

w = "Horaire Semaine" & TextBox1.Value

NomDefaut = w & ".xls"

activeworkbook.SaveAs Filename:=NomDefaut

car à priori tu n'as pas besoin de la boite de dialogue?

 

[matrix]

Re : Problème avec enregister-sous vba excel

Bonjour smotty,

La boite de dialogue est surtout pour choisir l'endroit ou je veux l'enregistrer.

 

[smotty]

Re : Problème avec enregister-sous vba excel

Je suis de retour,

Alors il te manque quelque chose.

essaie avec ça:

If NomFichier = False Then
MsgBox "Enregistrement annulé."
Else
ActiveWorkbook.SaveAs Filename:=NomFichier
End If

Car la boite de dialogue ne donne que le chemin avec le nom de fichier...😉

Cordialement

 

[matrix]

Re : Problème avec enregister-sous vba excel

Merci pour ton aide smotty.

Donc il est impossible d'ouvrir la boite de dialogue afin de choisir par moi même ou enregistrer le fichier excel ?

 

[smotty]

Re : Problème avec enregister-sous vba excel

salut matrix

si, le code que je t'ai donné est la suite du tien, ça donne donc:

Dim NomFichier, w As String, NomDefaut As String


w = "Horaire Semaine" & TextBox1.Value

NomDefaut = w

NomFichier = Application.GetSaveAsFilename(NomDefaut, "Microsoft Excel (*.xls), *.xls")
If NomFichier = False Then
MsgBox "Enregistrement annulé."
Else
ActiveWorkbook.SaveAs Filename:=NomFichier
End If

en fait la boite de dialogue te permet de récupérer le chemin du répertoire où tu veux enregistrer le fichier, dans ton cas, Nomfichier représente le chemin complet.

 

[matrix]

Re : Problème avec enregister-sous vba excel

Merci Beaucoup