Macro combiner Formule + texte

[reve24]

Bonjour

J'ai écris ma macro mais je n arrive pas à combiner formule +texte


je souhaite ceci
C:\Documents and Settings\20150831


j ai ecris ceci


Sub Valeur()
Dim MaFormule As String
Dim Chemin As String

Chemin = "C:\Documents and Settings\"
MaFormule = FormulaLocal = "=EOMONTH(R1C9,0)" = Format(Date, "yy-MM-dd")
Sheets("Feuil2").Range("C2") = Chemin & MaFormule

End Sub

mais cecla ne fonctionne pas

merci a vous

 

[phlaurent55]

Re : Macro combiner Formule + texte

Bonjour reve24,

avec ceci:

Sub Valeur()
Dim Chemin As String
Chemin = "C:\Documents and Settings\"
Sheets("Feuil2").Range("C2") = Chemin & Format(Cells(3, 9), "yyyymmdd")
End Sub

ou ceci pour la date du jour

Sub Valeur()
Dim Chemin As String
Chemin = "C:\Documents and Settings\"
Sheets("Feuil2").Range("C2") = Chemin & Format(Date, "yyyymmdd")
End Sub

à+
Philippe

 

[reve24]

Re : Macro combiner Formule + texte

bonjour phlaurent55
ok merci , mais je souhaitais ne pas prendre la valeur dans une autre cellule mais en directe


C:\Documents and Settings\ + fin de mois de la cellule I1

 

[Dranreb]

Re : Macro combiner Formule + texte

Bonjour.

Essayez comme ça :

Sub Valeur()
Dim D As Date
D = Cells(1, 9).Value
Worksheets("Feuil2").Range("C2") = "C:\Documents and Settings\" & _
   Format(DateSerial(Year(D), Month(D) + 1, 0), "yy-mm-dd")
End Sub

Remarque: cette formule ferait aussi bien l'affaire :

= "C:\Documents and Settings\"&TEXTE(FIN.MOIS($I$1;0);"aa-mm-jj")

 

[reve24]

Re : Macro combiner Formule + texte

Bonsoir Dranreb

merci parfait je vazis pouvoir avancer dans mon projet