Microsoft 365 ActiveWorkbook.SaveAs Filename:= _

lesoldat9 · 8 Juin 2023

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 · 8 Juin 2023

Bonjour,

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

VB:

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

lesoldat9 · 8 Juin 2023

fanch55 à dit:
Bonjour,

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

VB:

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

Bien sûr.

lesoldat9 · 8 Juin 2023

lesoldat9 à dit:
Bien sûr.

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

fanch55 · 8 Juin 2023

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

lesoldat9 · 9 Juin 2023

fanch55 à dit:
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 · 9 Juin 2023

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

lesoldat9 · 7 Juillet 2023

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

Non plus

Microsoft 365 ActiveWorkbook.SaveAs Filename:= _

lesoldat9

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

Pièces jointes

lesoldat9

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

Discussions similaires