GetSaveAsFilename pour vba exel [Résolu]

[argon]

Bonjour tout le monde

J'essais de créer un nouveau fichier exel en l'enregistrant.

j'arrive à créer un nouveau fichier, mai je n'arrive pas à le nommer.

Voici le code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub enregistrersous()
 
Dim msg As String
Dim nomClasseur As String
Dim vclasseur As Workbook
 
On Error Resume Next
 
Set vclasseur = Workbooks.Add
nomClasseur = Application.GetSaveAsFilename
 
If Err.Number <> 0 Then
    msg = "impossible d'enregistrer le Classeur" & nomClasseur & vbCr
    msg = msg & "erreur N° " & Err.Number & " : " & Err.Description
    MsgBox msg, vbExclamation, "Enregistrement impossible"
End If
 
End Sub

Y a t'il un moyen de nommer le fichier lors de sa création.

Cordialement

A bientôt

[bbil]

GetSaveAsFileName , ne te permet pas de sauver mais de sélectionner/Saisir le nom avec lequel tu ve sauver ton fichier...

modifie la ligne :

Code :

1
2
 
Dim nomClasseur

sans type (Variant) .. GetSaveAsFileName retournant un boolean à false si pas de fichier sélectionner, sinon retourne une chaine contenant le nom dee fichier..


puis

Code :

1
2
3
4
5
 
nomClasseur = Application.GetSaveAsFilename
If nomClasseur <> False Then
  vclasseur.SaveAs nomClasseur
End If

[ThierryAIM]

Il faut l'enregistrer :

Code :

If nomClasseur <> "" Then vclasseur.SaveAs Filename:=nomClasseur

[argon]

Bonjour tout le monde

Ca fonctionne, je souhaiterais faire en sorte que le fichier enregistré soit automatiquement en .xls

J'ai essayé avec le code ci-dessous mai ca ne fonctionne pas.

Code :

1
2
 
nomClasseur = Application.GetSaveAsFilename(nomClasseur, xls, xls, enregistrer, enregistrer)

Que dois je modiffier svp.

Merci

Cordialement

A bientôt

[ThierryAIM]

il n'y a pas de touche F1 sur ton clavier ?

Code :

nomClasseur = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")

[argon]

Re

Merci ca fonctionne!

J'ai remarqué qu'il cré deux fois le même fichier.

Peux ton iremédier?

A+

[ouskel'n'or]

Mets tout le code que tu utilises pour cette sauvegarde

[argon]

Bonsoir tout le monde



Voici tout le code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Dim msg As String
Dim nomClasseur
Dim vclasseur As Workbook
 
On Error Resume Next
 
Set vclasseur = Workbooks.Add
nomClasseur = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
 
If nomClasseur <> False Then
 
vclasseur.SaveAs nomClasseur
 
End If
 
If nomClasseur <> "" Then
vclasseur.SaveAs Filename:=nomClasseur
 
End If
 
If Err.Number <> 0 Then
    msg = "impossible d'enregistrer le Classeur" & nomClasseur & vbCr
    msg = msg & "erreur N° " & Err.Number & " : " & Err.Description
    MsgBox msg, vbExclamation, "Enregistrement impossible"
End If
 
End Sub

Cordialement

A bientôt

[ouskel'n'or]

Ça ne te paraît pas évident ? Là, effectivement, tu enregistres deux fois le fichier
Si tu veux tester les deux conditions, essaie ça :

Code :

1
2
3
If (nomClasseur <> False) or (nomClasseur <> "" )Then 
     vclasseur.SaveAs filename:=nomClasseur 
End If

Je ne suis pas sûr que tu puisses à la fois tester un boolean et un string... Si tu as une erreur, imbrique tes tests

Code :

1
2
if....test 1
....if test 2

Mais comme je n'ai pas tout relu, je ne comprends pas ton double test
Tu testes et tu dis, je relirai si nécessaire

[argon]

Re

Merci, ca fonctionne ouskel'n'or

Faudra que je face plus attention la prochaine fois.

A+