XL 2010 Macro pour copier/coller

[netparty]

Bonjour à tous et bon dimanche

Je suis a la recherche d'une macro qui me permet de copier les cellules d'un fichier dont le nom peut-être différent (donc j'aurais la possibilité de choisir le fichier), dans le fichier sélectionné la feuille se nome "base1" et la plage de cellule a copier "B2 à C150" mais si moins de valeur selectionner jusque la dernier ligne remplie et ensuite elle devront être collée dans mon classeur actif dans la plage C5.
Mais doivent être collée sous la forme "coller valeur"

Je vous remercie d'avance.

Bonne journée

 

[Staple1600]

Bonjour le fil,

netparty
Tu as fait des recherches dans les archives du forum ?
(comme le conseille judicieusement la charte du forum)
Cette question a été traitée un grand nombre de fois, tu devrais donc trouver de nombreux exemples
(qu'il suffira d'adapter à ta problématique spécifique)

 

[Staple1600]

Re

Donc en suivant le conseil que message#2
Je tombe ici (par hasard )

effacer contenue d'une feuille vba

Bonjour les Exceliens, Une petite demande, comment effacer le contenue de certaine cellules d'un classeur a partir d'un autre en VBA Classeur 1 (le VBA) sur un click efface le contenue du classeur 2 onglet toto . par avance, merci

www.excel-downloads.com

Et je recycle

Sub Ouvre_Et_Efface()
Dim vValeurs, DerL&
Dim fileExplorer As FileDialog, fichier, f As Worksheet, wbkS As Workbook
Set f = ActiveSheet
DerL = f.Cells(Rows.Count, 3).End(3).Row
vValeurs = f.Range(f.Cells(2, 2), f.Cells(DerL, 3)).Value
On Error GoTo err
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
fileExplorer.AllowMultiSelect = False
With fileExplorer
    If .Show = -1 Then
        fichier = .SelectedItems.Item(1)
        Set wbkS = Workbooks.Open(fichier)
    Else
        MsgBox "Annulation ouverture fichier", vbCritical, "Avertissement"
        fichier = vbNullString
    End If
End With
wbkS.Sheets("base1").Cells(1).Resize(UBound(vValeurs, 1), UBound(vValeurs, 2)) = vValeurs
wbkS.Close True
err:
Exit Sub
End Sub

NB: Test OK sur mon PC.
PS: Je te laisse changer le nom de la macro

 

[netparty]

Merci

 

[Staple1600]

Re

netparty
J'en déduis que mon adaptation fonctionne sur ton PC?

 

[netparty]

Re

netparty
J'en déduis que mon adaptation fonctionne sur ton PC?

Il me demande bien d'ouvrir le fichier voulu mais ne recolle pas les données dans ma nouvelle feuille.

Je vais un peu chercher.

Merci

 

[Staple1600]

Re

Si, si les données sont collées dans la feuille nommée base1 du fichier que tu auras sélectionné puisque tu disais toi-même.

dans le fichier sélectionné la feuille se nome "base1"