Erreur d'execution '13' Incompatibilité de type

Marsh Posté le 21-05-2014 à 10:58:21

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.

Marsh Posté le 21-05-2014 à 10:58:21

Marsh Posté le 21-05-2014 à 11:53:19

Salut,

Il y a quoi dans LettreColMax ?

Marsh Posté le 21-05-2014 à 13:23:29

Salut Takama13,

Il n'y a pas de sub ou de private sub pour le LettreColMax mais il est définis en String en début de programme

Message édité par msisou le 21-05-2014 à 13:24:00

Marsh Posté le 21-05-2014 à 13:35:06

ok mais tu y mets quoi dedans ?

Marsh Posté le 21-05-2014 à 13:41:50

Salut,

le deuxième Columns de la ligne ne sert à rien …

Marsh Posté le 21-05-2014 à 13:46:05

Et tant qu'à faire, la ligne n°6 devrait être placée avant la n°5 …

Marsh Posté le 21-05-2014 à 14:19:40

Voir ici ! … :sarcastic:

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *