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
 

Pièces jointes

  • Classeur1.zip
    28.8 KB · Affichages: 50
  • Classeur1.zip
    28.8 KB · Affichages: 46
  • Classeur1.zip
    28.8 KB · Affichages: 47
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
 

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
@+
 

Discussions similaires