Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

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.

10 réponses

1 2
Avatar
Daniel
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
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
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,

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
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
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
"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
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
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
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