× Plantage du forum 28/03/2023 - Perte de messages - A lire
 > 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
Processeur AMD Ryzen 7 5800X à 234,90 €
234,90 € 300 € -22% @Amazon

Amazon fait une promotion sur le processeur AMD Ryzen 7 5800X (8 coeurs, 16 threads, 3.8 GHz/4.7 GHz) qui passe à 234,90 €. On le trouve ailleurs autour de 300 €. 


Voir le bon plan
Tablette N-one Npad Pro (10.4'' IPS FHD, 8 coeurs, 8 Go/ 128 Go, Android 12) + coque et verre trempé à 159,13 €
159,13 € 230 € -31% @Geekbuying

Geekbuying fait une promotion sur la très bonne tablette N-one Npad Pro qui passe à 159,13 € avec le code GKB23MS3 au lieu de 230 €. Cette tablette possède un écran 10.4 pouces IPS FHD (2000x1200 pixels), un processeur T616 à 8 coeurs, 8 Go de RAM, 128 Go de stockage extensible par microSD, le GPS, le WiFi/Bluetoot et la 4G via un emplacement Dual SIM. Une webcam frontale 5MP + IR, une arrière de 13MP + flash LED et la reconnaissance facile sont présentes. Son châssis est en aluminium et elle offre une batterie de 6600 mAH à charge rapide 18W (USB Type C).

Le tout tourne sous Android 12 en français et intègre les codecs Widevine L1 pour lire le contenu HD en streaming (Netflix, Disney, etc...). De quoi tout faire sur cette tablette performante : jeux, vidéo, internet, bureautique, système GPS pour voiture, etc.

Une coque de protection avec rabat magnétique, un verre trempé pour protéger l'écran et un chargeur 18W sont fournis dans le pack.

La livraison se faisant depuis un entrepôt européen, vous êtes certains de recevoir rapidement la tablette et sans risque de douane. 


Voir le bon plan
Thrustmaster TCA Sidestick Airbus Edition pour PC à 46,99 €
46,99 € 64,99 € -28% @Amazon

Amazon fait une promotion sur le joystick Thrustmaster TCA Sidestick Airbus Edition qui passe à 46,99 € au lieu de 64,99 € ailleurs. Il s'agit d'un une réplique ergonomique du manche Airbus, type A320/A320 Neo à échelle 1:1. Il dispose notamment d’une structure composée de 12 boutons d’actions ré-assignables pour une multitude de possibilités. La conception de la tête du joystick est à la fois polyvalente et modulaire grâce à ses éléments interchangeables. Avant chaque décollage, ajustez la configuration de votre manche de la manière la plus optimale : commandant de bord, co-pilote ou manche en position centrale pour les vols en avion en solitaire. 


Voir le bon plan
Station de charge portable Bluetti PowerOak AC50S 500Wh/300W à 329 €
329 € 450 € -27% @Geekbuying

Geebuying fait une belle promotion sur la station de charge portable Bluetti PowerOak AC50S 500Wh/300W à 329 € grâce au code promo 7PM3N6NA. On la trouve ailleurs à partir de 450 €.

Cette Power Station offre une capacité de 500Wh/137700 mAh et deux sortie AC de 300W à onde sinusoïdale pure. Elle peut alimenter des appareils de moins de 300 W, tels que des ordinateurs portables, des drones, des petits congélateurs TV, des petits ventilateurs, etc. En tant que batterie au lithium de secours de 500 Wh, elle fournit suffisamment de jus pour faire fonctionner les appareils essentiels pendant des heures, en fonction de la sortie réelle. Elle possède également 4 ports USB, un ports USB-C PD de 45W et un port de charge sans fil 10W.

Elle intègre aussi une lumière LED intégrée.

La batterie peut être rechargée via l'adaptateur secteur fourni, un panneau solaire ou un adaptateur 12V voiture (fourni).

Très pratique en voyage, camping ou pour parer à des coupures électriques.


Voir le bon plan
SSD PNY CS900 2 To à 99,89 €
99,89 € 145 € -31% @Amazon

Amazon fait une promotion sur le SSD PNY CS900 2 To qui passe à 99,89 € alors qu'on le trouve ailleurs à partir de 125 €. Ce SSD offre des vitesses d'écriture de 515 Mo/s et de lecture à 550 Mo/s. Il est garanti 3 ans.


Voir le bon plan
SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To (avec dissipateur, 7000 Mo/s) à 173,24 € livré
173,24 € 250 € -31% @Amazon Allemagne

Amazon Espagne fait une promotion sur le SSD Interne M.2 NVMe PCIe 4.0 Samsung 980 PRO 2 To avec son dissipateur de chaleur qui passe à 168,60 € (avec la TVA ajustée). Comptez 4,64 € pour la livraison en France soit un total de 173,24 € livré. On le trouve ailleurs à partir de 250 €. Ce SSD offre des taux de transfert de 7000 Mo /s en lecture et 5100 Mo/s en écriture. Une excellente affaire. 

Notez qu'il est également compatible avec la console de jeux PS5.


Voir le bon plan

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