Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Tophe,
Ceci te permet d'ouvrir un fichier xls de ton choix et de l'enregistrer dans le même répertoire sous le même nom mais avec un format HTML.
'------------------------ Sub Ouvrir()
Dim Wk As WorkBook Dim File As Variant Dim X As XlFileFormat X = xlHtml
File = Application.GetOpenFilename("excel Files (*.xls), *.xls") If File <> "" Then Set Wk = Workbooks.Open(File) Wk.SaveAs Left(File, Len(File) - 3) & "html", X Wk.Close End If Set Wk = Nothing
End Sub '------------------------
Salutations!
"Tophe" a écrit dans le message de news: 220101c51d9b$28b90e40$ Bonjour à toutes et tous
je cherche une macro pouvant faire ceci:
Je suis dans un classeur A.xls (celui qui contiendra la macro)
J'ouvre une boite de dialogue pour selectionner un classeur B.xls (placé n'importe ou sur mon disque).
Sans ouvrir ce classeur B.xls, je l'enregistre au format html sous le meme nom et dans le meme repertoire que B.xls.
Le tout sans demande de confirmation.
Par avance un grand merci pour vos conseils.
Tophe
Bonjour Tophe,
Ceci te permet d'ouvrir un fichier xls de ton choix et de l'enregistrer dans le même répertoire sous le même nom mais
avec un format HTML.
'------------------------
Sub Ouvrir()
Dim Wk As WorkBook
Dim File As Variant
Dim X As XlFileFormat
X = xlHtml
File = Application.GetOpenFilename("excel Files (*.xls), *.xls")
If File <> "" Then
Set Wk = Workbooks.Open(File)
Wk.SaveAs Left(File, Len(File) - 3) & "html", X
Wk.Close
End If
Set Wk = Nothing
End Sub
'------------------------
Salutations!
"Tophe" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 220101c51d9b$28b90e40$a401280a@phx.gbl...
Bonjour à toutes et tous
je cherche une macro pouvant faire ceci:
Je suis dans un classeur A.xls (celui qui contiendra la
macro)
J'ouvre une boite de dialogue pour selectionner un
classeur B.xls (placé n'importe ou sur mon disque).
Sans ouvrir ce classeur B.xls, je l'enregistre au format
html sous le meme nom et dans le meme repertoire que
B.xls.
Ceci te permet d'ouvrir un fichier xls de ton choix et de l'enregistrer dans le même répertoire sous le même nom mais avec un format HTML.
'------------------------ Sub Ouvrir()
Dim Wk As WorkBook Dim File As Variant Dim X As XlFileFormat X = xlHtml
File = Application.GetOpenFilename("excel Files (*.xls), *.xls") If File <> "" Then Set Wk = Workbooks.Open(File) Wk.SaveAs Left(File, Len(File) - 3) & "html", X Wk.Close End If Set Wk = Nothing
End Sub '------------------------
Salutations!
"Tophe" a écrit dans le message de news: 220101c51d9b$28b90e40$ Bonjour à toutes et tous
je cherche une macro pouvant faire ceci:
Je suis dans un classeur A.xls (celui qui contiendra la macro)
J'ouvre une boite de dialogue pour selectionner un classeur B.xls (placé n'importe ou sur mon disque).
Sans ouvrir ce classeur B.xls, je l'enregistre au format html sous le meme nom et dans le meme repertoire que B.xls.
Le tout sans demande de confirmation.
Par avance un grand merci pour vos conseils.
Tophe
Tophe
Encore un grand merci. C'est tout à fait ce que je voulais. Vraiment sympa. Tophe
Encore un grand merci.
C'est tout à fait ce que je voulais.
Vraiment sympa.
Tophe
