Discussion :

[Fralev]

Bonjour,
Je voudrais récupérer le chemin du répertoire courant pour renommer un fichier sous un autre nom et dans le même répertoire.
Ceci pour palier à la problématique multi-utilisateurs et donc avec différents chemins ...

J’ai essayé la commande « Application.CurrentProject.Path » sans succès, mais je ne suis pas sûr de bien l’implémenter ...
Pourriez vous, sur la base de la macro suivante (qui fonctionne avec l’indication pré-définie du chemin) me préciser la procédure complète (déclarations comprises) à implémenter.

Merci d’avance pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Copy()
 
Dim fs As Object
Dim Chemin As String
 
Chemin = "C:\Titi\Inscriptions"
 
Set fs = CreateObject("Scripting.FileSystemObject")
 
fs.CopyFile Chemin & "\Inscriptions.xls", Chemin & "\ Inscription_Toto.xls", False
 
End Sub

[casefayere]

Bonsoir,

exemple :

Code :

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

1
2
3
4
dim nomfichier as string
nomfichier = Workbooks(ActiveWorkbook.Name).Path
msgbox nomfichier
ChDir nomfichier 'se place sur le repertoire du programme

[Fralev]

Merci ça marche parfaitement
Seule petite remarque, "Chemin " me parait plus approprié que "nomfichier"
Merci encore

[casefayere]

Bonjour le frum, Fralev

Seule petite remarque, "Chemin " me parait plus approprié que "nomfichier"

Bien sur mais je ne me contentai de proposer (rapidement) le principe, le nom de ma variable "nomfichier" vient d'un code plus complet et se justifie par la suite.

Content que tu adaptes des variables appropriées et surtout en français, je suis personnellement allergique à toutes ces variables de consonance anglophone pour la raison bien simple que le language Vba est de l'anglais et il est bien difficile pour un gars qui n'a fait que de l'allemand de s'y mettre, alors pourquoi devrais-je en rajouter

Bonne journée à tou(te)s (goodbye ou gousse d'ail, je ne sais plus)