Discussion :

[varik]

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 :

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

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

[jfontaine]

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 :

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

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

[varik]

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 :

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

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

[casefayere]

Bonjour à tou(te)s, varik

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 :

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

1
2
3
4
5
Application.DisplayAlerts = False
 
'...ton code
 
Application.DisplayAlerts = True

[varik]

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

cela provoque une erreur

run time error 1004 method saveas of object _workbook failed

Code :

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

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