ouvrir,sauver, fermer un fichier automatiquement

[Stephane]

Bonjour,

je souhaiterais savoir comment ouvrir un fichier, y faire des modifs (via macro) le sauver et le fermer tout cela dans une macro.

En fait mon but est de mettre un série de fichier à jour sans les ouvrirs et y apporter quelques modifications.

Y a-t-il qqn qui pourra m'aider ???

Merci d'avance.

Stéphane

 

[stephane]

les ouvrir hm hm

bon'ap

 

[Temjeh]

Bonjour Stephane

Pour plus d'aide je te suggère plus de détails.
Que veut-tu faire comme modification? Ta base reste-t-elle pareille et c'est les macro que tu veut mettre à jour?

Sinon avec l'enregistreur:
'ouvre classeur1
Workbooks.Open Filename:= _
'C:\\Documents and Settings\\Claude\\Mesdocuments\\Classeur1.xls'
'sélectionne C1 et delete sa valeur
Range('C1').Select
Selection.ClearContents
'referme et save
ActiveWorkbook.Save
ActiveWindow.Close

A+

Temjeh
(si tu veut updater les macros et la mise en page j'en ai une tout fait)

 

[stephane]

ok je vais essayer merci bcp

 

[stéphane]

En fait ce que je veux mettre à jour c est les liens du fichier excel, mais j'arrive déja pas à ce qu il ouvre mon doc ?

voilà ce que j ai

Workbooks.Open Filename:='M:\\Stéphane\\test'
Range('A4').Select
Selection.ClearContents
ActiveWorkbook.Save
ActiveWindow.Close

merci d avance

 

[Temjeh]

Rebonjour

Oui ton prob est que tu doit y mettre le chemin au complet:
Stéphanetest.xls

Ou dans le même directory:

Dim chem As String

chem = ThisWorkbook.Path & '/'

Application.Workbooks.Open (chem & 'Stéphanetest.xls')

A+

Temjeh