Discussion :

[Joseldsm]

Bonjour !

Je vous écris car j'aurais besoin de votre aide.
Après de multiples recherches je n'arrive pas à trouver réponse à ma question.

Je travaille sous Microsoft Visual Basic 2010 Express, je fais donc du VBA (si j'ai bien compris la différence entre VB et VBA..).
Je souhaiterais copier l'intégralité du contenu de la seule feuille d'un classeur Excel vers un autre classeur Excel, mais je n'y parviens pas... Le copier le semble bon, mais c'est le coller que je n'arrive pas à effectuer.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        Dim FichierExcel1 As Object
        Dim FichierExcel2 As Object
 
        FichierExcel1 = CreateObject("Excel.application")
        FichierExcel2 = CreateObject("Excel.application")
        FichierExcel1.Workbooks.Open("C:\Users\Utilisateur\Documents\Mes documents à moi\Pro\Développement outils\Outils\CAO génération\Données\Nomenclatures\" & NomFichier1)
        FichierExcel2.Workbooks.Open("C:\Users\Utilisateur\Documents\Mes documents à moi\Pro\Développement outils\Outils\CAO génération\Fichiers\" & NomFichier2 & ".xlsx")
        FichierExcel1.ActiveWorkbook.Worksheets.Copy()
        FichierExcel2.ActiveWorkbook.Worksheets.Paste()
 
        FichierExcel1.ActiveWorkbook.Save()
        FichierExcel2.ActiveWorkbook.Save()
 
        FichierExcel1.ActiveWorkbook.Close()
        FichierExcel2.ActiveWorkbook.Close()
        FichierExcel1.Quit()
        FichierExcel2.Quit()

L'indice 1 correspond au fichier que je copie, et l'indice 2 à celui dans lequel j'aimerais coller.

Merci bien !

J.

[weed]

Hello tt le monde !

J'ai failli soit répondre "très bonne question" ou soit activer le suivi de ce topic mais je viens de voir qu'il est passé en résolu.
Or pour moi, un forum cela permet :
- soit d'aller demander de l'aide
- soit aider si on connait bien le sujet, je l'ai déjà fait
- ou soit aller à la pèche au info pour se former, se balader de sujet en sujet sur le forum pour y glaner des info, récolter des astuces et pourquoi pas aider par la suite.

Et là, je reste sur ma faim.
Je suis débutant en VBA et il y a de grande chance que j'aimerais un jour écrire dans un fichier Excel à partir d'un autre fichier Excel à l'aide de macro.

Joseldsm, quel était l'erreur?

[kiki29]

Salut, F1 pour les erreurs basiques

P.-S. : Balise ton code

[sogedic]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
FichierExcel1.Workbooks.Open("C:\Users\Utilisateur\Documents\Mes documents à moi\Pro\Développement outils\Outils\CAO génération\Données\Nomenclatures\" & NomFichier1)
 FichierExcel2.Workbooks.Open("C:\Users\Utilisateur\Documents\Mes documents à moi\Pro\Développement outils\Outils\CAO génération\Fichiers\" & NomFichier2 & ".xlsx")
 FichierExcel1.ActiveWorkbook.Worksheets.Copy()
 FichierExcel2.ActiveWorkbook.Worksheets.Paste()

essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim wk1 as workbook, wk2 as workbook
set wk1 = Workbooks.Open("C:\Users\Utilisateur\Documents\Mes documents à moi\Pro\Développement outils\Outils\CAO génération\Données\Nomenclatures\" & NomFichier1)
set wk2=Workbooks.Open("C:\Users\Utilisateur\Documents\Mes documents à moi\Pro\Développement outils\Outils\CAO génération\Fichiers\" & NomFichier2 & ".xlsx")
wk1.sheets(1).copy destination := wk2.sheets(1)