Créer un nouveau classeur à partir d'un modele

Le
Sunburn
Bonjour,
je voudrais pouvoir, par macro, créer un classeur excel, comportant 1
onglet, et qui soit un modele precis.
j'avais une macro pour Word, j'essaye de l'adapter pour Excel, mais j'ai pas
du modifier tout comme il le fallait.
Je n'arrive pas à trouver ça sur les forums.
YANN

-
ce que j'ai deja (je veux preciser le nom d'enregistrement et le dossier)
Sub MacroExcel()
Dim NomDoc As String
Set excelobj = CreateObject("Excel.Application")
'Set wordobj = GetObject(, "Word.Application")
NomDoc = InputBox("Entrez le nom du document Excel que vous allez créer")
excelobj.Workbook.Add Template:= _
"G:COLLypaDossiers de travailModeleRevisHoche.xlt",
NewTemplate:úlse, _
DocumentType:=0
'wordobj.Visible = True
wordobj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With wordobj.Selection
.MoveRight wdCell
.TypeText Text:=[DGA!B1].Value
.MoveRight wdCell, 3
.TypeText Text:=[DGA!G3].Value
.MoveRight wdCell, 2
.TypeText Text:=CStr([DGA!B2].Value)
.MoveRight wdCell, 3
.TypeText Text:=[DGA!G4].Value
.MoveRight wdCell, 2
.TypeText Text:=CStr([DGA!B3].Value)
.MoveRight wdCell, 3
.TypeText Text:=[DGA!G5].Value
End With
excelobj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
If NomDoc <> "" Then
wordobj.ActiveDocument.SaveAs ThisWorkbook.path & "" & NomDoc
wordobj.Visible = True
'wordobj.Quit
End If
Set wordobj = Nothing
End Sub
--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Sunburn
Le #18145131
Bon, j'en suis arrivé à ça :
Le seul hic que je n'arrive pas à faire, c'est au niveau des valeurs.
car en fait, je veux que dans mon modele ouvert (l'onglet de mon modele
s'appele "Feuil1", il reprenne les infos de l'onglet DGA, mais de mon
classeur d'origine.
donc en fait, il faut faire des copier-coller, mais là, j'y arrive vraiment
pas, je vois pas comment faire.
Merci de votre aide préciseuse.
YANN

-----
Sub FeuilleExcel()
Dim NomDoc As String
'Set excelobj = CreateObject("Excel.Application")
NomDoc = InputBox("Entrez le nom du document Excel que vous allez créer")
Workbooks.Open Filename:="G:Test de travailModeleR.xlt"
With Sheets("Feuil1")
.[A1].Value = [DGA!A1].Value
'.[A2].Value = [DGA!A2].Value
'.[A3].Value = [DGA!A3].Value
'.[B1].Value = [DGA!B1].Value
'.[B2].Value = [DGA!B2].Value
'.[B3].Value = [DGA!B3].Value
'.[H1].Value = [DGA!F1].Value
'.[H2].Value = [DGA!F2].Value
'.[H3].Value = [DGA!F3].Value
'.[H4].Value = [DGA!F4].Value
'.[H5].Value = [DGA!F5].Value
'.[I1].Value = [DGA!G1].Value
'.[I2].Value = [DGA!G2].Value
'.[I3].Value = [DGA!G3].Value
'.[I4].Value = [DGA!G4].Value
'.[I5].Value = [DGA!G5].Value
End With
If NomDoc <> "" Then
ActiveWorkbook.SaveAs ThisWorkbook.path & "" & NomDoc
End If
End Sub
-----
Publicité
Poster une réponse
Anonyme