Recuperation donnée feuille calcul

[Aladin]

Bonjour le forum
J' ai un classseur fixe qui me sert à preparer mon travail et je recupere des données manuellement sur d' autres classseurs et à la fin du travail je supprime ces données du classeur fixe jusqu' a une prochaine fois.
Comment faire une automatisation en ayant une boite de dialogue pour allez chercher le classeur et importé les données de la feuille TMP de A35-K62 et de les mettre sous la forme collage spéciale valeur dans A35 -K62 de la feuille qui recoit.
Merci d' avance de toute aide
Aladin

 

[Aladin]

Re : Recuperation donnée feuille calcul

Bonjour le forum
En faisant quelques recherches j' ai trouvé du code que j' ai adapté en integrant du code de l' éditeur de macro, et il fonctionne le voici
Sub Recup_donnee_Auto()
Dim Fichier As Variant
Dim Wb As Workbook

Fichier = Application.GetOpenFileName("Fichiers Excel (*.xls), *.xls")
If Fichier = False Then Exit Sub

Set Wb = Workbooks.Open(Fichier)

Call Transfer_Donnees

End Sub
Sub Transfer_Donnees()
' Sheets("TMP").Select
Range("A35:H54").Select
Selection.Copy
Windows("_Transfert.xls").Activate
Sheets("TMP").Select
Range("A35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

L a macro a été faite sur une plage fixe, mais elle peut varié, peut on l' ameliore pour choisir la plage
Merci d' avance
Aladin

 

[Hulk]

Re : Recuperation donnée feuille calcul

Salut Aladin, Le Forum,

Deux macros faites avec l'enregistreur de macro avec deux petites lignes supplémentaires pour fermer le classeur copié une fois fait.

La première qui copie les colonnes A et K avec collage spécial, et la deuxième qui copie une plage de cellule voulue.

Les deux sont à placer dans un module standar.

Sub Test1()
    
    'Ouvre le classeur à copier.
    ChDir "C:\Documents and Settings\Dr Banner\Bureau" 'A modofier
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Dr Banner\Bureau\Foot.xls" 'A modifier
        
    'Sélection et copie Colonnes A et K.
    Columns("A:K").Select
    Selection.Copy
    
    'Active le classeur, sélectionne les colonnes I et J et colle les données.
    Windows("TestCopie.xls").Activate
    Columns("A:K").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        
    'Active le classeur copié et le ferme.
    Windows("Foot.xls").Activate
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Range("A1").Select

End Sub

et l'autre

Sub Test2()
    
    'Ouvre le classeur à copier.
    ChDir "C:\Documents and Settings\Dr Banner\Bureau" 'A modifier
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Dr Banner\Bureau\Foot.xls" 'A modifier
    
    'Copie et colle la mise en forme des colonnes.
    Columns("A:K").Select
    Selection.Copy
    Windows("TestCopie.xls").Activate
    Columns("A:K").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    'Sélectionne le classeur à copier et copie de A35:K62.
    Windows("Foot.xls").Activate
    Range("A35:K62").Select ' A modifier
    Selection.Copy
    
    'Sélectionne le classeur et colle dans A35:K62.
    Windows("TestCopie.xls").Activate
    Range("A35:K62").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A1").Select
    
    'Active le classeur copié et le ferme.
    Windows("Foot.xls").Activate
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Range("A1").Select
    
End Sub

J'espère que ça t'aidera.

Cdt, Hulk.

 

[Hulk]

Re : Recuperation donnée feuille calcul

Re,

Oups pas vu que tu avais trouvé une solution.

Bye, Hulk.

 

[Aladin]

Re : Recuperation donnée feuille calcul

Bonjour Hulk et le forum
Je te remercie pour ta réponse et le code qui pourra toujours servir.
j' ai un autre soucis, je voudrais faire un NBVAL par macro afin de faire une vérification exemple
feuille1 NBVAL(A35;A135), feuille2(A35;A135), feuille3(NBVAL(a35.a135) mais sur cette derniere il y a des formules jusqu' a ligne 100 donc le NBVAL devra se faire sur les donnée et non sur les formules) et affichage du résultat dans une boite de dialogue.
Merci d' avance pour toute aide
Aladin