extensions et slash(/) à automatiser

Bonjour Forum,

Mon problème est le suivant:
Pour renseigner la cellule du lien de mon dossier je suis obliger à chaque fois de mettre un slash(/) à la fin.
pour renseigner également la cellule contenant le lien de mon fichier après le nom du fichier je met toujours l'extension .txt.
pour moi ce n'est pas gênant mais pour un nouveau utilisateur de l'outil excel y'a sauvant des problème .
donc le but serait de savoir si y'a moyen d'automatiser le slash(/) aprés le nom du dossier et les extension après le nom du fichier;

merci

Bonjour,

Je suis pas sure d'avoir tout compris mais je tente quand même.

Lors de ta macro tu enregistres la valeur de ton lien dans une variable String comme "sDossier". Le nom de ton fichier dans "Fichier"

Code:

---

1 2 3

Ta_cellule = sDossier & "\"   Ton_Autre_Cellule= Ta_cellule & Fichier & ".txt "

---

Cdt,

jackborogar,

oui je pense que vous avez compris ce que je cherche à faire .
Ton_Autre_Cellule= Ta_cellule & "\" & Fichier & ".csv "
est ce que ca marche aussi, je veux dire si l'extension est un csv .
Sinon mon nom de dossier et de fichier son défis ainsi:

Code:

---

adressein = ThisWorkbook.Sheets("Menu").Range("E3").Value & ThisWorkbook.Sheets("Menu").Range("E5").Value

---

ce qui complique pour moi la situation

merci

OUi biensure si l'extension est .csv alors tu remplaces par ".csv" dans mon code.

Attention ce n'est pas :

Code:

---

Ton_Autre_Cellule= Ta_cellule & "\" & Fichier & ".csv "

---

mais

Code:

---

Ton_Autre_Cellule= Ta_cellule & Fichier & ".csv "

---

puisque le "\" à la fin est déjà dans ta variable Ta_cellule.

Ai-je répondu au total de ta question? SI oui n'oublie pas de fermer le topic en appuyant sur résolu juste en dessous de mon topic!

Cdt,

Alors si le nom de ton dossier est dans ta cellule E3 de ta feuille Menu alors

Code:

---

1 2 3 4 5 6 7 8

Dim sDossier As String Dim Fichier As String   sDossier = ThisWorkbook.Sheets("Menu").Range("E3").Value Fichier = ThisWorkbook.Sheets("Menu").Range("E5").Value   Ta_cellule = sDossier & "\" Ton_Autre_Cellule= Ta_cellule & Fichier & ".csv"

---

Petite question, que veux tu faire au final? Enregistrer ton fichier?

jackborogar,
Est ce que nous sommes obligés de scinder :

Code:

---

adressein = ThisWorkbook.Sheets("Menu").Range("E3").Value & ThisWorkbook.Sheets("Menu").Range("E5").Value

---

en :

Code:

---

1 2	sDossier = ThisWorkbook.Sheets("Menu").Range("E3").Value Fichier = ThisWorkbook.Sheets("Menu").Range("E5").Value

---

car en effet j'ai besoin de la premiére structure .

Merci

Disons que dans chacune de mes variables, j'ajoute les contraintes que tu m'as cités: "\" et ".cvs"

De plus il est beaucoup plus clair d'écrire le code comme je te l'ai mis. Ensuite à toi d'adapter.

Mais que veux faire au final? Peut-être que je peux t'aider.

Enfin la dernière variable est l'ensemble de ton chemin final, avec le nom de ton fichier comme:

Citation:

---

C:\Documents and Settings\x_tlevent\Mes documents\Enregistrer\fichier.cvs

---

jackborogar, quelle gentillesse!
l'histoire est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim texte As String Dim adressein As String Dim adresseout As String   Dim fs As Object, copie As Object Dim AncienNom As String, NouveauNom As String, MonChemin As String Set fs = CreateObject("Scripting.FileSystemObject")   Sheets("Menu").Select   adressein = ThisWorkbook.Sheets("Menu").Range("E3").Value & ThisWorkbook.Sheets("Menu").Range("E5").Value adresseout = ThisWorkbook.Sheets("Menu").Range("X3").Value   fs.CopyFile adressein, adresseout, True   AncienNom = adresseout & ThisWorkbook.Sheets("Menu").Range("E5").Value NouveauNom = adresseout & ThisWorkbook.Sheets("Menu").Range("X5").Value   Name AncienNom As NouveauNom

---

au fait j'entre l'adresse de mon dossier et de mon fichier dans la variable adressein; je fais une copie du fichier que je colle dans l'adresse affectée à la variable adresseout. ensuite je change le nom du fichier dans la variable AncienNom et je l'affecte le nom dans la variable NouveauNom;
Le seul problème est que suis obligé à chaque fois de mettre des slash et les extensions .
Merci

Oulala quel charabiat! Je pense qu'il y a beaucoup plus simple que d'écrire les noms directement dans ton excel. Effectivement tu peux aller les chercher. Sinon voici le bon résultat:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set fs = CreateObject("Scripting.FileSystemObject")   Sheets("Menu").Select   sDossier = ThisWorkbook.Sheets("Menu").Range("E3").Value Fichier = ThisWorkbook.Sheets("Menu").Range("E5").Value Fichier2 = ThisWorkbook.Sheets("Menu").Range("X5").Value adresseout = ThisWorkbook.Sheets("Menu").Range("X3").Value   adressein = sDossier & "\" & Fichier & ".csv"   fs.CopyFile adressein, adresseout, True   AncienNom = adresseout & "\" & Fichier NouveauNom = adresseout & "\" & Fichier2

---

jackborogar,
Nous y sommes presque;
La macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sheets("Menu").Select   sDossier = ThisWorkbook.Sheets("Menu").Range("E3").Value Fichier = ThisWorkbook.Sheets("Menu").Range("E5").Value Fichier2 = ThisWorkbook.Sheets("Menu").Range("X5").Value xdossier = ThisWorkbook.Sheets("Menu").Range("X3").Value     adressein = sDossier & "\" & Fichier & ".csv" adresseout = xdossier & "\" fs.CopyFile adressein, adresseout, True   AncienNom = adresseout & "\" & Fichier NouveauNom = adresseout & "\" & Fichier2 & ".txt"   Name AncienNom As NouveauNom

---

La macro bug au niveau de la dernière ligne de code, censée remplacer le nom du fichier :

Code:

---

Name AncienNom As NouveauNom

---

quand je me mets sur

Code:

---

AncienNom

---

je vois que l'erreur viens du fait que le slash séparateur du nom du dossier et du fichier est double, est mis deux fois de suite .
Merci

C'est normal, puisqu'il est déjà à la fin de adresseout donc correction ci dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sheets("Menu").Select   sDossier = ThisWorkbook.Sheets("Menu").Range("E3").Value Fichier = ThisWorkbook.Sheets("Menu").Range("E5").Value Fichier2 = ThisWorkbook.Sheets("Menu").Range("X5").Value xdossier = ThisWorkbook.Sheets("Menu").Range("X3").Value     adressein = sDossier & "\" & Fichier & ".csv" adresseout = xdossier & "\" fs.CopyFile adressein, adresseout, True   AncienNom = adresseout & Fichier & ".csv" NouveauNom = adresseout & Fichier2 & ".txt"

---

Par contre à quoi te sert ?? Car c'est pas bon ça!

Code:

---

1 2	Name AncienNom As NouveauNom

---

jackborogar,

Code:

---

Name AncienNom As NouveauNom

---

Permet de remplacer l’ancien nom du fichier dans la cellule(5,5) par le nouveau dans la cellule (5,24)
Je teste le nouveau code que t'a corrigé et je te dis.

Merci

Mais je comprends pas car regarde la logique de ton code, ya un truc qui cloche!

Tu donnes un nom à ton AncienNom (normalement il a déjà un nom??)
Puis donne un nom à ton NouveauNom
et après tu remplaces le nom de l'AncienNom par le NouveauNom sa veut rien dire du tout!

Enlève dans ce cas

Code:

---

AncienNom = adresseout & Fichier & ".csv"

---

et après la ligne NouveauNom = ....... tu cales

Code:

---

ActiveSheet.Cells(5,5).Value = NouveauNom

---

jackborogar,

merci beaucoup , t'avais bien raison j'ai amélioré le code .
sinon ca marche parfaitement maintenant l'histoire du slash et des extension . Chapeau .

A bientôt