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 Enregistrement simple par macro

Enregistrement simple par macro

13 réponses
Avatar
DC
Bonjour à tous,...............et bonne journée...!!

J'aimerais si possible, pouvoir enregistrer un fichier " Facturation " dans
un dossier existant, se nommant [ Daniel Tableur ]

en ne changeant que le nom du fichier ( réf. du Client ), par
l'intermédiaire d'une fenêtre inputbox ou autre et garder le cheminement
existant du Dossier [ Daniel Tableur ],

( Excel 2000 sous XP )

Cordialement..............Merci d'avance..............DC.
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
1 2
Avatar
DC
Bonjour à tous.........................Bonjour Daniel,

Merci...!!..........c'est presque çà....

C'est parfait pour le cheminement, le fichier se trouve au bon endroit,

Seul inconvénient, il s'enregistre sous le non " .xls " et ne prend pas en
compte la saisie du nom du client dans la fenêtre Inputbox,

Je suppose que l'origine de ce manque, doit être peut de chose, mais je suis
incapable d'y remédier.......je m'en excuse...!!

Cordialement!................Merci beaucoup...!!.............DC

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

Remplace :

Facturation = Inputbox("Entrez le nom du client")
Facturation = Facturation & ".xls"
Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & Facturation

par

Facturation = Inputbox("Entrez le nom du cllient")
Facturation = Facturation & ".xls"
Workbooks("facturation.xls").SaveAs _
"C:Documents and SettingsDanielMes documentsDaniel " _
& "tous ensemblesDaniel Tableur" & Facturation

Daniel
"DC" a écrit dans le message de news:
436cadd1$0$27431$
Bonjour à tous.......................Bonjour Daniel,

Merci...!!........d'avance

"C:Documents and SettingsDanielMes documentsDaniel tous
ensemblesDaniel TableurFacturation.xls"

Voilà le chemin d'enregistrement de " Facturation.xls " et j'aimerais
simplement qu'en remplaçant " Facturation " par le nouveau " Nom du
Client ", tout se passe a l'identique,

.....>Daniel tous ensembles
....................Daniel Tableur......" Facturation.xls
"
....................Daniel Texte
....................Daniel Dessin
....................Daniel Photo
....................Daniel Divers

Cordialement.................un grand Merci...!!...........DC

"Daniel" a écrit dans le message de news:
%
Bonjour.
Est-ce que tu as bien un répertoire C:Daniel Tableur ?
Daniel
"DC" a écrit dans le message de news:
436c7ae9$0$5383$
Bonjour à tous........................Bonjour Daniel,

Merci pour tout...!!

J'ai modifié comme présenté, mais le résultat est :

Fenêtre VB.......Erreur d'éxécution '1004'......ne peut accéder au
fichier 'C:Daniel Tableur'

Petite remarque de ma part, "Daniel Tableur" est un sous Dossier et non
pas un fichier.......peut-être que...!!....mais tu sais, mon savoir
dans ce domaine est tellement limité,

Cordialement...........encore Merci...!!...........DC
"Daniel" a écrit dans le message de news:
e%
En fait, tu récupères le nom da ton fichier dans la variable
"Facturation". La commande est donc :

Facturation = InputBox("nom fichier")

Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & Facturation

Daniel

"DC" a écrit dans le message de news:
436b9ddb$0$7836$
Bonsoir à tous..........................Bonsoir Daniel,

Voici le Code,.............Merci...!!
'---------------------------------------------------
Sub Test_Site_Daniel()

Facturation = InputBox("nom fichier")

Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & NomFichier

End Sub
'-----------------------------------------------------

Salutation!.............Encore Merci...!!..............DC


"Daniel" a écrit dans le message de news:
eq%23%
Peux-tu poster ton code ?
Daniel
"DC" a écrit dans le message de news:
436b8074$0$1012$
Bonjour à tous.....................Bonjour Daniel,

Merci pour ta réponse,..........çà fonctionne bien, mais........

Au lieu de sauvegarder, le nouveau nom, dans le sous/dossier Daniel
Tableur,

l'on cré à chaque fois, un nouveau fichier, " Daniel Tableur +
nouveau nom " dans le dossier principal,

Que peut-on faire pour y remèdier........Merci d'avance...!!

Cordialement..............Encore Merci.............DC


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

Bonjour.
Si j'ai bien compris, essaie :
NomFichier = "LeNomQueTuVeux"
Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & NomFichier
Cordialement.
Daniel
"DC" a écrit dans le message de news:
436b2847$0$1730$
Bonjour à tous,...............et bonne journée...!!

J'aimerais si possible, pouvoir enregistrer un fichier "
Facturation " dans
un dossier existant, se nommant [ Daniel Tableur ]

en ne changeant que le nom du fichier ( réf. du Client ), par
l'intermédiaire d'une fenêtre inputbox ou autre et garder le
cheminement existant du Dossier [ Daniel Tableur ],

( Excel 2000 sous XP )

Cordialement..............Merci d'avance..............DC.








































Avatar
Daniel
Il faut saisir quelque chose dans l'inputbox.
Exécute la macro en mode ligne à ligne pour vérifier.
Sinon, publie ton code.
Daniel
"DC" a écrit dans le message de news:
436cd1df$0$1746$
Bonjour à tous.........................Bonjour Daniel,

Merci...!!..........c'est presque çà....

C'est parfait pour le cheminement, le fichier se trouve au bon endroit,

Seul inconvénient, il s'enregistre sous le non " .xls " et ne prend pas en
compte la saisie du nom du client dans la fenêtre Inputbox,

Je suppose que l'origine de ce manque, doit être peut de chose, mais je
suis incapable d'y remédier.......je m'en excuse...!!

Cordialement!................Merci beaucoup...!!.............DC

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

Remplace :

Facturation = Inputbox("Entrez le nom du client")
Facturation = Facturation & ".xls"
Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & Facturation

par

Facturation = Inputbox("Entrez le nom du cllient")
Facturation = Facturation & ".xls"
Workbooks("facturation.xls").SaveAs _
"C:Documents and SettingsDanielMes documentsDaniel " _
& "tous ensemblesDaniel Tableur" & Facturation

Daniel
"DC" a écrit dans le message de news:
436cadd1$0$27431$
Bonjour à tous.......................Bonjour Daniel,

Merci...!!........d'avance

"C:Documents and SettingsDanielMes documentsDaniel tous
ensemblesDaniel TableurFacturation.xls"

Voilà le chemin d'enregistrement de " Facturation.xls " et j'aimerais
simplement qu'en remplaçant " Facturation " par le nouveau " Nom du
Client ", tout se passe a l'identique,

.....>Daniel tous ensembles
....................Daniel Tableur......" Facturation.xls
"
....................Daniel Texte
....................Daniel Dessin
....................Daniel Photo
....................Daniel Divers

Cordialement.................un grand Merci...!!...........DC

"Daniel" a écrit dans le message de news:
%
Bonjour.
Est-ce que tu as bien un répertoire C:Daniel Tableur ?
Daniel
"DC" a écrit dans le message de news:
436c7ae9$0$5383$
Bonjour à tous........................Bonjour Daniel,

Merci pour tout...!!

J'ai modifié comme présenté, mais le résultat est :

Fenêtre VB.......Erreur d'éxécution '1004'......ne peut accéder au
fichier 'C:Daniel Tableur'

Petite remarque de ma part, "Daniel Tableur" est un sous Dossier et
non pas un fichier.......peut-être que...!!....mais tu sais, mon
savoir dans ce domaine est tellement limité,

Cordialement...........encore Merci...!!...........DC
"Daniel" a écrit dans le message de news:
e%
En fait, tu récupères le nom da ton fichier dans la variable
"Facturation". La commande est donc :

Facturation = InputBox("nom fichier")

Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & Facturation

Daniel

"DC" a écrit dans le message de news:
436b9ddb$0$7836$
Bonsoir à tous..........................Bonsoir Daniel,

Voici le Code,.............Merci...!!
'---------------------------------------------------
Sub Test_Site_Daniel()

Facturation = InputBox("nom fichier")

Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & NomFichier

End Sub
'-----------------------------------------------------

Salutation!.............Encore Merci...!!..............DC


"Daniel" a écrit dans le message de news:
eq%23%
Peux-tu poster ton code ?
Daniel
"DC" a écrit dans le message de news:
436b8074$0$1012$
Bonjour à tous.....................Bonjour Daniel,

Merci pour ta réponse,..........çà fonctionne bien, mais........

Au lieu de sauvegarder, le nouveau nom, dans le sous/dossier
Daniel Tableur,

l'on cré à chaque fois, un nouveau fichier, " Daniel Tableur +
nouveau nom " dans le dossier principal,

Que peut-on faire pour y remèdier........Merci d'avance...!!

Cordialement..............Encore Merci.............DC


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

Bonjour.
Si j'ai bien compris, essaie :
NomFichier = "LeNomQueTuVeux"
Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & NomFichier
Cordialement.
Daniel
"DC" a écrit dans le message de news:
436b2847$0$1730$
Bonjour à tous,...............et bonne journée...!!

J'aimerais si possible, pouvoir enregistrer un fichier "
Facturation " dans
un dossier existant, se nommant [ Daniel Tableur ]

en ne changeant que le nom du fichier ( réf. du Client ), par
l'intermédiaire d'une fenêtre inputbox ou autre et garder le
cheminement existant du Dossier [ Daniel Tableur ],

( Excel 2000 sous XP )

Cordialement..............Merci d'avance..............DC.












































Avatar
DC
Bonsoir à tous...........................Bonsoir Daniel,

Euréka...!!..........C'est parfait Daniel, çà fonctionne à merveille,

J'ai éxécuté le mode pas à pas pour vérifier et çà à fonctionné du premier
coup et depuis c'est parfait.......Merci beaucoup...!!

Certainement que j'ais dût faire un loupé, sans m'en rendre
compte,...........(excuse moi pour le dérangement )

Salutation!.........Encore Merci...!!.........Bon WE.......DC

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

Il faut saisir quelque chose dans l'inputbox.
Exécute la macro en mode ligne à ligne pour vérifier.
Sinon, publie ton code.
Daniel
"DC" a écrit dans le message de news:
436cd1df$0$1746$
Bonjour à tous.........................Bonjour Daniel,

Merci...!!..........c'est presque çà....

C'est parfait pour le cheminement, le fichier se trouve au bon endroit,

Seul inconvénient, il s'enregistre sous le non " .xls " et ne prend pas
en compte la saisie du nom du client dans la fenêtre Inputbox,

Je suppose que l'origine de ce manque, doit être peut de chose, mais je
suis incapable d'y remédier.......je m'en excuse...!!

Cordialement!................Merci beaucoup...!!.............DC

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

Remplace :

Facturation = Inputbox("Entrez le nom du client")
Facturation = Facturation & ".xls"
Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & Facturation

par

Facturation = Inputbox("Entrez le nom du cllient")
Facturation = Facturation & ".xls"
Workbooks("facturation.xls").SaveAs _
"C:Documents and SettingsDanielMes documentsDaniel " _
& "tous ensemblesDaniel Tableur" & Facturation

Daniel
"DC" a écrit dans le message de news:
436cadd1$0$27431$
Bonjour à tous.......................Bonjour Daniel,

Merci...!!........d'avance

"C:Documents and SettingsDanielMes documentsDaniel tous
ensemblesDaniel TableurFacturation.xls"

Voilà le chemin d'enregistrement de " Facturation.xls " et j'aimerais
simplement qu'en remplaçant " Facturation " par le nouveau " Nom du
Client ", tout se passe a l'identique,

.....>Daniel tous ensembles
....................Daniel Tableur......"
Facturation.xls "
....................Daniel Texte
....................Daniel Dessin
....................Daniel Photo
....................Daniel Divers

Cordialement.................un grand Merci...!!...........DC

"Daniel" a écrit dans le message de news:
%
Bonjour.
Est-ce que tu as bien un répertoire C:Daniel Tableur ?
Daniel
"DC" a écrit dans le message de news:
436c7ae9$0$5383$
Bonjour à tous........................Bonjour Daniel,

Merci pour tout...!!

J'ai modifié comme présenté, mais le résultat est :

Fenêtre VB.......Erreur d'éxécution '1004'......ne peut accéder au
fichier 'C:Daniel Tableur'

Petite remarque de ma part, "Daniel Tableur" est un sous Dossier et
non pas un fichier.......peut-être que...!!....mais tu sais, mon
savoir dans ce domaine est tellement limité,

Cordialement...........encore Merci...!!...........DC
"Daniel" a écrit dans le message de news:
e%
En fait, tu récupères le nom da ton fichier dans la variable
"Facturation". La commande est donc :

Facturation = InputBox("nom fichier")

Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & Facturation

Daniel

"DC" a écrit dans le message de news:
436b9ddb$0$7836$
Bonsoir à tous..........................Bonsoir Daniel,

Voici le Code,.............Merci...!!
'---------------------------------------------------
Sub Test_Site_Daniel()

Facturation = InputBox("nom fichier")

Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & NomFichier

End Sub
'-----------------------------------------------------

Salutation!.............Encore Merci...!!..............DC


"Daniel" a écrit dans le message de news:
eq%23%
Peux-tu poster ton code ?
Daniel
"DC" a écrit dans le message de news:
436b8074$0$1012$
Bonjour à tous.....................Bonjour Daniel,

Merci pour ta réponse,..........çà fonctionne bien, mais........

Au lieu de sauvegarder, le nouveau nom, dans le sous/dossier
Daniel Tableur,

l'on cré à chaque fois, un nouveau fichier, " Daniel Tableur +
nouveau nom " dans le dossier principal,

Que peut-on faire pour y remèdier........Merci d'avance...!!

Cordialement..............Encore Merci.............DC


"Daniel" a écrit dans le message de
news:
Bonjour.
Si j'ai bien compris, essaie :
NomFichier = "LeNomQueTuVeux"
Workbooks("facturation.xls").SaveAs _
"C:Daniel Tableur" & NomFichier
Cordialement.
Daniel
"DC" a écrit dans le message de news:
436b2847$0$1730$
Bonjour à tous,...............et bonne journée...!!

J'aimerais si possible, pouvoir enregistrer un fichier "
Facturation " dans
un dossier existant, se nommant [ Daniel Tableur ]

en ne changeant que le nom du fichier ( réf. du Client ), par
l'intermédiaire d'une fenêtre inputbox ou autre et garder le
cheminement existant du Dossier [ Daniel Tableur ],

( Excel 2000 sous XP )

Cordialement..............Merci d'avance..............DC.
















































1 2