> Tous les forums > Forum Bureautique
 (Excel) Comment enregistrer sous avec nom de 2 cellulesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Lui
  Posté le 25/10/2013 @ 21:42 
Aller en bas de la page 
Astucien

Bonjour,

Pour enregistrer ma feuille de calcul, je passe par un bouton dans un UF.
la commande pour ouvrir la boite de dialogue est Application.Dialogs(xlDialogSaveAs).Show
Par défaut le nom du fichier proposé est "classeur1.xls"
Comment faire pour que "classeur1" prenne la valeur des cellules S2 et BA2 tout en gardant le choix du répertoire.

Merci

Publicité
gilbert_rgi
 Posté le 25/10/2013 à 22:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir

comme ceci

chemin = Sheets(1).Range("S2")) & Sheets(1).Range("BA2"))

Application.Dialogs(xlDialogSaveAs).Show (chemin)

Lui
 Posté le 26/10/2013 à 00:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

gilbert_rgi a écrit :

Bonsoir

comme ceci

chemin = Sheets(1).Range("S2")) & Sheets(1).Range("BA2"))

Application.Dialogs(xlDialogSaveAs).Show (chemin)

Merci beaucoup

ça marche, mais si la cellule S2 comporte un point ex: S2= bl.15, là ça marche plus, comment conserver le point ?
sinon c'est pas grave, tu m'as déjà bien aidé

gilbert_rgi
 Posté le 26/10/2013 à 09:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Certains caractères ne sont pas admis dans les noms de dossiers et de fichiers c'est normal

il faudrait donc supprimer ces caractères du chemin c'est faisable mais aujourd'hui c'est repos

Lui
 Posté le 26/10/2013 à 10:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re,

Non c'est bon comme ça, te casses pas la tête, le point on le mettra pas dans les cellules en question.
Je note résolu, merci beaucoup et bon week-end

gilbert_rgi
 Posté le 26/10/2013 à 10:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Alors mettre cette ligne de code après le premier chemin

chemin = Replace(chemin, ".", " ")



Modifié par gilbert_rgi le 26/10/2013 12:39
Lui
 Posté le 26/10/2013 à 16:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

gilbert_rgi a écrit :

Alors mettre cette ligne de code après le premier chemin

chemin = Replace(chemin, ".", " ")

C'est parfait, merci beaucoup

bon week End gilbert_rgi

gilbert_rgi
 Posté le 26/10/2013 à 16:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Lui a écrit :
gilbert_rgi a écrit :

Alors mettre cette ligne de code après le premier chemin

chemin = Replace(chemin, ".", " ")

C'est parfait, merci beaucoup

bon week End gilbert_rgi


S'il y a d'autres caractères a supprimer il est également possible de traiter le(s) caractère(s) a éviter avec cette procédure

Lui
 Posté le 26/10/2013 à 19:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

C'est retenu !
Encore merci

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
159,32 €SSD interne M.2 NVMe Kingston NV1 2 To à 159,32 € livré
Valable jusqu'au 06 Décembre

Amazon Italie fait une promotion sur le SSD interne M.2 NVMe Kingston NV1 2 To qui passe à 154,80 € (avec la TVA ajustée). Comptez 4,52 € pour la livraison en France soit un total de 159,32 € livré au lieu de plus de 200 € ailleurs. Il offre des vitesses de lecture allant jusqu'à 2100 Mo/s et 1700Mo/s en écriture.


> Voir l'offre
24,99 €Casque audio bluetooth JBL Tune 560 BT à 24,99 €
Valable jusqu'au 06 Décembre

Carrefour fait une vente flash sur le casque audio sans fil bluetooth JBL Tune 560 BT qui passe à 24,99 € alors qu'on le trouve ailleurs à partir de 49,99 €. Ce casque sans fil bluetooth 4.1 offre une autonomie de 16h, permet de commander sur le casque les appels et la musique et est repliable à plat. Il est rechargeable avec un câble microUSB fourni. Notez qu'une charge rapide de 5 minutes vous procurera 1 heure de musique.


> Voir l'offre
13,99 €Jeu de société JUMANJI édition Rétro à 13,99 €
Valable jusqu'au 05 Décembre

Cdiscount fait une promotion sur le jeu de société JUMANJI en édition rétro qui passe à 13,99 € au lieu de 24,99 €.  Revivez les aventures et les embûches en tout genre du film de 1995 ; Traquer les lions, charger les rhinocéros, capturer les crocodiles et autres créatures dangereuses, dans le monde sauvage de Jumanji, vous êtes à un jet de dé du danger ! Un seul objectif dans le jeu Jumanji : traverser la jungle sain et sauf et atteindre en premier le centre du plateau.


> Voir l'offre

Sujets relatifs
comment protéger les cellules avec excel
Avec un EXCEL2003 sous Windows-XP comment calculer un âge ? ? ?
publipostage avec liste de données sous excel
Comment recuperer des fichiers Excel 2007 avec Excel 2003
Office Etudiant 2013 Excel, problème avec mes cellules
COMMENT CREER DES GROUPES ALEATOIRES SOUS EXCEL
Sous totaux avec Excel 2003
Comment empêcher d'enregistrer avec Word ?
copier des cellules avec une macro excel 2007
Excel : Comment jouer avec la date du jour
Plus de sujets relatifs à (Excel) Comment enregistrer sous avec nom de 2 cellules
 > Tous les forums > Forum Bureautique