Affectation du repertoire
Résolu
Medinho
-
Medinho -
Medinho -
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!
A voir également:
- Affectation du repertoire
- Répertoire téléphonique gratuit - Télécharger - Bureautique
- Pourquoi certains contacts disparaissent de mon répertoire - Accueil - Guide Android
- Commande dos copy repertoire et sous repertoire - Forum Logiciels
- Créer un répertoire alphabétique sur word - Forum Excel
- Mon répertoire - Forum iPhone
4 réponses
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
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