Enregistrer sous

Le
Sunburn
Bonjour,
je souhaite enregistrer mon fichier par macro, en utilisant la valeur d'une
cellule (cette cellule G5 est une formule = concatener(H1;" ";H6))
j'ai cette macro, mais comment spécifier l'onglet sur lequel il va trouver
cette cellule G5 ?
merci.

Sub rec()
Dim NOM As String
lechemin = ActiveWorkbook.Path & ""
NOM = Range("G5")
ThisWorkbook.SaveAs lechemin & NOM & ".xls"
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17974811
NOM = [Feuil1!G5]
Daniel

Bonjour,
je souhaite enregistrer mon fichier par macro, en utilisant la valeur d'une
cellule (cette cellule G5 est une formule = concatener(H1;" ";H6))
j'ai cette macro, mais comment spécifier l'onglet sur lequel il va trouver
cette cellule G5 ?
merci.
---
Sub rec()
Dim NOM As String
lechemin = ActiveWorkbook.Path & ""
NOM = Range("G5")
ThisWorkbook.SaveAs lechemin & NOM & ".xls"
End Sub
---


Sunburn
Le #17974981
Merci Daniel, c'est impec.
Yann

"Daniel.C" a écrit :

NOM = [Feuil1!G5]
Daniel

> Bonjour,
> je souhaite enregistrer mon fichier par macro, en utilisant la valeur d'une
> cellule (cette cellule G5 est une formule = concatener(H1;" ";H6))
> j'ai cette macro, mais comment spécifier l'onglet sur lequel il va trouver
> cette cellule G5 ?
> merci.
> ---
> Sub rec()
> Dim NOM As String
> lechemin = ActiveWorkbook.Path & ""
> NOM = Range("G5")
> ThisWorkbook.SaveAs lechemin & NOM & ".xls"
> End Sub
> ---





Publicité
Poster une réponse
Anonyme