Copie d’un fichier avec un nom spécifique
Bonjour,
Je me rends compte qu’Excel n’a pratiquement pas de limite.
Alors, une question.
Avec un fichier avec de nombreux onglets (aléatoire)
Peut-on faire une copie de ce fichier automatiquement, mais la copie au lieu de saisir le nom + extension copie, il prend la valeur d’une cellule.
Exemple :
Fichier : Document.xlsm
La copie devient Document - copie.xlsm
Je ce que souhaite, suivant les possibilités, que cela devienne :
Document Charles Martel.xslm (Charles Martel se trouvant dans une cellule, exemple A1)
Où
Charles Martel.xslm
La copie pouvant se faire fichier ouvert avec une macro.
Merci de bien vouloir me répondre.
À bientôt.
Bonjour,
une proposition
Sub sauvecopie()
fn = Sheets("feuil1").Range("A1")
fn = Left(fn, InStrRev(fn, ".") - 1) & "-copie" & Mid(fn, InStrRev(fn, "."))
ThisWorkbook.SaveCopyAs fn
End SubBonjour,
on en peut pas dire que tu aides beaucoup ! je comprends ta réponse comme étant
"j'ai une erreur, débrouille-toi pour retrouver ce que j'ai fait pour la reproduire et pour la corriger"
j'ai intégré la macro proposée et adaptée à ton fichier dans le module19. (son nom sauvecopie)
Re,
Mille excuses,
Je me suis planté de fichier.
Celui que tu as reçu n’a strictement rien à voir
Je vais essayer de me débrouiller avec celui que tu as corrigé.
Je te joins tout de même celui que tu aurais dû recevoir.
Pratiquement le même nom.
Avec toutes les explications d'erreurs
Désolé
Cordialement,
Re,
J’ai testé,
Cela marche super.
Si j’ose, je demanderais :
Un
Je n’ai pas besoin des commentaires (c’était mes essais sur le faux fichier, d’ailleurs sans succès)
Deux :
Ce serait bien qu’il s’enregistre dans le répertoire de l’original.
Cordialement,
Bonsoir,
voici une correction
+ sauvegarde dans le répertoire du classeur original
edit :message envoyé sans avoir lu ton dernier message
Bonjour,
Merci, h2so4
Je t’aurais donné des sueurs froides (erreur de fichier), mais le résultat est ce que j’espérais.
Juste un mini, mini souci, il ajoute copie après le Nom prénom.
Encore merci, et à bientôt,
bonjour,
il suffit d'enlever -copie dans le code fourni.
voici le fichier adapté
Bonjour,
Désolé du retard pour répondre, absence non prévue.
Merci H2SO4, pour ta réponse
Cela confirme mon ignorance concernant Excel
Un grand merci