Adresse de fichier par VBA

Le
Mabouille
Re Bonjour le Monde,
Pour faire simple: un fichier Fich est dans un répertoire Rep.
Je voudrais mettre dans la cellule A1 de l'onglet Feuil1 de Fich le nom de
Fich, genre "Fich.xls", dans la cellule A2 l'adresse de Fich, genre
"C:MachinTrucRepFich.xls", et pour finir l'exercice, mettre directement
dans la case A3 le chemin d'accès à Rep. (ça semble un peu pareil que pour A2
mais je pense que ça peut être plus compliqué)
Qui me donne la marche à suivre sera chaudement remercié,
Cordialement,
Mabouille
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17644921
bonjour Mabouille,

Sub Macro1()
Range("A1") = ActiveWorkbook.Name
Range("A2") = ActiveWorkbook.FullName
Range("A3") = ActiveWorkbook.Path
End Sub

isabelle

Mabouille a écrit :
Re Bonjour le Monde,
Pour faire simple: un fichier Fich est dans un répertoire Rep.
Je voudrais mettre dans la cellule A1 de l'onglet Feuil1 de Fich le nom de
Fich, genre "Fich.xls", dans la cellule A2 l'adresse de Fich, genre
"C:MachinTrucRepFich.xls", et pour finir l'exercice, mettre directement
dans la case A3 le chemin d'accès à Rep. (ça semble un peu pareil que pour A2
mais je pense que ça peut être plus compliqué)
Qui me donne la marche à suivre sera chaudement remercié,
Cordialement,
Mabouille


Mabouille
Le #17650731
Re bonjour Isabelle,
Et re merci, ca me va tout à fait.
Petite confidence: je pense me servir de ça pour faire la macro qui va
remplacer mes liens hyper texte (voir ma question Liens hypertexte
changeants" à laquelle tu as gentiment répondu).
Cordialement
Mabouille

"isabelle" a écrit :

bonjour Mabouille,

Sub Macro1()
Range("A1") = ActiveWorkbook.Name
Range("A2") = ActiveWorkbook.FullName
Range("A3") = ActiveWorkbook.Path
End Sub

isabelle

Mabouille a écrit :
> Re Bonjour le Monde,
> Pour faire simple: un fichier Fich est dans un répertoire Rep.
> Je voudrais mettre dans la cellule A1 de l'onglet Feuil1 de Fich le nom de
> Fich, genre "Fich.xls", dans la cellule A2 l'adresse de Fich, genre
> "C:MachinTrucRepFich.xls", et pour finir l'exercice, mettre directement
> dans la case A3 le chemin d'accès à Rep. (ça semble un peu pareil que pour A2
> mais je pense que ça peut être plus compliqué)
> Qui me donne la marche à suivre sera chaudement remercié,
> Cordialement,
> Mabouille



Publicité
Poster une réponse
Anonyme