Discussion :

[mikeGo20]

Il y a un bail que je ne suis pas venu demandé de l'aide ...

Mais là
Je galère depuis plus de 3 heures à tenter de copier une plage de cellules dans une feuille d'un autre classeur.

Je suis certain que c'est une stupidité ... mais mon neurone n'en viens pas à bout malgré mes recherches sur et


Bref voici mon code et merci de vs commentaires et de votre temps ....

PS: Si j'utilise l'option xlPasteAll seul, la copie s'effectue mais avec toute la mise en page, le remplissage et les bordures, comme une image ... ça ne répond pas au besoin du client.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Sub TestImport()
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
 
'Open instance Excell, not visible
Set xlApp = New Excel.Application
xlApp.Visible = True
 
Set xlWorkbook = xlApp.Workbooks.Open(NomClasseur)
Set xlWorksheet = xlWorkbook.Worksheets(xlWorkbook.Sheets(1).Name)
 
Sheets("Data").Activate
Sheets("Data").Range(Cells(1, 1), Cells(10, 10)).Copy
xlWorksheet.Cells(16, 1).PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
 
'Close excel with save and Clear reference
xlWorkbook.Close True
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
xlApp.Quit
Set xlApp = Nothing
Application.ScreenUpdating = True
End Sub

Rien à faire, testé même sur des classeurs neufs ,,,,

[Marc-L]

Bonjour, bonjour !

Conformément aux règles du forum, effectuer une présentation digne de ce nom !
C'est à dire claire & exhaustive quant au besoin du client, en activant un deuxième neurone …

Sinon la solution évidente est soit de consulter l'aide VBA soit d'activer le Générateur de macros
puis d'effectuer la manipulation : une base de code est livrée sur un plateau !

Autre point : Copier/Coller n'est pas coder ‼
Par exemple la ligne n°3 du code affiché est une belle cagade : pourquoi ouvrir un autre Excel alors qu'Excel est déjà ouvert ?‼

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[joe.levrai]

Bonjour,

les collages spéciaux sont parfois délicats entre deux instances Excel différentes

d'où ma question : pourquoi ouvrir un nouveau classeur dans une nouvelle instance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set xlApp = New Excel.Application
xlApp.Visible = True
 
Set xlWorkbook = xlApp.Workbooks.Open(NomClasseur)
Set xlWorksheet = xlWorkbook.Worksheets(xlWorkbook.Sheets(1).Name)

Plutôt que d'ouvrir directement le classeur dans l'instance en cours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub TestImport()
Dim xlWorkbook As Workbook
Dim xlWorksheet As Worksheet
 
Set xlWorkbook = Workbooks.Open(NomClasseur)
Set xlWorksheet = xlWorkbook.Worksheets(xlWorkbook.Sheets(1).Name)

[mikeGo20]

Ouvrir une nouvelle instance: habitude acquise en Access ....

Et merci à tous, effectivement moins compliqué de travailler dans un classeur unique.

[Philippe Tulliez]

Bonjour,
Petite parenthèse, à propos des lignes 14 et 15 de la première procédure éditée.
Pour éviter des erreurs, il vaudrait mieux préciser la filiation de la feuille [Data] et de plus, il n'y a aucune raison d'utiliser la méthode Activate.
Par contre la ligne 15 sans cette méthode provoquera inévitablement une erreur car les objets Cells ne sont pas rattachés à la dite feuille.
Correction à apporter à ces lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Data").Activate
Sheets("Data").Range(Cells(1, 1), Cells(10, 10)).Copy

par (Suppresion de la ligne avec la méthode Activate)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With ThisWorkbook.Sheets("Data")
 .Range(.Cells(1, 1), .Cells(10, 10)).Copy
 End With

Dans l'exemple, le classeur est celui où se trouve le code VBA. Il y a lieu d'adapter.

[P.Sheehy]

Bonjour MikeGo20,
je ne suis pas un grand spécialiste, mais j'utilise à l'occasion PasteSpecial et je dirais que c'est peut-être à la ligne 16 qu'est ton problème car tu inscris :
..."PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False"

alors que moi seulement :
" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, transpose:=False"

Laisse-moi savoir si cela fonctionne.

P.Sheehy