Mikayel
XLDnaute Nouveau
Bonsoir à tous,
Je viens vers vous car mes recherches sur internet ne m'ont pas conduit à la résolution de mon problème et mes formules ne fonctionnent pas.
Je suis sur un problème un peu compliqué (à mes yeux). J'ai un fichier nommé "Transposition.xlsm" où dans la feuille "Journal titan" je cherche à récupérer les valeurs contenues dans un fichier nommé "Journal.xls" (les données se trouvent sur la feuille nommée "A"). La sélection doit se faire de B4 à Gx sur "Journal.xls", "A". X est la longueur variable des données que ces datas peuvent contenir. Le collage doit se faire en valeurs.
Autant vous dire que ce code fait planter mon ordinateur .
Peut-être suis-je sur une piste complètement fausse? Un must serait de pouvoir à la base pouvoir sélectionner le fichier via une fenêtre (mais de tout le temps récupérer dans le fichier sélectionné B4:Gx).
Je vous remercie d'avance pour votre aide et vous souhaite à tous une bonne soirée,
Michaël
Je viens vers vous car mes recherches sur internet ne m'ont pas conduit à la résolution de mon problème et mes formules ne fonctionnent pas.
Je suis sur un problème un peu compliqué (à mes yeux). J'ai un fichier nommé "Transposition.xlsm" où dans la feuille "Journal titan" je cherche à récupérer les valeurs contenues dans un fichier nommé "Journal.xls" (les données se trouvent sur la feuille nommée "A"). La sélection doit se faire de B4 à Gx sur "Journal.xls", "A". X est la longueur variable des données que ces datas peuvent contenir. Le collage doit se faire en valeurs.
Code:
' AJOUT DES DONNEES
Workbooks.Open "Journal.xls"
Windows("Journal.xls").Activate
ActiveWorkbook.Worksheets("A").Select
Nb_Lignes = Range("B4").End(xlDown).Row
Range("B4:G" & Nb_lignes).Select
Selection.Copy
Windows("Transposition.xlsm").Activate
ActiveWorkbook.Worksheets("Journal titan").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("Journal.xls").Close savechanges:=False
Autant vous dire que ce code fait planter mon ordinateur .
Peut-être suis-je sur une piste complètement fausse? Un must serait de pouvoir à la base pouvoir sélectionner le fichier via une fenêtre (mais de tout le temps récupérer dans le fichier sélectionné B4:Gx).
Je vous remercie d'avance pour votre aide et vous souhaite à tous une bonne soirée,
Michaël