OVH Cloud OVH Cloud

Enregistrement en VBA

2 réponses
Avatar
Vince
Bonjour,
=20
En VBA, cette =E9criture me permet d'enregistrer toto.xls=20
=20
ChDir "C:\H\P"
ActiveWorkbook.SaveAs FileName:=3D"C:\H\P\toto.xls"
_
=20
Comment faire pour que toto, au moment de l'ex=E9cution de=20
la macro d'enregistrement corresponde =E0 une cellule x sur=20
une feuil x d'un classeur=20
=20
Merci =20
Vince

2 réponses

Avatar
AV
Quelque chose comme ça (valeur à récupérer en A1 de Feuil1) :

ActiveWorkbook.SaveAs Filename:="C:HP" & [Feuil1!A1] & ".xls"

AV
Avatar
Cyrille
Bonjour,
Avant ton ecriture tu rajoute une instruction qui indique
au code de selectionner une celule. C'est à dire :
ThisWorkbook.Sheets"x".Cells(x, x).Select

et voilà :)

Bon courage,
Cyrille
-----Message d'origine-----
Bonjour,

En VBA, cette écriture me permet d'enregistrer toto.xls

ChDir "C:HP"
ActiveWorkbook.SaveAs FileName:="C:HPtoto.xls"
_

Comment faire pour que toto, au moment de l'exécution de
la macro d'enregistrement corresponde à une cellule x sur
une feuil x d'un classeur

Merci
Vince
.