Sauvegarde feuille excel dans nouveau classeur [Résolu]

Messages postés
2
Date d'inscription
vendredi 12 août 2005
Statut
Membre
Dernière intervention
16 mars 2010
- - Dernière réponse : gambini21
Messages postés
2
Date d'inscription
vendredi 12 août 2005
Statut
Membre
Dernière intervention
16 mars 2010
- 16 mars 2010 à 16:17
Bonjour à tous,

Je suis débutant en VB6 et je déjà trouvé pas mal de réponse à mes questions sur ce site.

Cependant, je ne trouve pas de solution pour ceci :

Mon code sauvegarde une dès feuilles de mon classeur avec un chiffre aléatoire.

L'enregistrement se passe bien mais la feuille enregistrée apparaît à l'écran.
Je souhaiterai pouvoir enregistrer la feuille sans l'ouvrir à la fin.

Voici mon code :

[i]Sub Save_Donnees()

Dim chiffre
Cheminacces = "mon chemin d'accès"
Randomize
chiffre = Int((999999 * Rnd) + 1)

Sheets("Résultat").Copy
ActiveWorkbook.SaveAs Filename:=Cheminacces & "résultat" & chiffre & ".xls"

End Sub/i

Merci pour votre aide
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
2
Date d'inscription
vendredi 12 août 2005
Statut
Membre
Dernière intervention
16 mars 2010
3
Merci
J'ai trouvé :

Workbooks("résultat" & chiffre & ".xls").Close

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 200 internautes nous ont dit merci ce mois-ci

Commenter la réponse de gambini21