Erreur d'éxécution '9'

ROGER2327

XLDnaute Barbatruc

• 26 Mai 2009

• #2

Re : Erreur d'éxécution '9'

Bonsoir

Essayez

Code:

nomsave = [COLOR="Red"]"[/COLOR]112300[COLOR="Red"]"[/COLOR]
Sheets(nomsave).Select

ROGER2327

 

Vote positif 0 Vote négatif

H

HUGS

Guest

• 26 Mai 2009

• #3

Re : Erreur d'éxécution '9'

Merci Roger, ça marche, mon soucis c'est que le "112300" il va le chercher dans une cellule ...

un script style :

NomSave = Cells(1, 1).Value
Sheets(NomSave).Select


la variable NomSave n'a donc pas de guillemets ...


comment faire pour que le VBA mette des guillements autour de la valeur lue ?

Merci

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 26 Mai 2009

• #4

Re : Erreur d'éxécution '9'

Re...

HUGS à dit:

Merci Roger, ça marche, mon soucis c'est que le "112300" il va le chercher dans une cellule ...

un script style :

NomSave = Cells(1, 1).Value
Sheets(NomSave).Select


la variable NomSave n'a donc pas de guillemets ...


comment faire pour que le VBA mette des guillements autour de la valeur lue ?

Merci

Cliquez pour agrandir...

Mais pourquoi ne pas poser directement le vrai problème ?
On perd un temps fou à résoudre des problèmes qui ne se posent pas.
Une réponse :
Déclarez votre variable NomSave (qui s'appelait nomsave dans le message précédent) comme un variable "chaine de caractères".

Code:

Dim NomSave [B]As String[/B]

De façon générale, vous auriez intérêt à déclarer et à typer toutes vos variables.
​

ROGER2327

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mai 2009

• #5

Re : Erreur d'éxécution '9'

Bonjour Hughs, Re Roger,

Annulé, désolé, mal testé...

A+

 

Vote positif 0 Vote négatif

H

HUGS

Guest

• 26 Mai 2009

• #6

Re : Erreur d'éxécution '9'

Merci Roger !!

désolé pour le dérangement 😱

 

Vote positif 0 Vote négatif