Sujet Précédent Sujet Suivant

Incerer une celule excel

Fermé
Stag-sophieT - 12 août 2009 à 16:23
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 - 12 août 2009 à 17:05
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
A voir également:

3 réponses

Réponse 1 / 3
ben13.51 Messages postés 112 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 11 janvier 2012 7
12 août 2009 à 16:59
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
Réponse 2 / 3
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 16:48
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
Réponse 3 / 3
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 17:05
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