× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
196,29 €Nintendo Switch Lite à 196,29 €
Valable jusqu'au 06 Juin

Amazon fait une promotion sur la nouvelle Nintendo Switch Lite qui passe à 196,29 € livrée gratuitement. Le stock étant limité, ne tardez pas si vous êtes intéressé. Notez que la version Corail est également à ce prix.


> Voir l'offre
26,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 128 Go à 26,99 €
Valable jusqu'au 03 Juin

Amazon fait une promotion la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 128 Go qui passe à 26,99 € livrée gratuitement. La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 Mo/s. 


> Voir l'offre
23,99 €Clé USB 3.0 Sandisk Ultra 128 Go à 23,99 €
Valable jusqu'au 05 Juin

Amazon propose la clé USB Sandisk Ultra d'une capacité de 128 Go à 23,99 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> 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