Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel enregistrer automatiquement (nom = une celule du fichier)

enregistrer automatiquement (nom = une celule du fichier)

3 réponses
Avatar
pierre66
je débute en VBA (et ça se voit, je rame dur ...)

ayant des fiches "budget" créées à partir d'un modèle, je concatène dans une
cellule différentes infos (code client, client, dossier, commercial...)
ça ressemble par ex. à : PS0072-Solia-affiches moreau-YD

je veux ensuite que (sous condition) mon fichier s'enregistre
automatiquement sous ce nom variable, donc ici :
PS0072-Solia-affiches moreau-YD.xls

important parce que j'ai un tableau récap avec des liens hypertexte qui
renvoient vers les fichiers (je ne peux donc avoir la moindre erreur de
frappe)
--
merci par avance !

alzeihmer (déjà ?)
perpignan
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Nicolas B.
Salut,

Avec le nom du fichier en A1 :
ActiveWorkbook.SaveAs "C:Chemin" & [A1] & ".xls"

A+
Nicolas B.

je débute en VBA (et ça se voit, je rame dur ...)

ayant des fiches "budget" créées à partir d'un modèle, je concatène dans une
cellule différentes infos (code client, client, dossier, commercial...)
ça ressemble par ex. à : PS0072-Solia-affiches moreau-YD

je veux ensuite que (sous condition) mon fichier s'enregistre
automatiquement sous ce nom variable, donc ici :
PS0072-Solia-affiches moreau-YD.xls

important parce que j'ai un tableau récap avec des liens hypertexte qui
renvoient vers les fichiers (je ne peux donc avoir la moindre erreur de
frappe)


Avatar
pierre66
bon sang, mais c'est bien sûr ...
en gros, tout à fait comme dans une formule excel, mais sans oublier les [ ]

merci !!!
Avatar
ChrisV
Bonjour pierre66,

Attention toutefois aux caractères non-autorisés...
| < > ? [ ] : *

Sub zaza()
On Error Resume Next
ChDrive "C"
ChDir "C:"
Application.ActiveWorkbook.SaveAs ([A1] & ".xls")
If err.Number <> 0 Then MsgBox Error(err)
End Sub


ChrisV


"pierre66" a écrit dans le message de
news:
bon sang, mais c'est bien sûr ...
en gros, tout à fait comme dans une formule excel, mais sans oublier les
[ ]

merci !!!