1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| 'Sauvegarde des données du Service dans un fichier .txt
Open "Z:\Délégation_de_contrôle\Indicateurs de suivi Délégation\Archivage résultats\" & NomService & ".txt" For Append As #1 'ouverture du fichier.txt que l'on appelle #1.
Print #1, Range("C61").Value & vbTab & Cells(61, 4).Value 'écriture la date et la moyenne de la mise à jour. vbTab insère une tabulation entre les deux, afin de pouvoir utiliser ces données sur un fichier Excel.
Close #1 'fermeture du fichier
'Sauvegarde de la note total Service du menu dans un fichier .txt
Open "Z:\Délégation_de_contrôle\Indicateurs de suivi Délégation\Archivage résultats\Total Services.txt" For Append As #1 'ouverture du fichier.txt que l'on appelle #1.
'Print #1, Sheets("Menu").Range("E10").Value & vbTab & Sheets("Menu").Range("F10").Value 'écriture la date et la moyenne de la mise à jour. vbTab insère une tabulation entre les deux, afin de pouvoir utiliser ces données sur un fichier Excel.
Close #1 'fermeture du fichier
......
'Ouverture automatique du fichier source
Workbooks.Open Filename:="Z:\Base-competences_pers_ctrl.xls", Notify:=False, ReadOnly:=True
fichiersource = "Z:\Base-competences_pers_ctrl.xls"
..... |
Partager