bonjour modifier une macro cela est t'il possible

ricou69

XLDnaute Occasionnel
bonjour
voila j'ai trouvé un excemple qui marche bien mais j'aimerai pouvoir mettre un chemin de destination de la copie de cette feuille dans un autre dossier je joint le fichier ( la macro pointe toujours sur enregistrer sous et je doit a chaque fois allez cherché le chemin de ce dossier qui lui est sur serveur pas sous c:)

tres cordialement ricou69
 

Fichiers joints

Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Re : bonjour modifier une macro cela est t'il possible

salut ricou69,
ne connaissant pas le chemin je te laisse remplacer le rouge en macro.
la macro fait une copie de la feuille et l'enregistre dans le répertoir désigné avec comme nom le N° semaine,l'ancien classeur n'est pas touché
Code:
Private Sub CommandButton1_Click()
Dim chemin
chemin = [COLOR="Red"]"C:\Users\Bruno\Documents\"[/COLOR] & Feuil1.[i3] & ".xls"
Feuil1.Copy
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=chemin
Application.DisplayAlerts = True
End Sub
 

ricou69

XLDnaute Occasionnel
Re : bonjour modifier une macro cela est t'il possible

Bonjour
merci youki ca fonctione tres tres bien mais apres la sauvegarde la feuille reste ouverte est t'il possible avec du code de la fermer
 

Pierrot93

XLDnaute Barbatruc
Re : bonjour modifier une macro cela est t'il possible

Bonjour Ricou, Youky

si j'ai bien compris, pour enregistrer en fermant le classeur :

Code:
Dim chemin As String
chemin = "C:\MesDocs\Excel\Test\classeur1.xls"
ActiveWorkbook.Close True, Filename:=chemin
bonne journée
@+
 

ricou69

XLDnaute Occasionnel
Re : bonjour modifier une macro cela est t'il possible

bonjour pierrot93
Non pas le classeur mais la feuille que je sauvegarde
 

Pierrot93

XLDnaute Barbatruc
Re : bonjour modifier une macro cela est t'il possible

Bonjour,

perso, comprends pas trop, une feuille ne se ferme pas, enfin à ma connaissance... c'est le classeur que tu fermes....
 

ricou69

XLDnaute Occasionnel
Re : bonjour modifier une macro cela est t'il possible

ok plutot moi qui comprend pas en raport a toi j'essaie le code que tu a ecris mais ou je doit rajouter le code (a quelle endroit) merci
 

Pierrot93

XLDnaute Barbatruc
Re : bonjour modifier une macro cela est t'il possible

Re,

A noter, si tu copies une feuille sans la coller dans un classeur existant, la copie engendrera la création d'un nouveau classeur...
 

Pierrot93

XLDnaute Barbatruc
Re : bonjour modifier une macro cela est t'il possible

Re

dans le code de Youky, si c'est celui que tu utilises, tu remplaces :

Code:
ActiveWorkbook.SaveAs Filename:=chemin
par :

Code:
ActiveWorkbook.Close True, Filename:=chemin
@+
 

ricou69

XLDnaute Occasionnel
Re : bonjour modifier une macro cela est t'il possible

Merci a vous deux la macros marche super bien, excatement ce dont j'avais besoins merci beaucoup a vous
et tout le monde
 

ricou69

XLDnaute Occasionnel
Re : bonjour modifier une macro cela est t'il possible

une derniere chose comment changer le texte du bouton a la place de saveas j'aimerai marquer sauvegarde merci
 

Pierrot93

XLDnaute Barbatruc
Re : bonjour modifier une macro cela est t'il possible

Re

en mode "création", click sur l'equerre de la barre d'outils vba, click droit sur le bouton => Objet bouton de commande => Edition et tu modifies le libellé...

@+
 

Discussions similaires


Haut Bas