Convertir date

bonjour
avec Format([H1],mmm) tu a le mois abrégé soit avr
ou
Left(Format([H1],mmmm),3)

--
Pierre CFI

"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news:
65b426f8-6e4b-4da5-acc3-a2b869f9298b@24g2000hsh.googlegroups.com...

Bonjour,

dans une feuille "Travail" par formule A1= (gauche(droite(H1;8);3)
par exemple , j'obtiens avr (avec en Travail!H1 = 07/04/2008)

Comment le faire par vba ?

Merci

Le Lauxeti

bonjour Le Lauxeti,

x = Left(Right(Range("H1"), 8), 3)

isabelle

Bonjour,

dans une feuille "Travail" par formule A1= (gauche(droite(H1;8);3)
par exemple , j'obtiens avr (avec en Travail!H1 = 07/04/2008)

Comment le faire par vba ?

Merci

Le Lauxeti

On 10 avr, 15:58, isabelle <i@v> wrote:

bonjour Le Lauxeti,

x = Left(Right(Range("H1"), 8), 3)

isabelle

Bonjour,

dans une feuille  "Travail" par formule A1= (gauche(droite(H1;8);3)
par exemple , j'obtiens avr (avec en Travail!H1  = 07/04/2008)

Comment le faire par vba ?

Merci

Le Lauxeti- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

La reponse me convient... partiellement
j'ai bien saisi l'ecriture mais comment dans une macro
integrer cette formule par exemple
je souhaite recuperer la valeur (avr) pour effectuer une suppression
de colonnes dans un autre fichier avec un offfset

Sub toto()
....
workbook(1)
adr1= Left(Right(Range("H1"), 8), 3)
workbook(2)
range("A22")= adr1

...
end sub

c'est la bonne marche ?
merci de la reponse
le lauxeti

bonjour Le Lauxeti,

le contexte est trop flou pour que je puisse imaginer la disposition des
données et la valeur à recherchée.

isabelle

On 10 avr, 15:58, isabelle <i@v> wrote:

bonjour Le Lauxeti,

x = Left(Right(Range("H1"), 8), 3)

isabelle

Bonjour,
dans une feuille "Travail" par formule A1= (gauche(droite(H1;8);3)
par exemple , j'obtiens avr (avec en Travail!H1 = 07/04/2008)
Comment le faire par vba ?
Merci
Le Lauxeti- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -

Bonjour,

La reponse me convient... partiellement
j'ai bien saisi l'ecriture mais comment dans une macro
integrer cette formule par exemple
je souhaite recuperer la valeur (avr) pour effectuer une suppression
de colonnes dans un autre fichier avec un offfset

Sub toto()
....
workbook(1)
adr1= Left(Right(Range("H1"), 8), 3)
workbook(2)
range("A22")= adr1

...
end sub

c'est la bonne marche ?
merci de la reponse
le lauxeti