Discussion :

[ericfou]

Bonjour,

Je suis débutant en VBA et j'essaye créer un bouton pour enregistrer un fichier là ou je veux dans le forma que je veux et avec le nom définis dans une cellule.

A force de piocher des idée à droite et à gauche j'arrive à ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub SavefichierEF()
Dim fichier As String
Dim Name As String
On Error Resume Next
Name = [F14]
ChDir "D:\SUD GEOTECHNIQUE\Devis\"
fichier = Application.GetSaveAsFilename(InitialFileName:="D:\SUD GEOTECHNIQUE\Devis\" & Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, FileFilter:="Excel Files (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub

Et pouf argument nommé introuvable. je sais pas trop comment faire et je comprend pas d’où vient l’erreur.
Si possible merci d'être didactique, je suis vraiment débutant débutant.

Merci

[mfoxy]

Hello,

La notation a crochet que vous utilisez est à proscrire de tout code "correct" pour de nombreuses raisons.

Lancer son code en mode pas à pas, permet de se rendre compte des soucis du contenu de variable, et est souvent d'une bone aide pour identifier des variables qui ne contiendraient pas la donnée escomptée.

Un peu de lecture :

notation-raccourcie-plage-fausse-bonne-idee/

[ericfou]

Bonjour,
Merci pour cette précision.
Bon mais même avec Range ça plante toujours

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SavefichierEF()
'Macro dan le 28/11/2010
Dim fichier As String
Dim Name As String
On Error Resume Next
Name = Range("F14").Value
ChDir "D:\SUD GEOTECHNIQUE\Devis\"
fichier = Application.GetSaveAsFilename(InitialFileName:="D:\SUD GEOTECHNIQUE\Devis\" & Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, FileFilter:="Excel Files (*.xlsm), *.xlsm")
If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub

[mfoxy]

Hello,

Essaie avec ce code, il sera à modifier par tes soins pour allé chercher le Name dans ta cellule ( attention a bien indiquer aussi la parentalité de ton Range dans le code)

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
Sub SavefichierEF2()
 
    Dim strFolder As String
    Dim i As Long
    Dim chemin As String
 
 
    Filename = ActiveWorkbook.Name & "_" & Format(Now, "yyyy-mm-dd_hh mm") & ".xlsm" ' A modifier en allant chercher ta cellule ( bien laisser le .Xlsm)
    chemin = "D:\SUD GEOTECHNIQUE\Devis\"
 
    'Open Save As dialog to a default folder with default file name
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = False
        .InitialFileName = chemin & Filename
        .InitialView = msoFileDialogViewDetails
 
        If .Show = -1 Then strFolder = .SelectedItems(1) Else Exit Sub
 
        'get selected folder path from FileDialog, but remove filename from FileDialog
        folderPath = Left(strFolder, InStrRev(strFolder, "\"))
 
        'Save this workbook in chosen file path & appropriate filename
        'File format .xlsm
        ThisWorkbook.SaveAs Filename:=folderPath & Filename, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    End With
End Sub

[ericfou]

Ha super !

ça marche nickel !!!

Merci bcp