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