Microsoft 365 ActiveWorkbook.SaveAs Filename:= _

[lesoldat9]

Bonjour,

J'ai ma macro qui plante du jour au lendemin avec un message d'erreur "Erreur d'exécution '1004': La méthode 'saveas' de l'objet '_workbook' a échoué.
Voici mon bout de code si quelqu'un peut m'aider.
Car, la je sèche ...

Workbooks.Open Filename:= _
"" & chem_macro & "\Détail facturation - " & MO & ".xlsx"

ActiveWorkbook.SaveAs Filename:= _
"" & chem_macro & "\Fichiers de diffusion client\Détail facturation ref regroupement - " & MO & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

[fanch55]

Bonjour,

Difficile de vous aider sans savoir ce qui est dans les variables,
pourriez-vous rajouter Avant le SaveAs :

msgbox "chem_macro=" & chem_macro
msgbox "Mo=" & MO
msgBox Dir(chem_macro & "\Fichiers de diffusion client", vbDirectory)

 

[lesoldat9]

Bonjour,

Difficile de vous aider sans savoir ce qui est dans les variables,
pourriez-vous rajouter Avant le SaveAs :

msgbox "chem_macro=" & chem_macro
msgbox "Mo=" & MO
msgBox Dir(chem_macro & "\Fichiers de diffusion client", vbDirectory)

Bien sûr.

 

[lesoldat9]

Bien sûr.

Le dernier code me donne un message d'erreur fichier introuvable

 

[fanch55]

Si c'est un fichier sharepoint, le dir ne fonctionne pas,
pourriez-vous vérifier que l'arborescence existe bien

 

[lesoldat9]

Si c'est un fichier sharepoint, le dir ne fonctionne pas,
pourriez-vous vérifier que l'arborescence existe bien

L'arborescence existe bien.

 

[fanch55]

Bon, alors il ne reste plus qu'un cas possible : le classeur a été ouvert en parallèle sur 2 postes ....

 

[lesoldat9]

Bon, alors il ne reste plus qu'un cas possible : le classeur a été ouvert en parallèle sur 2 postes ....

Non plus