Problème d'execution 1004 Methode SaveAs a échoué

Résolu/Fermé

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016 - Modifié par pijaku le 6/04/2016 à 12:23
bela0202 - 12 avril 2016 à 19:39

Bonjour,

je corrige les anomalies et j'ai eu cette erreur Problème d'exécution 1004 Méthode SaveAs a échoué plus cette ligne :

 wbA.SaveAs ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut,1) & ".xls"

pour plus de précision voici le bout de code :

Sub TerminerFichier(wb As Object, ldebut As Long, lfin As Long)
' Déclarations
    Dim wbPartiel As Object
    Dim wbA As Object
 
    
    Set wbPartiel = CreateObject("Excel.Application")
    wbPartiel.Application.Workbooks.Add
    Set wbA = wbPartiel.ActiveWorkbook
    wb.Worksheets(1).Range("A" & ldebut & ":Q" & lfin).Copy
    wbA.Worksheets(1).Range("A1:Q" & lfin - ldebut + 1).Select
    wbA.Worksheets(1).PasteSpecial
    wbA.Worksheets(1).Range("A1:Q" & lfin - ldebut + 1).Sort Key1:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("B"), Order1:=xlAscending, Key2:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("C"), Order2:=xlAscending, Key3:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("D"), Order3:=xlAscending
    FormatterFichier wbPartiel
        
    ' Vérification de l'absence de la génération précédente
    If FileExists(ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls") Then
        Kill ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls"
    End If
    wbA.SaveAs ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls"
    wbA.Close
    Set wbA = Nothing
    Set wbPartiel = Nothing
    
    ' Appeler la compression du fichier
    CompresserFichier wb.Worksheets(1).Cells(ldebut, 1)
End Sub(1).Cells(ldebut, 1)
End Sub

Est qu'il y a quelqu'un qui peut m'aider là-dessus je serai reconnaissante,
Merci bcp

A voir également:

La méthode saveas de l'objet workbook a échoué
La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
Vente objet occasion entre particulier - Guide
La méthode range de l'objet worksheet a échoué ✓ - Forum VB / VBA
La connexion a échoué - Forum Réseaux sociaux
Telechargement du firmware a echoue - Forum Box et Streaming vidéo

6 réponses

Réponse 1 / 6

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
5 avril 2016 à 22:40

Bonjour,

Comme tu sauvegardes en format ancien, il faut l'indiquer :

wbA.SaveAs ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls", xlExcel7

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016
6 avril 2016 à 14:47

Merci beaucoup pour ta réponse mais j'ai tjrs le même message d'erreur :(

Réponse 3 / 6

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
6 avril 2016 à 21:43

Bonjour,

Pourtant, cela fonctionne mais il faut que ton sous-répertoire existe.

http://www.cjoint.com/c/FDgtOHlLSGl

Public Sub test()
   Dim wbA As Object
    Set wbA = ActiveWorkbook
    wbA.SaveAs ActiveWorkbook.Path & "\" & wbA.Worksheets(1).Cells(1, 1) & ".xls", xlExcel8
End Sub

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016
6 avril 2016 à 22:08

J'ai testé avec
wbA.SaveAs ActiveWorkbook.Path & "\" & wbA.Worksheets(1).Cells(1, 1) & ".xls", 56

et ca passe mais j'ai un autre message d'erreur :
Microsoft office Excel attend la fin de l'exécution d'une action OLE d'une autre application

est ce que vous avez une idée de qu'est ce que ca peut être ce problème encore

Merci pour votre aide

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016
6 avril 2016 à 22:12

Puis mon sous répertoire il existe tjrs

Réponse 4 / 6

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016
Modifié par bela0202 le 7/04/2016 à 20:14

Bonjour,

Finalement ca a marché pour l'enregistrement avec xlExel8 mais j'ai un problème les fichiers ne s'ouvre pas avec Excel 2013. est ce que je mets dans le code VBA l'extension xlsx pour que je puisse l'ouvrir sous excel 2013 ou quoi ?, car je travaille sur une machine virtuelle avec excel 97-2003 et je dois envoyé ces fichiers avec mon poste normal sous excel 2013 mais les fichiers sont illisible.
qu'est ce que je peux faire.

Merci pour votre aide

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
7 avril 2016 à 21:43

Bonjour,

les fichiers sont illisible.
Cela vient du fait qu'ils ne sont pas bien enregistrés car sinon 2013 lis très bien xls correctement enregistré comme celui que je t'ai mis au-dessus.

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016 > gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
8 avril 2016 à 16:29

Bonjour ,

Merci pour ta réponse, ca marché avec le code que tu m'a mis mais le problème qu'il enregistre les donnée sous forme d'image c'est pour cela avec office 2013 c'est flou flou en voit rien.

Réponse 5 / 6

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
7 avril 2016 à 23:13

Bonjour,

C'est quoi l'intérêt de créer une nouvelle session excel alors qu'il est déjà lancé ?
Sinon crée ton fichier en mode compatibilité, il sera directement au format 97-2003 plutôt que de devoir le convertir ensuite.
eric

bela0202 Messages postés 8 Date d'inscription mardi 5 avril 2016 Statut Membre Dernière intervention 8 avril 2016
8 avril 2016 à 16:24

Bonjour,

Merci bcp pour vos réponse, le problème que ce Code : '**************************************************************
'* TerminerFichier() *
'* Phase finale de formattage des fichiers *
'* *
'* *
'**************************************************************

Sub TerminerFichier(wb As Object, ldebut As Long, lfin As Long)
' Déclarations
Dim wbPartiel As Object
Dim wbA As Object

Set wbPartiel = CreateObject("Excel.Application")
wbPartiel.Application.Workbooks.Add
Set wbA = wbPartiel.ActiveWorkbook

wb.Worksheets(1).Range("A" & ldebut & ":Q" & lfin).Copy
wbA.Worksheets(1).Range("A1:Q" & lfin - ldebut + 1).Select
wbA.Worksheets(1).PasteSpecial
wbA.Worksheets(1).Range("A1:Q" & lfin - ldebut + 1).Sort Key1:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("B"), Order1:=xlAscending, Key2:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("C"), Order2:=xlAscending, Key3:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("D"), Order3:=xlAscending
FormatterFichier wbPartiel

' Vérification de l'absence de la génération précédente
If FileExists(ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls") Then
Kill ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls"
End If
wbA = ActiveWorkbook
wbA.SaveAs ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls", xlExecel8
wbA.Close
Set wbA = Nothing
Set wbPartiel = Nothing

' Appeler la compression du fichier
CompresserFichier wb.Worksheets(1).Cells(ldebut, 1)
End Sub

il crée les fichiers mais je viens de voir que les données sont inséré dans le tableau sous forme d'image c'est pour cela quand je l'ouvre avec office 2013 il est illisible, si vous pouvez m'aider a résoudre ce problème je serai reconnaissante je suis bloqué je ne sais pas quoi faire

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
8 avril 2016 à 17:11

Personnellement je ne connais pas le format xlExecel8

Réponse 6 / 6

bela0202
12 avril 2016 à 19:39

Bonjour,

Qui peut me dire ce qui ne vas pas sur ce code car j'ai tjrs l'erreur 1004

Sub TerminerFichier(wb As Object, ldebut As Long, lfin As Long)
' Déclarations
Dim wbPartiel As Object
Dim wbA As Object

Set wbPartiel = CreateObject("Excel.Application")
wbPartiel.Application.Workbooks.Add
Set wbA = wbPartiel.ActiveWorkbook

wb.Worksheets(1).Range("A" & ldebut & ":Q" & lfin).Copy
wbA.Worksheets(1).Range("A1:Q" & lfin - ldebut + 1).Select
wbA.Worksheets(1).PasteSpecial
wbA.Worksheets(1).Range("A1:Q" & lfin - ldebut + 1).Sort Key1:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("B"), Order1:=xlAscending, Key2:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("C"), Order2:=xlAscending, Key3:=wbPartiel.ActiveWorkbook.Worksheets(1).Columns("D"), Order3:=xlAscending
FormatterFichier wbPartiel

' Vérification de l'absence de la génération précédente
If FileExists(ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls") Then
Kill ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(ldebut, 1) & ".xls"
End If
wbA.SaveAs ActiveWorkbook.Path & "\resultat\" & wb.Worksheets(1).Cells(1, 1) & ".xls"
Set wbA = Nothing
Set wbPartiel = Nothing

' Appeler la compression du fichier
CompresserFichier wb.Worksheets(1).Cells(ldebut, 1)
End Sub

Discussions similaires

La methode SAVE AS de l'objet Workbook a échoué

enregistrement de fichier vba avec variable

Propriété ou méthode non gérée par cet objet

VBA, Propriété ou méthode non gérée par l'objet

Méthode range globale a échoué

Une référence objet est requise pour la méthode non statique

Discussions similaires

Newsletters