macro ouvrir et macro enregistrer

JACK 43 wrote:

Bonsoir,

Je souhaiterais votre aide sur 2 macros qui sont sensiblement identique.

- 1) Je souhaiterais associer à un bouton une macro qui ferait un
enregistrement automatiquement avec comme chemin c:cloè le nom de la
cellule D4 puis pour le nom du fichier pas de changement le même que
celui qui est ouvert.

- 2) Je souhaiterais associer à un bouton une macro qui ferait une
ouverture de fichier automatiquement avec comme chemin c:cloé le nom de la
cellule D4 toto.xls.


MERCI de votre aide A+

Bonsoir,

1) il y a du savecopyas dans l'air. Quelque chose comme :
activeworkbook.savecopyas "c:cloé" & range("D4") & "" &
thisworkbook.name & ".xls"
(le tout sur une ligne)

2) Quelque chose comme :
Workbooks.open "c:cloé" & range("D4") & "toto.xls"

@+
FxM

Bonsoir,

Ou encore..... sans message d'alerte. Et en supposant que le répertoire a
pour nom "cloé" et non pas "cloè"

' - 1) Je souhaiterais associer à un bouton une macro qui ferait un
'enregistrement automatiquement avec comme chemin c:cloè le nom de la
'cellule D4 puis pour le nom du fichier pas de changement le même que
'celui qui est ouvert.
'-----------------
Sub jj()
nom = "C:cloé" & ActiveSheet.[D4] & "" & ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs nom
End Sub
'-----------------

' - 2) Je souhaiterais associer à un bouton une macro qui ferait une
'ouverture de fichier automatiquement avec comme chemin c:cloé le nom de
la
'cellule D4 toto.xls.
'---------------
Sub jj2()
nom = "C:cloé" & ActiveSheet.[D4] & "toto.xls"
Workbooks.Open Filename:=nom
End Sub
'-----------------
Salutations
JJ