copier-coller entre 2 fichiers excel

Le
Sunburn
Bonjour,
j'ai créer un modele avec des zones vierges. par ma macro, j'ouvre ce
modele, je l'enregistre sous un nom voulu.
Mais je n'arrive pas à ce que ce nouveau document récupre les informations
sur mon fichier excel de base.

Je veux que dans mon modèle ouvert et avant d'être enregistré (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
--
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 #18155431
j'ai géré autrement.
YANN

"Sunburn" a écrit :

Bonjour,
j'ai créer un modele avec des zones vierges. par ma macro, j'ouvre ce
modele, je l'enregistre sous un nom voulu.
Mais je n'arrive pas à ce que ce nouveau document récupre les informations
sur mon fichier excel de base.

Je veux que dans mon modèle ouvert et avant d'être enregistré (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