Discussion :

[mentat]

Bonjour,

A l'aide d'un bouton je crée un workbook ou je viens y coller un tableau.
J'ouvre ensuite la boite de dialogue pour la sauvegarde seulement j'ai formater le nom de sauvegarde du fichier mais il n'apparait pas dans la boite de dialogue...
Sinon la sauvegarde ce fais bien...

J'utilise ce code avec excel 2003 et ça marche mais avec 2007 ça ne fonctionne pas...

Merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub CommandButton3_Click()
 
'Chemin où est collé le fichier Excel
cheminxls = ThisWorkbook.Path
 
datemsj = Worksheets("Liste").Range("Date").Value
 
ligne = Range("K65535").End(xlUp).Offset(1, 0).Row
Worksheets("Liste").Range("B1:k" & ligne).Copy
 
    Workbooks.Add
     Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
nomsauvegarde = "Mise à jour vidéotech" & ".xls"
 
 fileSaveName = Application.GetSaveAsFilename(InitialFileName:=cheminxls & "\" & nomsauvegarde)
If fileSaveName <> False Then
 ActiveWorkbook.SaveAs fileSaveName
 MsgBox fileSaveName, , "Fichier sauvegarder sous: "
 Else
End If
 
End Sub

[Gorfael]

Salut mentat et le forum
Peux pas vraiement t'aider, n'ayant que 2003, mais le format par défaut de 2007 n'est pas XLS à ma connaissance. Ton erreur vient peut-être de là.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If fileSaveName <> False Then
'.....
 Else
End If

Pourquoi mettre Else alors que tu ne l'utilises pas ? ça fonctionnera pareil si tu ne le mets pas.
A+