Discussion :

[Ankou56]

Bonjour à toutes et tous,

Erreur 1004 : pour coller toutes les cellules d'une feuille Excel dans une feuille de calcul active, vous devez coller dans la première cellule active (A1 ou L1C1).

Bin moi, ma première cellule de copie, l'jla veux en K2 !

Voici mon code :

sub machin()
Application.ScreenUpdating = False
Set Destination = ActiveWorkbook
Dim Msg, Style, Title, Help, Ctxt, Response, MyString, Msg1, Style1, Title1, Help1, Ctxt1, Response1, MyString1
Msg = "Ouvrir le fichier demandé ? "
Style = vbYesNo + vbDefaultButton1
Title = "Mon titre"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
MyString = "Yes"
Source = Application.Dialogs(xlDialogOpen).Show
If Source = False Then
MsgBox ("Aucun fichier sélectionné !")
Exit Sub
Else
Set Source = ActiveWorkbook
Source.Activate
Sheets(1).Select
Cells.Select
Selection.Copy
Destination.Activate
Sheets("Pour le coller").Select
Range("K2").Select

Selection.PasteSpecial Paste:=xlPasteValues

Source.Activate
Application.CutCopyMode = False
ActiveWindow.Close SaveChanges:=False
End If
Else
MyString = "No"
Exit Sub
End If
MsgBox "Mon texte !", vbInformation + vbOKOnly, "Mon titre"
End sub

Problème sur le : Selection.PasteSpecial Paste:=xlPasteValues

Merci de vos bons soins !

[Djohn92]

A tout hasard, tu as essayé d'activer le feuille de ton classeur desnation juste avant le collage ?

[Ankou56]

A tout hasard, tu as essayé d'activer le feuille de ton classeur desnation juste avant le collage ?

Merci pour ta réponse, mais j'active DEJA mon classeur, puis sélectionne ma feuille de destination et enfin ma cellule :

Code :

Destination.Activate
Sheets("Pour le coller").Select
Range("K2").Select

[Ankou56]

Pour info, il suffit de remplacer :
Cells.Select
par
Range("cellule début:cellule fin").Select