FORUM MP | Bureautique - Excel : enregistrement excel nom automatique

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

enregistrement excel nom automatique
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

lucil02
Nouveau membre

Inscrit : 21/07/2008
Messages : 3

#155150 Posté le 21/07/08 à 11:44

Bonjour,
je cherche à créer une macro permettant d'enregister un classeur excel, une facture, sous un nom du type C:\Documents and Settings\Bureau\"F3""G3".xls
F3 et G3 étant des cellules dans lesquelles se trouvent le mois et l'année de la facture.
Je pense que c'est possible, mais je ne maitrise pas du tout VBA, alors si quelqu'un a une solution, cela m'aiderait beaucoup.
Merci d'avance

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

lucil02
Nouveau membre

Inscrit : 21/07/2008
Messages : 3

#155153 Posté le 21/07/08 à 13:47

Bon, en fait j'ai trouvé la solution à mon problème, j'ai mis en I3 le nom du classeur que je voulais obtenir et j'ai créé la macro suivante :
Sub Enregistrer()

Dim str As String

Dim dir As String

dir = "C:\Documents and Settings\Bureau\"

Range("I3").Select

str = dir & ActiveCell.Text & ".xls"

ActiveWorkbook.SaveAs FileName:=str, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#155155 Posté le 21/07/08 à 14:39

Bonjour

il n'y avait pas besoin de selectionner la cellule

mydir = "C:\Documents and Settings\Bureau\"
mystr = mydir & [I3] & ".xls"

doit faire la demande

Ps : ne pas employer les mots réservés comme variables

RGI

HAUT DE PAGE

lucil02
Nouveau membre

Inscrit : 21/07/2008
Messages : 3

#155160 Posté le 21/07/08 à 15:03

Merci :)

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.