Discussion :

[olo-rsv-R]

Bonjour,
Premier post sur ce forum qui a l'air super !

Je suis à la recherche d'infos pour savoir comment créer 1 macro pour
- copier un onglet d'un fichier xls actif vers un nouveau fichier => pas de soucis
- enregistrer ce fichier xls dans un répertoire "relatif", càd un sous-répertoire parallèle, donc remonter d'un niveau et redescendre directement dans le sous-répertoire parallèle

Lorsque j'utilise l'enregistreur de macro, il me l'enregistre par défaut dans un répertoire nommé. Comme je souhaite appliquer cette macro à un template qui sera lui-même enregistré à chaque fois dans un répertoire projet différent, cette solution ne me convient pas, d'où ma recherche de codage du "chemin relatif"

Merci d'avance pour votre aide !
A+,

OLO

[Didier Gonard]

Bonjour,

regardes l’aide VBA à Workbook.SaveAs, méthode

Sinon tu ne donnes pas assez de détails, il faut bien que pour aller quelque part en connaître le chemin

Il n'y a pas de propriété Offset à ce niveau...

si tu peux grâce à une organisation de nommage des arborescences et fichiers correcte (relations de structures dans les noms) construire un algorithme relationnel c'est facile, sinon, il faut faire une table de correspondance genre Select Case.

cordialement,

Didier

[AlainTech]

Bonjour à tous,

J'ai créé 2 répertoires:
\\Pc-de-alain\Users\Alain\Documents\Excel\Forum\PourTest
et
\\Pc-de-alain\Users\Alain\Documents\Excel\Forum\PourTest2

J'ai enregistré un classeur dans PourTest2 avec ce code:

Code :

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

1
2
3
4
Sub test()
  Open ThisWorkbook.Path & "\..\PourTest\test.txt" For Output As #1
  Close 1
End Sub

Le fichier texte est bien créé dans le répertoire PourTest qui est au même niveau que PourTest2.
Le .. dans le chemin signifie "remonter d'un niveau".