KTM
XLDnaute Impliqué
Bonjour Forum
Je travaille sur une base de donnée et souvent j'ai besoin de copier cette base dans un nouveau classeur pour d'autres usages.
j'ai bricoler la macro si dessous mais apparemment ç'est pas parfait.
Pouvez vous m'apporter une aide?
Sub EXPORT()
Dim chemin, NomFichier As String, p As Range
Dim f As Worksheet
Set f = Sheets("RDV")
Set p = f.Range("A1:G" & f.UsedRange.Rows.Count)
chemin = ThisWorkbook.Path & "\Dossier_RDV\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
NomFichier = "RDV" & ".xlsx"
p.SaveAs Filename:= _
chemin & NomFichier, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Je travaille sur une base de donnée et souvent j'ai besoin de copier cette base dans un nouveau classeur pour d'autres usages.
j'ai bricoler la macro si dessous mais apparemment ç'est pas parfait.
Pouvez vous m'apporter une aide?
Sub EXPORT()
Dim chemin, NomFichier As String, p As Range
Dim f As Worksheet
Set f = Sheets("RDV")
Set p = f.Range("A1:G" & f.UsedRange.Rows.Count)
chemin = ThisWorkbook.Path & "\Dossier_RDV\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
NomFichier = "RDV" & ".xlsx"
p.SaveAs Filename:= _
chemin & NomFichier, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub