Erreur d'exécution 424 sur ActiveWorkbook.SaveAs ".csv"

**paulomeir** · 29/08/2018, 17h41

bonjour à tous,

J'essaye de créer un fichier xlsm (excel2016 mac) qui peut être copié dans des répertoires différents et depuis ce même fichier, enregistre au format csv, mais voilà, ça ne fonctionne pas, et ça fait maintenant quelques semaines que je bloque sur ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Macro1()
 
 'variable identification onglet
Dim ws_Donn As Worksheet 'Donnees'
Dim chemincsv As String
Dim cheminxlsm As String
Dim cheminWithoutFileName As String
 
'identifier l'onglet saisi
Set ws_Donn = Worksheets("donnees")
cheminWithoutFileName = Application.ActiveWorkbook.path
 
 'ws_Donn.Unprotect "1234" '  'ou 1234 est le mot de passe
 'ws_Donn.Visible = True
 'ws_Donn.Select
 
'Copier l'adresse du fichier
 
   ThisWorkbook.Sheets("donnees").Range("A4") = cheminWithoutFileName
   chemincsv = Sheets("donnees").Range("A4").Value & "/" & "donnees.csv"
 
'sauver fichier csv
 Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FileName:=chemincsv, _
    FileFormat:=xlCSV, Local:=True
 Application.DisplayAlerts = True
 
 'sauver fichier XLSM
cheminxlsm = Sheets("donnees").Range("A1").Value & Application.PathSeparator & "donnee.xlsm"
 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=cheminxlsm, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True
Application.DisplayAlerts = True
 
 'Activer la protection
ws_Donn.Protect "1234"
 
End Sub

Et je ne trouve pas de solution. Car il bloque toujours au même endroit :

Code :

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

1
2
ActiveWorkbook.SaveAs FileName:=chemincsv, _
    FileFormat:=xlCSV, Local:=True

mais si je désactive cette partie du code, le xlsm s'enregistre parfaitement dans le dossier source.
j'ai également tenté le code :

Code :

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

 ActiveWorkbook.path

sans succès

C'est pour cette raison que j'utilise la formule suivante qui me permet d'identifier sur le fichier le chemin complet du fichier et de l'utiliser dans le FileName:

Code :

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

1
2
ThisWorkbook.Sheets("donnees").Range("A4") = cheminWithoutFileName
   chemincsv = Sheets("donnees").Range("A4").Value & "/" & "donnees.csv"

Avez-vous rencontré les mêmes problèmes?
Merci d'avance pour vos réponses.

**Menhir** · 29/08/2018, 18h12

Envoyé par paulomeir

il bloque toujours au même endroit

Quel est le message d'erreur ?

Code :

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

1
2
ThisWorkbook.Sheets("donnees").Range("A4") = cheminWithoutFileName
   chemincsv = Sheets("donnees").Range("A4").Value & "/" & "donnees.csv"

Je ne comprends pas pourquoi tu passes par l'intermédiaire d'une cellule.
Il serait plus simple d'écrire :

Code :

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

   chemincsv = ActiveWorkbook.path & "/" & "donnees.csv"

Le format CSV ne pouvant pas gérer le multi-onglets, je penses aussi que tu devrais lancer ton SaveAs sur l'onglet que tu souhaites sauvegarder et non sur le classeur entier.
Et d'utiliser SaveCopyAs et non pas SaveAs.

**paulomeir** · 30/08/2018, 08h45

bonjour,

Je suis parti avec la solution du chemin dans le fichier, car avec workbook.path ça ne fonctionne pas lorsque je change de répertoire, c'est en tout cas comme ça que j'ai résolu le problème avec le format xlsm.

du coup hier soir j'ai essayé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
 
 'variable identification onglet
Dim ws_Donn As Worksheet 'Donnees'
Dim chemincsv As String
 
 
'identifier l'onglet saisi
Set ws_Donn = Worksheets("donnees")
      chemincsv = Application.ActiveWorkbook.Path & "/" & "donnees.csv"
 
    Application.DisplayAlerts = False
    Active.Sheets.SaveCopyAs FileName:=chemincsv, _
    FileFormat:=xlCSV, Local:=True
     Application.DisplayAlerts = True
 
End Sub

Mais j'ai toujours le même message: "erreur d'exécution 424": objet requis
Mais lorsque j'ai le message, je fais déboguer, puis cmd+s et j'enregistre le fichier, je n'ai plus de problème dans ce répertoire. Mais ce n'est vraiment pas pratique, car je dois le faire à chaque fois pour chaque nouveau répertoire.
Est-ce que je dois spécifier la position du tableau pour l'enregistrement du fichier csv?

Je vous mets le fichier simplifié en pièces jointes: test.xlsm

**Menhir** · 30/08/2018, 09h50

Envoyé par paulomeir

Code :

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

    Active.Sheets.SaveCopyAs FileName:=chemincsv, FileFormat:=xlCSV, Local:=True

ActiveSheet s'écrit en un seul mot (sans point de séparation) et sans "s" final.
https://msdn.microsoft.com/library/6...ice.15%29.aspx

**Pierre Fauconnier** · 30/08/2018, 11h50

Salut

Ne pas confondre / et \

Je ne connais pas Mac, mais es-tu sûr d'utiliser le bon séparateur de dossier?

**paulomeir** · 30/08/2018, 13h41

bonjour,

@Pierre Fauconnier : c'est pour cette raison que dans mon premier code j'ai utilisé

Code :

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

Application.PathSeparator

qui permet de définir automatiquement le bon séparateur de répertoire.

@Menhir: en revanche en modifiant mon code comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim chemincsv As String

      chemincsv = ActiveWorkbook.Path & Application.PathSeparator & "donnees.csv"

    Application.DisplayAlerts = False
    ActiveSheet.SaveCopyAs FileName:=chemincsv, _
    FileFormat:=xlCSV, Local:=True
     Application.DisplayAlerts = True
     
End Sub

J'ai une erreur 438 " propriété ou méthode non gérée par cet objet" pour la ligne en rouge.
Avez-vous essayé mon fichier, avez-vous le même problème?

**Pierre Fauconnier** · 30/08/2018, 13h43

ActiveSheet.SaveCopyAs n'existe pas. Ce n'est pas une méthode valide
Soit tu sauves une copie de ton classeur: ActiveSheet => ActiveWorkbook
Soit tu sauves la feuille: ActiveSheet.SaveAs

Finalement, que souhaites-tu faire? Enregistrer la feuille, le classeur, une copie? A priori, c'est une feuille que l'on enregistre en CSV, tu devrais donc utiliser ActiveSheet.SaveAs.

Si ça ne va toujours pas, il me semblerait alors plus utile de repartir de ce que tu souhaites réaliser en l'exprimant "en français" (sans vba, sans Excel, juste dire "je voudrais...") et on te donnera le code qui convient

**paulomeir** · 30/08/2018, 14h28

Donc je recommence sans code,

1°Je souhaiterais créer un fichier ".xlsm" dans lequel j'ai un formulaire, dans l'onglet "formulaire" que je remplis et enregistre les données dans un tableau situé dans l'onglet "donnees". Ce document ".xlsm" je souhaite pouvoir le copier dans des dossiers différents.

2° Une fois les données dans l'onglet "donnees" sous forme de tableau, je souhaiterais enregistrer celle-ci dans le même répertoire que le fichier ".xlsm" dans un fichier nommé "donnees.csv" (uniquement les valeurs de l'onglet "donnees").

C'est cette dernière partie qui me pose problème et pour lequel je ne trouve pas de solution.

**Pierre Fauconnier** · 30/08/2018, 14h41

Essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
  Dim FileName As String
 
  FileName = "MonFichier"
  FileName = ThisWorkbook.Path & Application.PathSeparator & FileName
  ActiveSheet.Copy
  ActiveSheet.SaveAs FileName, xlCSV
  ActiveWorkbook.Close False
End Sub

ActiveSheet.Copy crée un nouveau classeur avec une copie de la feuille de données (si c'est elle qui est active, sinon, tu adaptes ton code).
A ce moment, ActiveWorkbook est le classeur qui vient d'être créé et ActiveSheet devient la nouvelle feuille créée dans ce nouveau classeur
On sauve cette feuille-là au format csv
on ferme le classeur actif (le nouveau, donc) sans l'enregistrer, et on se retrouve dans le classeur de travail.

Si tu ne fais pas comme ça, tu sauves ton classeur actuel au format csv...

**paulomeir** · 30/08/2018, 15h05

J'ai essayé la formule ci-dessus,

mais j'ai toujours une erreur

Erreur d'exécution "1004" : impossible d'accéder au document en lecture seule 'MonFichier'

Est-ce que c'est lié au MAC?

**Menhir** · 30/08/2018, 16h01

Envoyé par paulomeir

J'ai essayé la formule ci-dessus,

mais j'ai toujours une erreur

Erreur d'exécution "1004" : impossible d'accéder au document en lecture seule 'MonFichier'

N'y aurait-il pas simplement des problèmes de protection de fichier destination ou de droits d'écriture ?

**Pierre Fauconnier** · 30/08/2018, 15h11

Sur quelle ligne?

Essaie avec ActiveSheet.Move (Sur une machine, j'ai parfois des soucis avec ActiveSheet.Copy) => Attention, MOVE signifie que la feuille n'existera plus dans le classeur de départ...

N'oublie pas d'adapter le nom du fichier à ton cas

**paulomeir** · 30/08/2018, 15h17

J'ai toujours l'erreur "1004" sur le code

Code :

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

ActiveSheet.SaveAs FileName, xlCSV

le ActiveSheet.copy fonctionne bien, c'est vraiment à l'enregistrement du fichier

**Pierre Fauconnier** · 30/08/2018, 15h20

Tu es certain du séparateur de fichier qui est choisi? Tu peux mettre un point d'arrêt sur la ligne qui bloque pour voir sous quel nom il tente d'enregistrer le fichier. Ce que tu vois à l'air cohérent?

Tu peux aussi essaier de le faire manuellement avec Excel.

Si sur le mac tu as l'enregistreur de macros, enclenche l'enregistreur avant, tu auras le code pour t'aider...

**paulomeir** · 30/08/2018, 15h52

Pierre Fauconnier merci pour les réponses, je pense que ActiveWorkbook.path avec csv ne fonctionne pas sur mac.

Le code

Code :

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

ActiveSheet.SaveAs FileName, xlCSV

fonctionne si je remplace le FileName par le chemin d'accès complet, mais ça ne m'arrange pas, car je dois changer le chemin dès que je change de répertoire.

**Pierre Fauconnier** · 30/08/2018, 16h03

Je ne comprends pas bien ce que tu veux dire avec "... avec le csv ne fonctionne pas sous mac",

Que le chemin complet soit mis en dur ou soit le résultat d'un traitement, ça doit normalement revenir au même.

en manuel, ça a fonctionné?

**RyuAutodidacte** · 30/08/2018, 16h11

Bonjour,

Voir de ce côté : https://msdn.microsoft.com/fr-fr/vba...omultiplefiles

(Write on my phone)

**paulomeir** · 30/08/2018, 17h14

Envoyé par RyuAutodidacte

Bonjour,

Voir de ce côté : https://msdn.microsoft.com/fr-fr/vba...omultiplefiles

(Write on my phone)

je ne trouve pas comment placer les codes pour me valider les permissions.
j'ai toujours le même message

PS: Je suis novice et ces codes dépassent mes compétences

**paulomeir** · 30/08/2018, 16h12

Ce que je veux dire, c'est que si j'enregistre le fichier au format xlsm le code fonctionne, mais dès que je change le FileFormat pour un enregistrement en csv ça ne fonctionne plus

En manuel, ça fonctionne, mais il me donne un chemin fixe et non variable (emplacement du classeur de base).

C'est pour ça que je ne comprends pas et que ça fait maintenant 2 semaines que j'essaye de résoudre le problème.