Supprimer derniére colonne VBA

[Bidoufaq]

Bonjour,

je dois fusionner 3500 fichiers excel en un. Pas de soucis pour les consolider.
Mais j'ai remarqué que la derniére colonne contenait des caractères bizarres qui faisait planter la fusion. 🙁

Je voudrais savoir s'il est possible de supprimer la derniére colonne de droite (position aléatoire) en vba.

Merci d'avance pour votre aide
Bidoufaq

 

[DoubleZero]

Re : Supprimer derniére colonne VBA

Bonjour à toutes et à tous,

Bienvenue sur XLD, Bidoufaq.

Comme ceci ?

Option Explicit
Sub Dernière_colonne_supprimer()
Cells.Find("*", , , , xlByRows, xlPrevious).EntireColumn.Delete
End Sub

A bientôt 🙂

 

[Bidoufaq]

Re : Supprimer derniére colonne VBA

Merci pour ton aide DoubleZero 😉

J'avance sur le code 🙂
Mais j'ai encore un soucis. Je voudrais fusionner les 3500 xls sans trop d'effort grâce à un VBA ; mais quand le code rencontre un fichier corrompu il s'arrête 🙁
Comment l'obliger à continuer la fusion?

Voici le code :

Sub del_col()

Dim wb As Workbook
Dim strFile As String, strDir As String

strDir = "C:\test\"
strFile = Dir(strDir & "*.xlsx")

Do While strFile <> ""

Set wb = Workbooks.Open(Filename:=strDir & strFile, Local:=True)
Columns(Val(ActiveSheet.UsedRange.Columns.Count)).Delete Shift:=xlToLeft
wb.Close True

Set wb = Nothing
strFile = Dir
Loop

End Sub

Merci d'avance pour les conseils 🙂
Bidoufaq

 

[DoubleZero]

Re : Supprimer derniére colonne VBA

Re-bonjour,

... j'ai encore un soucis. Je voudrais fusionner les 3500 xls sans trop d'effort grâce à un VBA...

Il s'agit, là, d'un tout autre problème...

Mieux vaux ouvrir une autre discussion.

A bientôt 🙂