Discussion :

[erlerwade]

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

[jackborogar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Ta_cellule = sDossier & "\"
 
Ton_Autre_Cellule= Ta_cellule &  Fichier & ".txt "

Cdt,

[erlerwade]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ce qui complique pour moi la situation

merci

[jackborogar]

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

Attention ce n'est pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[erlerwade]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jackborogar]

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:

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