Incerer une celule excel

Stag-sophieT -  
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
    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
    1. bouket
      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
      1. bouket
        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