Salut à tous et à toute,
Voilà, j'ai eu une maccro (pièce jointe) permettant de réalisé ce dont j'ai besoin (je dois réaliser une concaténation de fichier .csv). Mais j'ai une erreur qui persiste :
Erreur d'exécution '13' Incompatibilité de type
L'erreur semble être à la ligne suivante :
Columns("A:" & LettreColMax).Columns.AutoFit
Code :
- Code: Tout sélectionner
- Private Sub MepFeuilles()
- Dim Ws As Worksheet
- For Each Ws In ThisWorkbook.Worksheets
- If (Ws.Name <> ShParam.Name) And (Ws.Name Like sNomFeuillesDatas & "*" ) Then
- With Ws
- .Activate
- .Tab.ColorIndex = 19
- .Columns("A:" & LettreColMax).Columns.AutoFit
- .Range("A1" ).Select
- End With
- End If
- Next Ws
- End Sub
|
Je suppose que cette erreur est une erreur de variable mais je ne vois pas comment la corriger, si vous auriez une piste ou quelque chose qui pourait m'aider ce serait cool !!
Merci d'avance pour votre aide,
Cordialement.