Macro Excel: enreg d1 cellule en conservant le mise en forme

Bonjour,

Je souhaite copir une celule cells(1, 1) dans une variable string mais je souhaite que le contenu de la variable soit équivalent a à la mise en forme de la cellule et non à la formule de la cellule

J'ai essayé avec la fonction Value mais cela me copie la formule de la cellule.

Si ce n'est pas possible, comment pourrai-je créer une variable string contenant une date au format mm-aaaa :?:

pour récupérer le format essai :

Code:

---

1 2	?ActiveCell.NumberFormat ?ActiveCell.NumberFormatLocal

---

Citation:

---

Si ce n'est pas possible, comment pourrai-je créer une variable string contenant une date au format mm-aaaa Question

---

Pourquoi veu-tu stocker une date dans une chaine ... tu as le format date ... puis tu peu utiliser l'instruction format pour l'affichier à ta maniére ..:
(dans fenêtre exécution :)

Code:

---

1 2 3

MaDate = Now Debug.print format(Madate,"mm-yyyy") 12-2005

---

:roll: :wink:

Une String est une chaine de caractères, c'est-à-dire une succession de code ASCII, sans la moindre notion de mise en forme.
Si tu veux faire un copier coller vers une autre cellule, fais le à la main en enregistrant une macro, et regarde le code généré automatiquement. Tu verras que des paramètres te permettent de garder ou non la mise en forme.
Sinon, tu devras stocker dans une autre variable les éléments de mise en forme qui t'intéresse. Par exemple, crée un boléen dans lequel tu stockeras le fait que le texte était en gras ou non, un autre pour "italique", une variable "Integer" pour la taille du texte... etc...
Mais tout dépend de ce que tu veux faire de ta chaine de caractères après...

En fait si je veux une date dasn une variable string, c'est parce que je doit créer un dossier qui a pour nom le mois en cours
Or, pour créer un dossier, sauf erreur de ma part, la fonction MkDir réclame une variable string avec le chemin du nouveau dossier
Or un nom de dossier n'accepte pas le : "/" et le format de la date sous office est jj/mm/aaaa par défaut.

Sinon j'ai essayer ce que vous m'avez conseiller mais ca marche pas :

Dim lsDate As String
lsDate = Now
Debug.Print Format(lsDate, "mm-yyyy")

:?:

Citation:

---

Envoyé par repié

En fait si je veux une date dasn une variable string, c'est parce que je doit créer un dossier qui a pour nom le mois en cours
Or, pour créer un dossier, sauf erreur de ma part, la fonction MkDir réclame une variable string avec le chemin du nouveau dossier
Or un nom de dossier n'accepte pas le : "/" et le format de la date sous office est jj/mm/aaaa par défaut.

Sinon j'ai essayer ce que vous m'avez conseiller mais ca marche pas :

Dim lsDate As String
lsDate = Now
Debug.Print Format(lsDate, "mm-yyyy")

:?:

---

Change la ligne :

Code:

---

Dim lsDate As date

---

.. ensuite c'est la fonction format qui te renvoi une chaine...
par exemple :

Code:

---

Mkdir "c:\temp\" & Format(now,"mm-yyyy")

---

:roll: :wink:

C'est génial ca marche!!!
MERCI BEAUCOUP!!!!

:D

par contre si je veux rentre ce chemin d'accçs dans une variable String, j'imagine que je doit faire :

dim lsLink as string
lsLink = "C:\UnDossier\" + Format(Now, "mm-yyyy")
?

Oui.
Mais pour être pointilleux, le symbole de la concaténation de string est

Code:

---

1 2

&

---

et non

Code:

---

1 2

+

---

Mais ça marche... :D

Effectivement!!!

Merci bien Megaxel et bbil

Psiiit, repié, tu as oublié de mettre le tag :resolu: ...
PS: le bouton se trouve en bas à gauche, quand tu ouvres ton post.