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

Question

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

gbinforme · Answer

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 · Answer

SVP il Y'a quelqu'un qui peut m'aider.
Merci

gbinforme · Answer

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 · Answer

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

eriiic · Answer

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 · Answer

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

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

6 réponses

Discussions similaires

Newsletters