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:\COLL\ypa\Dossiers de travail\ModeleRevisHoche.xlt",
NewTemplate:=False, _
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
-----
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
Sunburn
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 -----
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
-----
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 -----
