macro excel sur fichier excel 4.0

coucou
j'essaie d'écrire sur plusieurs fichiers excel en boucle for each;le soucis est que mon programme démarre excel pour et effectue la modification juste l'ouverture du classeur excel .

wb.Close

il me demande ainsi si je veux modifier les liaisons !!! et je dois sauvegarder manuellement en conservant l'ancien format.

j'ai aussi une erreur de fermeture quand je lance la macro !!

je suis vraiment débutant en VB et j'attend vos conseils et votre collaboration. je vous remercie d'avance

alors comment faire pour que l'application tourne et en boucle sur les fichiers sans affichage du programme excel?

comment faire pour enregistrer le classeur sous format excel 4.0 ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Sub test() Dim Fso As Object, MonRepertoire As String Dim f1 As Object, f2 As Object, wb As Workbook   Set Fso = CreateObject("Scripting.FileSystemObject") MonRepertoire = "C:\..\"   For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders For Each f2 In f1.Files Set wb = Workbooks.Open(f2) ActiveSheet.Cells(11, 44).Value = "bla bla bla" ActiveSheet.Cells(25, 39).Value = "bla bla bla" f2.Close wb.Close Next f2 Next f1 End Sub

---

je vous remercie de votre compréhension

Bonjour,

Ci dessous une proposition avec sauvegarde au format excel 4
J'ai supprimé la ligne "f2.Close" qui a mon avis provoque une erreur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test() Dim Fso As Object, MonRepertoire As String Dim f1 As Object, f2 As Object, wb As Workbook   Set Fso = CreateObject("Scripting.FileSystemObject") MonRepertoire = "C:\..\"   For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders For Each f2 In f1.Files Set wb = Workbooks.Open(f2) ActiveSheet.Cells(11, 44).Value = "bla bla bla" ActiveSheet.Cells(25, 39).Value = "bla bla bla" wb.SaveAs Filename:=wb.Path & "\Xl4-" & wb.Name, FileFormat:=xlExcel4Workbook wb.Close False Next f2 Next f1   End Sub

---

je tiens à vous remercier pour votre coopération . effectivement la ligne f2.close provoquait l'erreur,cependant pour le moment c'est la ligne d'enregistrement qui ne veut pas passer...

Code:

---

wb.SaveAs Filename:=wb.Path & "\Xl4-" & wb.Name,

---

il faut sauvegarder le classeur avec le même nom et dans le même emplacement avec le format d'origine ;c'est à dire Xl4 .

je me demande aussi s'il y a pas une option pour qu'excel ne me pose plus la question si je veux mettre à jour les liaisons de mon classeur ou continuer.
merci d'avance

Bonjour à tou(te)s, varik

Citation:

---

je me demande aussi s'il y a pas une option pour qu'excel ne me pose plus la question si je veux mettre à jour les liaisons de mon classeur ou continuer.
merci d'avance

---

Code:

---

1 2 3 4 5

Application.DisplayAlerts = False   '...ton code   Application.DisplayAlerts = True

---

j'y suis presque , il me manque plus que la ligne d'enregistrement des classeur parcouru .

cela provoque une erreur

Citation:

---

run time error 1004 method saveas of object _workbook failed

---

Code:

---

wb.SaveAs Filename:=wb.Path & "\Xl4-" & wb.Name, FileFormat:=xlExcel4Workbook

---

est ce qu'il y aurait pas des options pour garder les mêmes critères de base du classeur ? c'est à dire : nom et format .

merci d'avance