Incerer une celule excel

Stag-sophieT -  
bouket Messages postés 147 Statut Membre -
Bonjour,

Dans ma macro Je n'arrive pas à incerer les 5 premiers caracteres de la cellule A1 pour fabriquer mon fichier.
J'ai du rater un truc tout bete, mais je tourne en rond
projet + date c'est ok

---ActiveWorkbook.SaveAs Filename:="projet-" & Left(A1, 3) & Date$, FileFormat:=xlNormal, Password:="", WriteResPassword:=""

Merci pour votre aide

SophieT

Voici ma macro finale

Sub EnvoiMail()
'--------------
ActiveWindow.SmallScroll Down:=-12
Range("A2:J60").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ActiveWorkbook.SaveAs Filename:="projet-" & Left(A1, 3) & Date$, FileFormat:=xlNormal, Password:="", WriteResPassword:=""

MsgBox ("Ce document sera envoyé par email ..")
ActiveWorkbook.SendMail Recipients:="toto@toto.com", Subject:=" toto sujet..."

ActiveWorkbook.Close SaveChanges:=False

End Sub
Configuration: Windows XP
Firefox 3.0.13

3 réponses

  1.
    ben13.51 Messages postés 115 Statut Membre 7
     
    essaye de passer par des variables genre qqchose comme ça:

    Dim var as string

    var = Sheets(1).Cells(1, 1)
    nom = Left(var, 3)

    ActiveWorkbook.SaveAs Filename:="projet-" & nom & Date$, FileFormat:=xlNormal, Password:="", WriteResPassword:=""
    1
  2. bouket Messages postés 147 Statut Membre 22
     
    hey !

    Qu'est ce que cela donne, quelle est l'erreur ?

    Au passage, tu as mis Left(A1,3) alors que tu veux 5 caractères... ?

    +
    0
  3. bouket Messages postés 147 Statut Membre 22
     
    je pense aussi, même conseil

    Tu peux essayer dans l'autre sens, effectuer la fonction sur n'importe quelle case de ton fichier pour avoir les 5 premiers caractères de la cellule concernés dans celle-ci. Puis, tu mets cette valeur dans une variable. Car, je ne sais pas si la fonction s'applique aussi aux variables...

    A voir ;)
    0