croftman
XLDnaute Nouveau
Bonsoir!
Voila, je voulais savoir comment faire pour sauvegarder une feuille excel dans un nouveau classeur, avec le format des cellulles!
J'ai testé ça, mais ça ne garde pas le format :
En plus de ça, la méthode SaveAs à échoué... sur excel 2000 et 2003.
Quelle commande serait compatible de 97-2003 ou 2000-2003?
Et pour la copie d'une feuille d'un classeur à un autre je fais :
Mais ça ne copie pas le format non plus! J'ai tenté avec xlPasteValues + xlPasteFormats mais rien non plus!
Je me demande si ce n'est pas lié a mon autre problème de format! cf Probleme format de cellule
Voila, je voulais savoir comment faire pour sauvegarder une feuille excel dans un nouveau classeur, avec le format des cellulles!
J'ai testé ça, mais ça ne garde pas le format :
Code:
Workbooks(i).SaveAs Filename:=txt_loc.Text, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False 'Sauvegarde du classeurEn plus de ça, la méthode SaveAs à échoué... sur excel 2000 et 2003.
Quelle commande serait compatible de 97-2003 ou 2000-2003?
Et pour la copie d'une feuille d'un classeur à un autre je fais :
Code:
Set xls = New Excel.Application
Set MonClasseur = xls.Workbooks.Open(Module_Choisi)
Set MafeuilleDeDonnees = MonClasseur.Worksheets(cmb_feuilles.Text)
MafeuilleDeDonnees.Range("A" & x, "K" & x).Copy
Sheets("Materiaux_Complexes").Range("A" & j, "K" & j).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone
MonClasseur.Close (False)
xls.QuitMais ça ne copie pas le format non plus! J'ai tenté avec xlPasteValues + xlPasteFormats mais rien non plus!
Je me demande si ce n'est pas lié a mon autre problème de format! cf Probleme format de cellule
Dernière édition: