Discussion :

[Rcomte1]

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.

[SfJ5Rpw8]

bonjour,

Pour l'erreur 5, appui sur le bouton "débogage" lorsqu'elle apparait et vérifie les valeurs de tes variables Position et NomClasseur en passant le curseur sur ces variables afin d'afficher une info-bulle.

[Rcomte1]

Bonjour bbil,

Merci pour ton aide. J'ai fais ce que tu m'as conseillé. J'ai vérifié la valeur des variables position et NomClasseur et effectivement, position renvoyait la valeur 0.
Cela pour la simple raison que je n'avais pas enregistré au préalable le classeur dont je souhaitais modifier le format.
Maintenant je n'ai plus l'erreur d'exécution 5 mais la 1004 est toujours là.

Dans le même temps, je réécris ici la ligne de code que le débogage me surligne:

Code :

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

Classeur.SaveAs Filename:=NomClasseur, FileFormat:=xlExcel4Workbook

Merci beaucoup

J'ai également vérifié mais la variable NomClasseur renvoie bien le/les noms des classeurs ouverts avec l'extension xlw