OVH Cloud OVH Cloud

Enregistrer une copie d'un fichier modifié

3 réponses
Avatar
ThainZ
Bonjour,

La maccro en question permet via un userform de parcourir les dossier et sélectionner un fichier puis d'y appliquer des modifications. Le chemin complet du fichier sélectionné s'inscrit dans Textbox1

J'aimerais qu'une fois toutes les modifications effectuées, le fichier ouvert soit enregistré sous le même dossier que le fichier d'origine et avec le même nom + un numéro de version à la fin.

Nom du fichier avant modifications:
D:Documents and SettingsBureauDossier1Fichier de test.xls

Nom de la copie de fichier après modifications:
D:Documents and SettingsBureauDossier1Fichier de test_v2.0.xls

Merci pour votre aide

3 réponses

Avatar
thainz
Le mardi 04 Août 2015 à 09:59 par ThainZ :
Bonjour,

La maccro en question permet via un userform de parcourir les dossier et
sélectionner un fichier puis d'y appliquer des modifications. Le chemin
complet du fichier sélectionné s'inscrit dans Textbox1

J'aimerais qu'une fois toutes les modifications effectuées, le fichier
ouvert soit enregistré sous le même dossier que le fichier
d'origine et avec le même nom + un numéro de version à la
fin.

Nom du fichier avant modifications:
D:Documents and SettingsBureauDossier1Fichier de test.xls

Nom de la copie de fichier après modifications:
D:Documents and SettingsBureauDossier1Fichier de test_v2.0.xls

Merci pour votre aide


J'essaye de faire:

ActiveWorkbook.SaveAs ("ActiveWorkbook.Name & _V2")

mais ça enregistre sous le nom "active Workbook" au lieu de "Fichier de test".

Et si je fais:

ActiveWorkbook.SaveAs (ActiveWorkbook.Name & "_V2")

ça enregistre un fichier sans format avec le nom: "Fichier de test.xls_v2
Avatar
DanielCo
J'essaye de faire:

ActiveWorkbook.SaveAs ("ActiveWorkbook.Name & _V2")

mais ça enregistre sous le nom "active Workbook" au lieu de "Fichier de
test".

Et si je fais:

ActiveWorkbook.SaveAs (ActiveWorkbook.Name & "_V2")

ça enregistre un fichier sans format avec le nom: "Fichier de test.xls_v2



Bonjour,
Est-ce que ton classeur a été enregistré au moins une fois avant le
SaveAs ? Est-ce que tu veux bien dire que le classeur a été enregistré
sans extension ? Quelle est ta version d'Excel ? Essaie d'ajouter un
paramètre "fileformat" :
ActiveWorkbook.SaveAs ActiveWorkbook.Name & "_V2", xlOpenXMLWorkbook
Cordialement.
Daniel
Avatar
thainz
Le mardi 04 Août 2015 à 09:59 par ThainZ :
Bonjour,

La maccro en question permet via un userform de parcourir les dossier et
sélectionner un fichier puis d'y appliquer des modifications. Le chemin
complet du fichier sélectionné s'inscrit dans Textbox1

J'aimerais qu'une fois toutes les modifications effectuées, le fichier
ouvert soit enregistré sous le même dossier que le fichier
d'origine et avec le même nom + un numéro de version à la
fin.

Nom du fichier avant modifications:
D:Documents and SettingsBureauDossier1Fichier de test.xls

Nom de la copie de fichier après modifications:
D:Documents and SettingsBureauDossier1Fichier de test_v2.0.xls

Merci pour votre aide


Bonjour Daniel,

Apparement ma réponse n'es pas apparue sur le forum :(.

J'ai réussi en faisant:

Dim File_name2 As String
File_name2 = Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".") - 1) & "_v2.xls"
ActiveWorkbook.SaveAs (File_name2)