pb UserForm_Initialize

[nanor]

Salut le forum, bonne journée à tous!

J'ai un ptit souci dans mon code vba, lorsque je mets le "y" dans le TextBox.Value, j'ai une erreur "incompatibilité de type".

Private Sub UserForm_Initialize()
Dim x As Integer
x = Format(Now, "mm")
y = x - 1
' This gives a name to textBox1 with the full path
TextBox1.Value = Worksheets("data").Cells(11, 1).Value + y + Format(Now, " yyyy") + ".xls"
End Sub

Est-ce que vous voyez mon erreur?

Merci d'avance

nanor

 

[Cathy]

Salut nanor,

le problème que je vois n'est pas sur y, si tu enlèves + ".xls" ça marche.
Tes autres données sont numériques et tu rajoutes du texte à la fin.

@+

 

[eric]

Bonjour,

Si tu veux mettre ".xls", n'utilise pas "+", mais "&".

Comme le dit cathy, le signe + ajoute une donnée numérique à une donnée alphabétique, d'où une erreur.

Normalement, ça marche.

 

[nanor]

dacodac.

Merci bcp Cathy

nanor

 

[Cathy]

Merci à Eric qui a complété ma réponse.

@+