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:
Si vous pouviez m'apporter vos lumières, je vous en serai très reconnaissant.
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
En attendant, je vous remercie par avance et vous souhaite à tous de passer un excellent réveillon.
Partager