Affectation du repertoire
Résolu
Bonjour,
je suis un novice sur VBA apres deux jours de recherche, je suis tombé sur ce code (qui est tout a fait ce que je recherche)
Seul hic j voudrais pouvoir les repertorier dans un seul et meme dossier, En gros indiquer le chemin du repertoire dans la macro... alors que dans ce cas precis la macro m'enregistre tout les fichiers dans mon disque local.
Pourriez vous m'aider?
Merci 'd'avance
MAY THE FORCE BE WITH YOU
bonne journée!
je suis un novice sur VBA apres deux jours de recherche, je suis tombé sur ce code (qui est tout a fait ce que je recherche)
Seul hic j voudrais pouvoir les repertorier dans un seul et meme dossier, En gros indiquer le chemin du repertoire dans la macro... alors que dans ce cas precis la macro m'enregistre tout les fichiers dans mon disque local.
Pourriez vous m'aider?
Merci 'd'avance
MAY THE FORCE BE WITH YOU
bonne journée!
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
ModérateurBonjour,
Pas de problème. Mais ou est ce code dont tu nous parle? -
Pauvre de moi! dsl pour cet oublie!
Sub saveOnglet()
Dim ws
Dim newWk As Workbook
Dim DPT As String 'Rep Name
DPT = Range("A3").Value
For Each ws In Worksheets
Set newWk = Workbooks.Add(xlWBATWorksheet)
ws.Copy newWk.Sheets(1)
newWk.saveas (ws.Name & ".xls")
newWk.Close
Set newWk = Nothing
Next ws
End Sub -
ModérateurApparemment dans ta cellule A3 tu indiques le chemin complet du répertoire ex : C:\documents\je travaille\si je veux
Ce qui entraîne que la variable DPT est affectée de cette valeur.
Donc il suffit de l'indiquer lors de la sauvegarde :newWk.saveas (DPT & "\" & ws.Name & ".xls")
-
Merci!!!!!!!!
cela fontionne...je sais il m'en faut peu mais je suis tres heureux :-).
Bonne année a toi!
MAY THE FORCE BE WITH YOU!
