Bonjour à tous,

Je me suis récemment mis en tête d'apprendre le langage vba pour excel afin d'automatiser certaines tâches dans mon travail.
Cependant, j'ai quelques difficultés avec le bout de code présent ci-dessous. Cette macro est sensée utilisée une boucle For Each ... Next afin de sauvegarder les classeurs ouverts en fichiers Excel 4.0. Cependant, à chaque fois que je l’exécute, le déroulement de la macro se bloque et je vois le message suivant:

Erreur d'exécution 5. Argument ou appel de procédure incorrect.
L'onglet débogage me surligne la ligne 9

Egalement, le message suivant s'affiche également:
Erreur d'exécution 1004. La méthode SaveAs de l'objet Workbook a échoué.
L'onglet débogage me surligne la ligne 10

Voici le code sur lequel je travaillais:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub EnregistrerFormatExcel4etFermer()
      Dim Classeur As Workbook
      Dim position As Byte
      Dim NomClasseur As String
          For Each Classeur In Workbooks
                If Not Classeur.Name = "PERSONAL.XLSB" Then
                    NomClasseur = Classeur.FullName
                    position = InStr(NomClasseur, ".xlsx")
                    NomClasseur = Left(NomClasseur, position - 1) & ".xlw"
                  Classeur.SaveAs Filename:=NomClasseur, _                                                                                                                                                                                             ...                    FileFormat:=xlExcel4Workbook
                  Classeur.Close
               End If
          Next Classeur
 End Sub
Si vous pouviez m'apporter vos lumières, je vous en serai très reconnaissant.
En attendant, je vous remercie par avance et vous souhaite à tous de passer un excellent réveillon.