Suppression des espaces dans des classeurs d'un repertoire

Bonjour,

Ce petit message fait suite à un demande formulée hier et résolue.

Je souhaite pouvoir supprimer des espaces dans des classeurs Excel et ce dans toutes les feuilles.

La suppression dans toutes les feuilles fonctionne par contre la boucle sur tous les classeurs ne fonctionne pas et je comprends pas bien pourquoi.

ci-dessous le code :

Sub SUPPESP()

Dim repertoire As String

Dim wbook As Workbook

Dim VAR As Worksheet

repertoire = "C:\Users\steph\Desktop\TEST-VBA\TEST\"

unFichier = Dir(repertoire & "*.xlsx")

While unFichier <> ""

Set wbook = Workbooks.Open(repertoire & unFichier, , True)

For Each VAR In Worksheets

VAR.Range("A1:A8").Replace What:=" ", Replacement:=""

Next VAR

wbook.Close False

unFichier = Dir

Wend

End Sub

En vous remerciant par avance.

Boss92.

Bonjour,

Je ne vois ce que tu peux supprimer ! Tu ouvres tes classeurs en lecture seule, et les referme sans enregistrer, ils ne peuvent que demeurer inchangés !

Cordialement.

NB- Il serait bon de placer le code cité sous balises Code, c'est la moindre des choses sur le Forum !

MFerrand a écrit :

Bonjour,

Je ne vois ce que tu peux supprimer ! Tu ouvres tes classeurs en lecture seule, et les referme sans enregistrer, ils ne peuvent que demeurer inchangés !

Cordialement.

NB- Il serait bon de placer le code cité sous balises Code, c'est la moindre des choses sur le Forum !

Bonjour,

Merci pour votre retour.

Ok j'ai rajouté une condition de sauvegarde.

Comment ouvrir les classeurs en mode modification ?

le code cité sous balises Code ??? je ne comprends pas votre remarque et je ne sais pas comment faire (nouveau sur ce forum).

En vous remerciant pour vos retours.

Boss92 mais pas d'Excel

Comment ouvrir les classeurs en mode modification ?

En supprimant l'ouverture en lecture seule !

    Set wbook = Workbooks.Open(repertoire & unFichier)

Et le code ci-dessus est sous balises Code. Vois-tu ? (bouton : </>)

Et la ligne suivante serait mieux écrite ainsi :

    For Each VAR In wbook.Worksheets

Cordialement.

Merci pour votre retour.

Par contre j'ai pas compris comment utiliser le bouton (</>), ca doit etre mon coté blonde ....

En tout cas merci beaucoup.

Tu sélectionnes le code que tu as collé et tu cliques sur le bouton, qui va encadrer ta sélection de balises...