Discussion :

[BRUNO71]

Bonjour,

J'ai besoin d'enregistrer différents fichiers Excel sous différents chemins d'accès, comment faire la macro pour aller chercher le répertoire écrit dans la case A1 Feuil1, par exemple.
Je n'arrive pas à créer cette macro.
Si je note " C:\mes documents\bruno \ "
Comment dois-je faire ?

Bien cordialement, merci.

[helios77]

il te suffit de faire ceci pour récupérer le contenu de ta cellule

Code :

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

1
2
 
rep = Sheets("Feuil1").Cells(1,1).value

[BRUNO71]

Bonjour Hélios77,

Et bien merci, mais ça ne fonctionne pas.
Voilà ce que j'ai fait .

Code :

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

1
2
3
4
5
6
Sub Bouton1_QuandClic()
Dim Chr As String
Chr = rep
rep = Sheets("Feuil1").Cells(1, 1).Value
ActiveWorkbook.SaveAs Filename:=Chr
End Sub

C'est ça ????

Merci

[helios77]

ceci

Code :

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

1
2
3
4
5
6
7
 
Sub Bouton1_QuandClic()
Dim Chr As String
Chr = rep
rep = Sheets("Feuil1").Cells(1, 1).Value
ActiveWorkbook.SaveAs Filename:=Chr & "\TonFichier.xls"
End Sub

Car je pense que dans ta cellule, tu ne mets que ton réperooire sans le nom du fichier

[SfJ5Rpw8]

Bonsoir, Bruno ... tu devrai rajouter la ligne de commande

Code :

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

1
2
 
Option Explicit

en haut de ton code ce qui te permettra en t'obligeant à la déclaration des variables, plusieurs problémes....


ensuite .. Chr c'est un nom de fonction .() , évite de l'utiliser comme variable....


pourquoi utiliser ces 2 variables Chr et Rep ..., avec de sur crois un problème dans l'ordre des ligne...

Rep devrai bien être suffisant

[BRUNO71]

Bonjour à tous,

Merci pour votre aide, j'ai modifié ma macro selon vos remarques et c'est super... ça marche.
J'ai le nom et le répertoire dans une case différente, et voilà.

Code :

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

1
2
3
4
5
Dim nom As String
Dim repertoire As String
nom = Sheets("Feuil1").Cells(2, 3).Value
repertoire = Sheets("Feuil1").Cells(1, 2).Value
ActiveWorkbook.SaveAs Filename:=repertoire & " BT " & nom & " .xls"

Ah Excel !
Excellement votre.
Bien cordialement, et bravo à Développez.com

Bruno.

[AlainTech]

Un petit clic sur le bouton "Résolu", si tu es content de nos réponses?

Pense aussi à mettre ton code entre balises quand tu en postes.

Merci.