Repertorier adresse dans fichier excel pour macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mcj1997

XLDnaute Accro
Bonjour,

Pour cette macro est-il possible de remplacer l’adresse du fichier par une adresse excel ou elle serait stockée. J’aurai un fichier nommé répertoire ou figurerai en A1 par exemple U:\A\cadeau.xls et ainsi dans ma macro j’aurai l’adresse du fichier repertoire.xls\feuille1\A1

Sub macro()
ChDir "U:\A"
ActiveWorkbook.SaveAs Filename:="U:\A\cadeau.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks("cadeau").Close
End Sub
 
Re : Repertorier adresse dans fichier excel pour macro

Bonjour mcj1997, le forum,
Une idée (sans password, ni sauvegarde). Copier les 3 fichiers dans le répertoire C:\.
Ouvrir le fichier mcj (feuille « menu »), sélectionner le fichier désiré. Fermer ce fichier pour retourner à la feuille « menu ».
Autre solution : Avec les boîtes de dialogues intégrées.
Cordialement,
Bernard
 

Pièces jointes

Re : Repertorier adresse dans fichier excel pour macro

bonjour
Dans chaque fichier que tu dois ouvrir, tu loges dans une cellule bien spécifique
la formule suivante =cellule("filename").
Cette formule te renvoie l'adresse du fichier.
tu copies ensuite ces adresses dans ton fichier qui contient ta macro de lancement
Cordialement
Flyonets
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
1
Affichages
671
Réponses
2
Affichages
981
N
Réponses
1
Affichages
698
M
Réponses
10
Affichages
2 K
MOA_Excel
M
S
Réponses
3
Affichages
851
M
Réponses
6
Affichages
1 K
MOA_Excel
M
R
  • Question Question
Réponses
2
Affichages
989
Rousseau Benoit
R
M
  • Question Question
Microsoft 365 Petit changement
Réponses
2
Affichages
1 K
marine_volria
M
S
Réponses
13
Affichages
2 K
sanae_J
S
Retour