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 automatique de fichier

enregistrement automatique de fichier

6 réponses
Avatar
Rémi
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon fichier
excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est toujours
enregistré (à l'heure actuelle) manuellement toujours selon le même schéma :
- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi
Signaler un problème avec ce contenu

6 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
Jacky
Bonjour Remi

Ceci peut-être

'----------
disque = "d:"
rep = "rep1rep2"
nom = NUMERO &NOMCLIENT &INTITULE & ".xls" '****a adapter****
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
Si "NUMERO NOMCLIENT INTITULE" se trouvent dans des cellules, revient.

Salutations
JJ

"Rémi" a écrit dans le message de
news:O%
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon
fichier

excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est
toujours

enregistré (à l'heure actuelle) manuellement toujours selon le même schéma
:

- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi




Avatar
Rémi
Bonjour Jacky,
je te remercie de te pencher sur mon cas. En effet les numéro, nom, intitulé
se trouvent dans des cellules distinctes. Je peux parvenir éventuellement à
récupérer par une fonction concatener l'ensemble de mes trois cellules mais
après je bloque.
merci d'avance
Rémi
"Jacky" a écrit dans le message de news:

Bonjour Remi

Ceci peut-être

'----------
disque = "d:"
rep = "rep1rep2"
nom = NUMERO &NOMCLIENT &INTITULE & ".xls" '****a adapter****
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
Si "NUMERO NOMCLIENT INTITULE" se trouvent dans des cellules, revient.

Salutations
JJ

"Rémi" a écrit dans le message de
news:O%
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon
fichier

excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est
toujours

enregistré (à l'heure actuelle) manuellement toujours selon le même
schéma
:

- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi








Avatar
Jacky
Re..
Quelle est l'adresse complète(feuille + cellule) des cellules contenant les
informations ??

jj

"Rémi" a écrit dans le message de
news:OrsqX$
Bonjour Jacky,
je te remercie de te pencher sur mon cas. En effet les numéro, nom,
intitulé

se trouvent dans des cellules distinctes. Je peux parvenir éventuellement
à

récupérer par une fonction concatener l'ensemble de mes trois cellules
mais

après je bloque.
merci d'avance
Rémi
"Jacky" a écrit dans le message de news:

Bonjour Remi

Ceci peut-être

'----------
disque = "d:"
rep = "rep1rep2"
nom = NUMERO &NOMCLIENT &INTITULE & ".xls" '****a adapter****
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
Si "NUMERO NOMCLIENT INTITULE" se trouvent dans des cellules, revient.

Salutations
JJ

"Rémi" a écrit dans le message de
news:O%
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon
fichier

excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est
toujours

enregistré (à l'heure actuelle) manuellement toujours selon le même
schéma
:

- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi












Avatar
Rémi
Jacky,
ci-après le nom des feuilles et numéro des cellules

NUMERO : "dossier de fabrication" cellule "F4"
NUMERO2 : "dossier de fabrication" cellule "H4"
CLIENT : "achat & sortie papier" cellule "C6"
TITRE : "dossier de fabrication" cellule "D7"
je te remercie par avance
Rémi

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

Re..
Quelle est l'adresse complète(feuille + cellule) des cellules contenant
les
informations ??

jj

"Rémi" a écrit dans le message de
news:OrsqX$
Bonjour Jacky,
je te remercie de te pencher sur mon cas. En effet les numéro, nom,
intitulé

se trouvent dans des cellules distinctes. Je peux parvenir éventuellement
à

récupérer par une fonction concatener l'ensemble de mes trois cellules
mais

après je bloque.
merci d'avance
Rémi
"Jacky" a écrit dans le message de news:

Bonjour Remi

Ceci peut-être

'----------
disque = "d:"
rep = "rep1rep2"
nom = NUMERO &NOMCLIENT &INTITULE & ".xls" '****a adapter****
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
Si "NUMERO NOMCLIENT INTITULE" se trouvent dans des cellules,
revient.

Salutations
JJ

"Rémi" a écrit dans le message de
news:O%
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon
fichier

excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour
tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est
toujours

enregistré (à l'heure actuelle) manuellement toujours selon le même
schéma
:

- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi
















Avatar
Jacky
Re...
'---------------
Avec "Titre" sans l'extension '.xls'(elle est rajouté automatiquement)

disque = "d:" '****nom du disque*****a adapter****
rep = "rep1rep2" '****ici le nom des éventuels répertoires*****
nom = Sheets("dossier de fabrication").[f4] & " " & Sheets("dossier de
fabrication").[h4] & " " & Sheets("achat & sortie papier").[c6] & " " &
Sheets("dossier de fabrication").[d7] & ".xls" '****a adapter****(a
saisie sur une seule ligne)
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
'Peut-être réduit à ceci:
'(en adaptant le nom du disque et celui des répertoires)

sav = "d:nom des répertoires" & Sheets("dossier de fabrication").[f4] & "
" & Sheets("dossier de fabrication").[h4] & " " & Sheets("achat & sortie
papier").[c6] & " " & Sheets("dossier de fabrication").[d7] & ".xls"
ActiveWorkbook.SaveAs sav


Salutations
JJ

"Rémi" a écrit dans le message de
news:
Jacky,
ci-après le nom des feuilles et numéro des cellules

NUMERO : "dossier de fabrication" cellule "F4"
NUMERO2 : "dossier de fabrication" cellule "H4"
CLIENT : "achat & sortie papier" cellule "C6"
TITRE : "dossier de fabrication" cellule "D7"
je te remercie par avance
Rémi

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

Re..
Quelle est l'adresse complète(feuille + cellule) des cellules contenant
les
informations ??

jj

"Rémi" a écrit dans le message de
news:OrsqX$
Bonjour Jacky,
je te remercie de te pencher sur mon cas. En effet les numéro, nom,
intitulé

se trouvent dans des cellules distinctes. Je peux parvenir
éventuellement



à
récupérer par une fonction concatener l'ensemble de mes trois cellules
mais

après je bloque.
merci d'avance
Rémi
"Jacky" a écrit dans le message de news:

Bonjour Remi

Ceci peut-être

'----------
disque = "d:"
rep = "rep1rep2"
nom = NUMERO &NOMCLIENT &INTITULE & ".xls" '****a adapter****
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
Si "NUMERO NOMCLIENT INTITULE" se trouvent dans des cellules,
revient.

Salutations
JJ

"Rémi" a écrit dans le message de
news:O%
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon
fichier

excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour
tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est
toujours

enregistré (à l'heure actuelle) manuellement toujours selon le même
schéma
:

- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi




















Avatar
Rémi
bonjour Jacky,
je te remercie de ton aide précieuse, ça fonctionne à merveille
Rémi

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

Re...
'---------------
Avec "Titre" sans l'extension '.xls'(elle est rajouté automatiquement)

disque = "d:" '****nom du disque*****a adapter****
rep = "rep1rep2" '****ici le nom des éventuels répertoires*****
nom = Sheets("dossier de fabrication").[f4] & " " & Sheets("dossier de
fabrication").[h4] & " " & Sheets("achat & sortie papier").[c6] & " " &
Sheets("dossier de fabrication").[d7] & ".xls" '****a
adapter****(a
saisie sur une seule ligne)
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
'Peut-être réduit à ceci:
'(en adaptant le nom du disque et celui des répertoires)

sav = "d:nom des répertoires" & Sheets("dossier de fabrication").[f4] &
"
" & Sheets("dossier de fabrication").[h4] & " " & Sheets("achat & sortie
papier").[c6] & " " & Sheets("dossier de fabrication").[d7] & ".xls"
ActiveWorkbook.SaveAs sav


Salutations
JJ

"Rémi" a écrit dans le message de
news:
Jacky,
ci-après le nom des feuilles et numéro des cellules

NUMERO : "dossier de fabrication" cellule "F4"
NUMERO2 : "dossier de fabrication" cellule "H4"
CLIENT : "achat & sortie papier" cellule "C6"
TITRE : "dossier de fabrication" cellule "D7"
je te remercie par avance
Rémi

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

Re..
Quelle est l'adresse complète(feuille + cellule) des cellules contenant
les
informations ??

jj

"Rémi" a écrit dans le message de
news:OrsqX$
Bonjour Jacky,
je te remercie de te pencher sur mon cas. En effet les numéro, nom,
intitulé

se trouvent dans des cellules distinctes. Je peux parvenir
éventuellement



à
récupérer par une fonction concatener l'ensemble de mes trois cellules
mais

après je bloque.
merci d'avance
Rémi
"Jacky" a écrit dans le message de news:

Bonjour Remi

Ceci peut-être

'----------
disque = "d:"
rep = "rep1rep2"
nom = NUMERO &NOMCLIENT &INTITULE & ".xls" '****a adapter****
sav = disque & rep & nom
MsgBox sav '*******a supprimer*******
ActiveWorkbook.SaveAs sav
'----------
Si "NUMERO NOMCLIENT INTITULE" se trouvent dans des cellules,
revient.

Salutations
JJ

"Rémi" a écrit dans le message de
news:O%
bonjour,
quelqu'un pourrait-il m'aider dans mon problème ?
je cherche à créer une fonction d'enregistrement automatique de mon
fichier

excel.
c'est un fichier qui me sert à des dossiers de travaux, donc, pour
tout
travail j'ai un fichier issu du fichier "mère". Chaque fichier est
toujours

enregistré (à l'heure actuelle) manuellement toujours selon le même
schéma
:

- NUMERO NOMCLIENT INTITULE
Merci d'avance
Rémi