Enregistrer un nouveau fichier vers un chemin précis

Bonjour,

tout d'abord, je suis nouveau, je fais des macros depuis seulement quelques jours donc désolé si ma question est un peu simple.

J'ai une macro qui créer un nouveau fichier excell et qui recopie les cellules d'une sheet du fichier dans lequel je me trouve vers ce nouveau fichier excell.

J'aimerais si c'est possible que le chemin d'accès par défaut proposé dans la boite de dialogue save as soit le même que le chemin du fichier dans lequel je me trouve.

voic mon code pour recopier vers un nouveau fichier.

Sub newfile()

 Dim line_nb As String

 nb_line = ActiveSheet.Range("A65536").End(xlUp).Row

 Range(Cells(1, 1), Cells(nb_line, 18)).Select
 Selection.Copy

 Workbooks.Add
 ActiveSheet.Paste

    ChDir "C:\"
    Application.Dialogs(xlDialogSaveAs).Show

End Sub

Merci

Bonjour,

Ube possibilité:

Sub newfile()
Dim line_nb As String

 ChDir ThisWorkbook.Path
 nb_line = ActiveSheet.Range("A65536").End(xlUp).Row

 Range(Cells(1, 1), Cells(nb_line, 18)).Select
 Selection.Copy

 Workbooks.Add
 ActiveSheet.Paste
    Application.Dialogs(xlDialogSaveAs).Show

End Sub

A+

Merci beaucoup,

oui, effectivement, c'est assez simple en fait...

En général on évite les Select :

Range(Cells(1, 1), Cells(nb_line, 18)).Copy

...est mieux !

A+

Pense à cocher résolu.

A+