macro coller donnée dans une feuille précise

[saverloo]

bonjour a toutes et tous,

voila une bétise, j'ai une VBA que voici ci dessous qui fonctionne tres bien, néanmoins je ne comprend pas comment je peux modifier le collage de l'importation dans une feuille précise exemple j'aimerais qu'il colle les données dans la feuille 'base' et ensuite revenir al a feuille d'origine en plus j'ai deja fait ceci dans le passé et impossible de revenir la dessus RRRRRR ?


Sub importcahh()
Dim a As Variant, Nom As String

Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select

'Windows(a(b)).Activate 'ligne à supprimer
Cells.Select
Selection.Copy
Windows(Nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

 

[Fred0o]

Re : macro coller donnée dans une feuille précise

Bonjour Saverloo,

Tu peux tester la modification que je te propose ci-dessous :

Sub importcahh()
    Dim a As Variant, Nom As String[COLOR=blue], b, sho[/COLOR]
    Nom = ActiveWorkbook.Name
    [COLOR=blue]sho = ActiveSheet.Name[/COLOR]
    ChDrive "C:" ' Choix du lecteur
    ChDir "C:\" 'Choix du répertoire
    a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", , "Sélection de vos fichiers excel", , True)
 
    Select Case TypeName(a)
        Case Is = "Boolean"
            Exit Sub
        Case Else
            For b = LBound(a) To UBound(a)
                Workbooks.Open a(b)
            Next
    End Select
 
    'Windows(a(b)).Activate 'ligne à supprimer
    Cells.Select
    Selection.Copy
    Windows(Nom).Activate
    [COLOR=blue]Sheets("base").Select[/COLOR]
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    [COLOR=blue]Sheets(sho).Select[/COLOR]
End Sub

A+

 

[saverloo]

Re : macro coller donnée dans une feuille précise

Re oui effectivement j'avais oublié un E dans les sheets a mon avis je dors encore la

merci quand meme d'avoir repondu lollll