Fonction SaveAs

Bonjour,

J'ai fait le code ci-dessous qui fonctionnait très bien hier et qui ne fonctionne plus ce matin.

La fonction SaveAs produit une erreur

chemin = Worksheets("Tableau d'origine").Cells(2, 13)
nomfichier = "Calques_Visees"

Dim DerniereLigne As Integer

DerniereLigne = Worksheets("Calques").Range("A65536").End(xlUp).Row
Worksheets("Calques").Range("A1:I" & DerniereLigne).Copy

Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs chemin & nomfichier & ".txt", _
FileFormat:=xlText
Application.DisplayAlerts = True
ActiveWorkbook.Close

Voyez vous où se trouve l'erreur ?

Bonjour,

chemin = Worksheets("Tableau d'origine").Cells(2, 13)

Je dirais que du coup tu as changé la valeur qui est dans la cellule M2 de la feuille "Tableau d'origine".

Non le chemin est bien dans cette cellule.

J'ai essayé avec

chemin ="/Volumes/Documents_iMac/Desktop/Traitement des visées/"

et j'ai la même erreur

Alors je ne vois pas

Bonjour,

J'ai modifié un peu mon code, j'ai peut-être avance mais pas sûr.

Cette fois j'ai une erreur 424 objet requis

Dim chemin As String
Dim nomfichier As String
Dim DerniereLigne As Integer

chemin = Worksheets("Tableau d'origine").Cells(2, 13)
nomfichier = "Calques_Visees"

DerniereLigne = Worksheets("Calques").Range("A65536").End(xlUp).Row
Worksheets("Calques").Range("A1:I" & DerniereLigne).Copy

Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")

Application.DisplayAlerts = False
CurrentWorkbook.Sheets("Feuil1").SaveAs FileName:=chemin & nomfichier & ".txt", _
FileFormat:=xlText

Application.DisplayAlerts = True
ActiveWorkbook.Close