Discussion :

[Chamboultou]

Bonjour

J'ai l'impression que ma syntaxe est bonne, que le chemin est Ok, et pourtant cette ligne ne passe plus dans ma macro ...
Pourquoi ?

Code :

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

ActiveWorkbook.SaveAs Filename:="K:\FISCALITE\TVA\2019\01 - Cadrages TVA\01.2019\427 - Cadrage CA+TVA 01.2019 DD.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

En plus elle fonctionnait avant sans que je ne change rien...
Le message est : la méthode 'SaveAs' de l'objet '_workbook' a échoué.

Auriez vous une idée ?

Merci beaucoup

[halaster08]

Bonjour,
Je ne vois pas d'erreur flagrante,
Tu peux tester si ton chemin est bon avec ce code:

Code :

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

1
2
3
4
5
6
7
8
Sub test()
 
If Dir("K:\FISCALITE\TVA\2019\01 - Cadrages TVA\01.2019", vbDirectory) = "" Then
 MsgBox "Le répertoire n'existe pas"
Else
 MsgBox "Le répertoire existe"
End If
End Sub

Es-tu sur d'avoir les droits d'écriture dans ce répertoire ?

[Menhir]

En plus elle fonctionnait avant sans que je ne change rien...

Il est peu probable qu'une macro qui fonctionnait cesse de le faire sans qu'aucun élément externe ou interne n'ait été modifié.

As-tu vérifié ce que contient ActiveWorkbook au moment où le code atteint cette ligne ?

Dans quoi est placée cette ligne de code ? Une fonction ? Une macro évènementielle ? Une macro de userform ? Une Googlesheet ? Autre particularité ?

Es-tu sûr que ça fonctionnait avec ce "+" dans le nom de fichier ?