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 un Fichier dont le nom est le contenu d'une cellule

Enregistrer un Fichier dont le nom est le contenu d'une cellule

11 réponses
Avatar
Jacques
Bonjour,

Je me permets de revenir vers vous, car malgré mes recherches, je n'ai pas
retrouvé la solution à mon souci.
J'ai un fichier Excel qui permet le suivi de compétitions de Bowling, et ce
, pour toute la France.
L'utilisateur va préciser à différents endroits du fichier
Le nom de la compétition
La date
Le lieu, etc...
Ces différents éléments sont concaténés dans une cellule nommée
"nom_fichier_export"
Grâce à une petite macro, il fait une extraction permettant une intégration
automatique dans la base fédérale, Numéro de Licence, Nom Prénom , Nombre de
lignes, Nombres de quilles abattues.

Je voudrai que cette macro se termine par un enregistrer sous :
\bureau\nom_fichier_export.xls

Est-ce possible ?

Sûrement, en tout cas merci de votre aide

Jacques
Signaler un problème avec ce contenu

1 réponse

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
1 2
Avatar
Jacques
Merci,
Avec tous ces éléments je devrais y parvenir, en fait c'est la construction
du projet qui me plante,
je nettoie , j'applique vos formules et cela devrait fonctionner ,...sinon,
je reviendrais....
Encore Merci
Jacques
"Daniel.C" a écrit dans le message de news:

La macro fonctionne si le fichier source est le fichier qui contient la
macro. Sinon:

Sub test()
Dim fso As New Scripting.FileSystemObject
Dim Utilisateur As String
Utilisateur = "Toto"
chemin = fso.GetAbsolutePathName(Utilisateur & "Bureau")
ThisWorkbook.SaveAs chemin & "" & _
Workbooks("toto.xls").Sheets("Feuil1").[nom_fichier_export] & ".xls"
End Sub

Remplace le nom du classeur et de la feuille.
Daniel
"Jacques @ Ceria"
a écrit dans le message de news:
471622e7$0$27413$
Re,
J'ai été un peu vite...
Le nouveau fichier est enregistré sous un nom de cellule qu'il ne connait
pas....
nom_fichier_export est nommé dans le fichier source, comment indiquer le
nom du fichier source dans vos formules
Merci beaucoup
Jacques
"Jacques @ Ceria"
a écrit dans le message de news:
471619f0$0$27375$
Merci Beaucoup,
C'est exactement ce qu'il me fallait, par contre la Ligne Dim fso
provoque un bug, faut-il activer certaines macro complémentaires
Encore Merci
Jacques
"Daniel.C" a écrit dans le message de news:

A la lumière de ta réponse à Jacky :

Sub test()
Dim fso As New Scripting.FileSystemObject
Dim Utilisateur As String
Utilisateur = "Toto"
chemin = fso.GetAbsolutePathName(Utilisateur & "Bureau")
ThisWorkbook.SaveAs chemin & "" & [nom_fichier_export] & ".xls"
End Sub

Daniel
"Daniel.C" a écrit dans le message de news:

Bonjour.
Si tu ne connais pas le chemin du répertoire "Bureau", ou si celui-ci
varie d'un ordi à l'autre, essaie :

Sub test()
Dim fso As New Scripting.FileSystemObject
Dim Utilisateur As String
Utilisateur = "Toto"
chemin = fso.GetAbsolutePathName(Utilisateur & "Bureau")
ThisWorkbook.SaveAs chemin & "" & "nom_fichier_export.xls"
End Sub

En remplaçant "toto" par le nom de l'utilisateur.
Cordialement.
Daniel
"Jacques @ Ceria"
a écrit dans
le message de news: 4715ff6f$0$5069$
Bonjour,

Je me permets de revenir vers vous, car malgré mes recherches, je
n'ai pas retrouvé la solution à mon souci.
J'ai un fichier Excel qui permet le suivi de compétitions de Bowling,
et ce , pour toute la France.
L'utilisateur va préciser à différents endroits du fichier
Le nom de la compétition
La date
Le lieu, etc...
Ces différents éléments sont concaténés dans une cellule nommée
"nom_fichier_export"
Grâce à une petite macro, il fait une extraction permettant une
intégration automatique dans la base fédérale, Numéro de Licence, Nom
Prénom , Nombre de lignes, Nombres de quilles abattues.

Je voudrai que cette macro se termine par un enregistrer sous :
bureaunom_fichier_export.xls

Est-ce possible ?

Sûrement, en tout cas merci de votre aide

Jacques
























1 2