transfert de données excel vers une autre page excel

[invite595b98a5]

Bonjour,

J'ai lu le forum concernant les MACROS mais je n'arrive pas à comprendre encore bien les choses...

Je dois reprendre des donner d'un fichier excel Nom du fichier Lili et à l'intérieur je dois prendre certaine cellules mais pas toutes et je souhaite le faire automatique vers un autre fichier excel Lala mais les cellules prise de Lili ne seront pas à la même place.

Afin d'avoir quelques données et non une liste qui prend tous le côté Nord ^^

Avez-vous une solution ? cela fait déjà 2 jours que je me casse la tête dessus .... je commence un peut a perdre espoir...

Ce que j'ai compris déjà c'est que mes fichiers doivent être dans le même format d'excel 97-2003 sinon cela ne fonctionne pas et moi j'ai un excel de 2010 mais je peux les enregistrer en 97-2003.

Merci de votre aide !!!
-----

[inviteab50c200]

Bonjour,

Expliquez nous la façon dont vous avez procédé, et si vous avez fait une macro montrez nous le code utilisé

[invite595b98a5]

Bonjour,

Voici la macro que j'ai utilisé

Dim xlapp As New Excel.Application ' déclarer Public si dans un module
Dim xlbook As New Excel.Workbook
Dim xlsheet As New Excel.Worksheet

Sub CopierDonnees()

Dim Repertoire

    'definiton du fichier d'origine
    'Repertoire = Sheets(donnees).Cells(2, 2).Value &
    Repertoire = "Documents\Maintenance\Analyse des couts de maintenance 0615.xls"
    Set xlbook = xlapp.Workbooks.Open(Repertoire)
    

Set xlsheet = xlbook.Sheets("0615_nord")
      
With Sheets("analyse des coûts maintenance")

    .Cells(7, 3).Value = xlsheet.Cells(2053, 13).Value
    
    
End With

   ' Sauve le fichier
    xlbook.Save
    xlbook.Close Repertoire
    xlapp.Quit
         
        '   .

End Sub

[invite948b37db]

Bonjour,
Voici la macro que j'ai utilisé

bonjour
Il faudrait nous dire sur quel(s) critère(s) la macro va sélectionner les données à copier
Ensuite, XL2010 lit tout les formats antérieurs à 2010.

[A voir en vidéo sur Futura]

[inviteab50c200]

De plus la commande Set xlbook = xlapp.Workbooks.Open(Repertoir e) ne fonctionne pas quand je test mais il y a beaucoup plus simple pour ouvrir un document, il faut simplement utiliser la commande Workbooks.Open (Repertoire) ce qui t'évite d'avoir à déclarer un objet Xlapp

[invite595b98a5]

C'est quoi un objet Xlapp ?
Les critères de la macro, enfin il va juste prendre des résultats d'une page excel pour une autre page.

[invite948b37db]

C'est quoi un objet Xlapp ?.

Google est ton ami : "VBA XLAPP" !

Les critères de la macro, enfin il va juste prendre des résultats d'une page excel pour une autre page.

Dans la question initiale, il n'était pas précisé si la macro devait sélectionner les données en fonction de critères de recherche ou si elle devait se positionner à un endroit précis.

[invite595b98a5]

Si je viens posé des questions ici ce n'est pas pour avoir des explication plus complexe que sur internet ça je sais le faire moi même, je viens ici pour des explications simples et claires !

Elles ont des positionnements précises rien en change sauf le noms de l'autre fichier qui peut éventuellement changer.

[inviteab50c200]

Pour tenter de faire avancer les choses, cette commande .Cells(7, 3).Value = xlsheet.Cells(2053, 13).Value me semble mystérieuse, j'en comprends le principe mais pas l'interet dans ce cas. Autant se simplifier la vie en faisant un copié/collé. Ca donnerait un truc du genre :


'Sélection de la cellule à copier
Range("A2").Select

'Mise dans le press papier de la valeur de la cellule
Selection.Copy

'sélection de l'onglet ou l'on veut coller la valeur (A adapter pour utiliser un autre document)
Sheets("analyse des coûts maintenance").Select

'Sélection de la cellule ou coller la valeur
Range("A2").Select

'Collage de la valeur
ActiveSheet.Paste

[invite595b98a5]

D'accord, merci pour ton aide !

[invited8344905]

Bonjour,

    Repertoire = "Documents\Maintenance\Analyse des couts de maintenance 0615.xls"

Petit doute sur le chemin d'accès à ton Répertoire: il devrait commencer par un truc du genre "C:\" nan?

[invite595b98a5]

Bonjour,

Oui oui ça commence bien par C:/ c'est juste que je ne l'ai pas mis sur le forum ^^

[inviteab50c200]

Tiens nous informé sur l'évolution de ta programmation. Si on peu encore aider, n'hésite pas

[invite595b98a5]

Je ne comprend pas pas je n'avais aucun souci avec ma MACRO, maintenant elle me dit qu'elle ne fonctionne pas, je vous la met en entière c'elle qui ne fonctionne pas est souligner normalement:

Private Sub Workbook_Open()
Dim Fiche
Dim Repertoire

'choisir le fichier source
Usf1.Show


Fiche = Usf1.TextBox1.Value & ".xls"

'ouvrir le fichier caché
Repertoire = "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance/" & Fiche
Set xlbook = xlapp.Workbooks.Open(Repertoir e)


Set xlsheet = xlbook.Sheets("0815_Nord")

With Sheets("analyse")

.Cells(7, 3).Value = xlsheet.Cells(2191, 13).Value
.Cells(7, 4).Value = xlsheet.Cells(2200, 13).Value
.Cells(7, 5).Value = xlsheet.Cells(2200, 14).Value
.Cells(7, 6).Value = xlsheet.Cells(2200, 17).Value
.Cells(7, 7).Value = xlsheet.Cells(2202, 13).Value
.Cells(7, 8).Value = xlsheet.Cells(2202, 14).Value
.Cells(7, 9).Value = xlsheet.Cells(2202, 17).Value
.Cells(7, 10).Value = xlsheet.Cells(2212, 13).Value

.Cells(28, 3).Value = xlsheet.Cells(2720, 13).Value
.Cells(28, 4).Value = xlsheet.Cells(2729, 13).Value
.Cells(28, 5).Value = xlsheet.Cells(2729, 14).Value
.Cells(28, 6).Value = xlsheet.Cells(2729, 17).Value
.Cells(28, 7).Value = xlsheet.Cells(2731, 13).Value
.Cells(28, 8).Value = xlsheet.Cells(2731, 14).Value
.Cells(28, 9).Value = xlsheet.Cells(2731, 17).Value
.Cells(28, 10).Value = xlsheet.Cells(2741, 13).Value
.Cells(28, 11).Value = xlsheet.Cells(2741, 14).Value

End With

' Sauve le fichier
xlbook.Save
xlbook.Close Repertoire
xlapp.Quit

End Sub

[invited8344905]

Bonjour,

L'onglet qui fait référence n'a pas changé de nom? C'est toujours: 0815 Nord?

[invite595b98a5]

Si elle change chaque moi par exemple le mois dernier c'était ("07_Nord")

[invited8344905]

Re,

Alors c'est normal... Le programme ne trouve pas l'onglet correspondant. Dans ton code, sur la ligne soulignée, change le nom de l'onglet par le nouveau nom et ça devrait fonctionner.

[invite595b98a5]

Comment ça ?

Je retire le nom 0815_Nord ?car j'aimerai que tous les mois je puisse transféré sans problème chaque donné sans changer les nom car il faut que je puisse allé vers les nouveaux comme revenir sur les anciens

[invited8344905]

Re,

Soit ton onglet 0815_Nord existe toujours et ton programme marchera mais uniquement sur cet onglet.

Soit tu as changé le nom de ton onglet et donc le programme ne marchera pas car il va bêtement chercher l'onglet 0815_Nord (qui n'existe plus).

Soit tu as gardé l'onglet 0815_Nord et tu as un autre onglet et tu veux que ton programme marche sur ton nouvel onglet alors il faut adapter ton code en changeant le:

Set xlsheet = xlbook.Sheets("0815_Nord")

Par:

Set xlsheet = xlbook.Sheets("NOM DE TON NOUVEL ONGLET")

Si doit changer le nom chaque mois alors tu devrais améliorer ton code pour qu'il le prenne automatiquement sans que tu es à changer ton programme. Par exemple, si tu ajoutes un onglet tous les mois à la fin de ton classeur, il est facile de faire prendre le dernier onglet de ton classeur au programme sans passer par le nom de l'onglet.

[invite595b98a5]

La actuellement c'est cet onglet que je souhaite ouvrir mais qui ne fonctionne pas :/

Sinon je vois un peut ce que tu souhaites expliqué mais est ce que sa ne serais pas une "variable" a faire pour mes onglets ?

[invited8344905]

Si ton nouvel onglet est (toujours) placé à la fin, tu peux utiliser la fonction Sheets.Count

[invite595b98a5]

A la place de quoi ?

[invite595b98a5]

Maintenant quand je rentre le nom du fichier que je souhaite il me note : ("K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance\Analyse des couts de maintenance 0715 et 0815.xls" est introuvable. vérifier l'orthographe ou essayez un autre chemin d'accès.)

Après il me note Microsoft Excel attend la fin de l'exécution d'une action OLE d'une autre application.

Alors je ne sais pas ce qu'il y a de faux car j'ai repris ce qu'il y avait de noter directement dans ma page en copier coller pour ne pas me tromper dans l'écriture.

[invited8344905]

Bonjour,

Es tu sûr de l'orthographe? Si oui alors check l'extension de ton fichier. Si le classeur contient une macro alors c'est .xlsm et non .xls

Le fichier est-il bien présent dans le dossier?

[invite595b98a5]

Bonjour,

Oui je suis sur de l'orthographe.

Je fais attention à bien tous reprendre comme il faut.

[invite948b37db]

Maintenant quand je rentre le nom du fichier que je souhaite il me note : ("K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance\Analyse des couts de maintenance 0715 et 0815.xls" est introuvable. vérifier l'orthographe ou essayez un autre chemin d'accès.)

Bonjour
Tu as des accents dans les noms de dossiers. C'est autorisé sous Windows (mais déconseillé) et je ne suis pas certains que VBA les interprète correctement.
Avant l'ouverture de fichier, mets une instruction :

chdir("K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées\Analyse des couts de maintenance")

et fais une exécution pas à pas. Tu verras si c'est ça qui plante.

[invite595b98a5]

Maintenant j'ai mis ceci en tête :

'choisir le fichier source
Usf1.Show


Fiche = Usf1.TextBox1.Value & ".xls"

'ouvrir le fichier caché
Repertoire = "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche
Set xlbook = xlapp.Workbooks.Open(Repertoir e)


Set xlsheet = xlbook.Sheets("0815_Nord")


Quand je valide ça me met Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet.

[invite595b98a5]

Avec le :
Repertoire = chdir "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche

Quand je fais pas à pas ça me note Erreur de syntaxe

[invite948b37db]

Avec le :
Repertoire = chdir "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche
Quand je fais pas à pas ça me note Erreur de syntaxe

chdir veut dire "change directory"
Il ne faut pas mettre le nom du fichier puisque ce n'est pas un dossier ;
Il ne faut pas non plus mettre l'instruction dans une variable, ça n'a pas de sens.
Ensuite, c'est quoi le slash après "cumulées", une erreur de frappe dans le message ?

[invite595b98a5]

Le slash on m'a dit de le mettre pour fermer le répertoire pour bien le définir.

Repertoire = "K:\LB Nord\Agence LBPL\Service maintenance\historique Dépenses cumulées/" & Fiche
Set xlbook = xlapp.worbooks.Open(Repertoire )

La phrase en rouge c'est c'elle ci qui ne fonctionne pas et je ne sais pas pourquoi.
Je n'ai pas mis le nom du fichier je me suis arrêté au document et après j'ai le nom du fichier que je met dans ma case "d’accueil" pour rechercher le fichier en question et après il faut que je trouve la bonne feuille car il y en a plusieurs mais chaque mois le nom change par rapport au nom du mois par exemple :

Set xlsheet = xlbook.Sheets("0815_Nord")
Le 0815 change ce mois si ce sera 0915 et le mois prochain 0915 etc