Bonjour à tous !
J'ai fais une programmation sur VBA y'a de cela un certain de temps. Elle fonctionne toujours à merveille seulement j'ai un petit problème.
En faite cette macro enregistre automatiquement des fichiers par rapport à des critères bien définis seulement petit hic. J'avais oublié de mentionner la destination des enregistrements des fichiers... Actuellement la macro fonctionne bien mais elle enregistre les fichiers n'importe où sur le pc sans réelle logique.
Comment faire pour juste mentionner l'emplacement des enregistrements sur cette programmation?
Voici ma prog VBA :
Sub MacroDili()
'
' MacroDili Macro
'
On Error Resume Next
Lign = 2 ' on commence sur la ligne 2
' afficher la feuille qui contients les noms
Sheets("Feuil1").Select
Do 'Boucle pour passer en revu tous les noms
' On test si le fichier est clos. UCase permet de
' transformer les minuscules en majuscules
If UCase(Cells(Lign, 3).Value) <> "X" Then
'On recupères les valeurs pour les copier dans le modèle
Nom = Cells(Lign, 2).Value
Fic_Dili = Chem & Cells(Lign, 4).Value & "x"
Num_Dos = Cells(Lign, 1).Value
Sheets("Modele").Select
Cells(2, 2).Value = Nom
Cells(3, 2).Value = Num_Dos
' On copie la feuille
Sheets("Modele").Copy
' on copie ds un classeur de format 2003
ActiveWorkbook.SaveAs Filename:=Fic_Dili, FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
'on ferme le nouveau classeur
ActiveWindow.Close
End If
Lign = Lign + 1
Sheets("Feuil1").Select
Loop While Cells(Lign, 1).Value <> ""
'Pour faire propre on peut effacer ce que contient la feuille modele (facultatif)
Cells(2, 2).Value = ""
Cells(3, 2).Value = ""
Sheets("Feuil1").Select
End Sub