VBA ouvrir et copier un fichier excel [Résolu]

jeanrbs 2 Messages postés lundi 14 juin 2010Date d'inscription 15 juin 2010 Dernière intervention - 14 juin 2010 à 21:35 - Dernière réponse : jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention
- 15 juin 2010 à 13:58
Bonjour,
Je suis entrain de réaliser un travail pour mon école et je voudrais copier une fichier excel sur un autre fichier excel depuis vba. J'ai réalisé un code mais celui ci ne fonctionne pas. Il affiche erreur 1004. Est-ce que quelqu'un pourrait m'indiquer mon erreur merci?

Private Sub CommandButton1_Click()
Workbooks.Open Filename:="G:\Ordres.xlsx"
Range("A1:E40").Select
Selection.Copy
Windows("VBAmarché 2.xlsm").Activate
ActiveSheet.Paste

End Sub
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 15 juin 2010 à 08:37
3
Merci
Salut,
Peux dire sur quelle ligne exactement tu as ce problème (si excel te la donnes)?

J'ai testé cela et en EXCEL2003 ca semble fonctionner mais en 2007 je ne peux pas te l'assurer

Private Sub CommandButton1_Click()
Dim WBDest As Workbook

    Set WBDest = ActiveWorkbook
    Call Workbooks.Open("G:\Ordres.xlsx")
    Range("A1:E40").Select
    Selection.Copy
    Call WBDest.Activate
    Call WBDest.Worksheets(1).Activate
    ActiveSheet.Paste
    Set WBDest = Nothing
End Sub


@+: Ju£i€n
Pensez: Réponse acceptée

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de jrivet
jeanrbs 2 Messages postés lundi 14 juin 2010Date d'inscription 15 juin 2010 Dernière intervention - 15 juin 2010 à 13:39
0
Merci
Merci pour votre aide,
Le code bloc toujours au même endroit, c'est à dire :
Range("A1:E40").Select
Erreur d'éxecution 1004
Je ne vois pas pourquoi cela bloc...
Auriez vous une solution?

jean
Commenter la réponse de jeanrbs
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 15 juin 2010 à 13:58
0
Merci
Salut,

Essaie peu être de sélectionner la feuille avant de faire la sélection de la plage de cellule.

ActiveWorkBook.WorkSheets(1).Select (sélectionnera la première feuille du classeur théoriquement).


@+: Ju£i€n
Pensez: Réponse acceptée
Commenter la réponse de jrivet

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.