J'ai besoin d'aide pour VBA

Résolu
brahmas Messages postés 2 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 2 juin 2006 - 1 juin 2006 à 21:29
brahmas Messages postés 2 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 2 juin 2006 - 2 juin 2006 à 08:03
Bonjour,
Voici un exemple, de ce que je voudrais faire.
J'aurais besoin d'enregistrer la Feuil1(enregistrersous: en format htm )sous un nom différent à chaque enregistrement.
Mais ce nom se trouve sur une cellule nommé (client)....
J'enregistre déjà un fichier excel comme ça et tout va bien...par contre je ne sais pas comment faire avec ma macro, dont voici l'exemple:
Par contre içi, c'est toujours le même nom(par exemple:Bon de retrait).
Comment dire à la macro (en remplacement de Bon de retrait) d'aller chercher dans telle cellule un nom de client par exemple. 

Sheets("Feuil1").Select
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"Q:\GAR\DOSSIER TRAVAUX\LSB\Bon de retrait câble.htm", _
"Bon de retrait", "", xlHtmlStatic, " BT_2704", "").Publish (True)
ChDir "Q:\GAR\DOSSIER TRAVAUX\LSB"

Merci de m'aider dans mon projet, car je galère...
Bruno

2 réponses

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 32
2 juin 2006 à 05:35
bonjour

je ne suis pas sur d'avoir bien compris , mais tu peux tester

ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"Q:\GAR\DOSSIER TRAVAUX\LSB" & Range("Client") & ".htm", _
"Feuil1", "", xlHtmlStatic, " BT_2704", "").Publish (True)
ChDir "Q:\GAR\DOSSIER TRAVAUX\LSB"

bonne journée
michel
3
brahmas Messages postés 2 Date d'inscription mercredi 20 avril 2005 Statut Membre Dernière intervention 2 juin 2006
2 juin 2006 à 08:03
Bonjour Michel,

Félicitation, c'est vraiment super de voir qu'il y a des pros...
Encore merci
Bonne journée
3
Rejoignez-nous