> 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 
Petit 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
Petit 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
Petit 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
Petit 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
Petit 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 !


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