Discussion :

[Jafar123]

Bonjour,

Je cherche à coder en VBA une macro qui me permet de recopier les données d'un fichier vers un autre.
Il ne s'agit pas de tableau mais seulement de données.

J'ai trouvé beaucoup d'informations à ce sujet et ai essayé mais VBA me renvoie sans cesses des messages d'erreurs et à chaque fois différents...

je vous détaille un peu plus l'affaire: Je veux copier les données des cases en jaune du tableau du fichier "Menu.xlsm" vers les tableau du fichier "Reccap Menu.xlsm". Seulement le fichier Menu.xlsm n'est pas réellement un tableau et il existe des cases fusionnées...

Je joins les fichiers et ci dessous recopie le code que j'ai tenté.

'Menu.xlsmReccap menu.xlsmMenu.xlsmReccap menu.xlsm

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Public Menu
Public BASE_menu
Public derniere_ligne_tableau
 
Sub Macro_Copie_Donnees()
 
Menu = ActiveWorkbook.Name
 
'Ouverture du formulaire BASE_Menu
BASE_menu = MsgBox(prompt:="Veuillez ouvrir le fichier excel Reccap menu" _
            , Title:="Ouverture fichier GRF-0041", Buttons:=vbInformation)
Chemin_BASE_Menu = Application.GetOpenFilename("Tous (*.*), *.*,Tous (*.*), *.*") 'Ouverture du fichier sélectionné (GRF)
Workbooks.OpenText Filename:= _
        Chemin_BASE_Menu, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False
BASE_menu = Dir(Chemin_BASE_Menu)
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
'-----
 
Windows(BASE_menu).Activate
 
Sheets("Feuil1").Select 'Selection de l'onglet contenant le tableau du BASE_Menu
 
num_ligne = Application.InputBox("A partir de quelle ligne souhaitez-vous coller les informations ? ", "Numéro de ligne")
Application.ScreenUpdating = False
Application.EnableEvents = False
Windows(BASE_menu).Activate
Application.EnableEvents = True
Sheets("Menu Repas").Select
 
Application.ScreenUpdating = False
 
Range("A3").Select
Selection.Copy
Windows(BASE_menu).Activate
Application.EnableEvents = True
Sheets("Feuil1").Select
Cells(1, 1).Select
Selection.Paste
 
End Sub

I need help please :calim2:
Merci pour votre aide

[Wololol]

Bonjour,

Comme ta selection contient des cellules fusionnées, un simple Paste ne fonctionnera pas.

Il faut que tu utilises PasteSpecial (et encore je ne suis pas sur que ça fonctionnera tout le temps), et si possible, retirer complétement les fusions.

De plus, tu peux largement améliorer ton code en retirant tous tes Select

Exemple :

Code :

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

1
2
3
Sheets("Feuil1").Select
Cells(1, 1).Select
Selection.Paste

Devient :

Code :

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

Sheets("Feuil1").Cells(1,1).PasteSpecial

En espérant t'avoir aidé

Bonne journée

[Jafar123]

Salut,

Merci pour ta réponse.

J'ai en effet lu que beaucoup préconise l'absence de 'Select'
J'ai modifié mon code en conséquence.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Menu
Public BASE_menu
Public derniere_ligne_tableau
*
Sub Macro_Copie_Donnees()
*
Menu = ActiveWorkbook.Name
*
'Ouverture du formulaire BASE_Menu
BASE_menu = MsgBox(prompt:="Veuillez ouvrir le fichier excel Reccap menu" _
            , Title:="Ouverture fichier GRF-0041", Buttons:=vbInformation)
Chemin_BASE_Menu = Application.GetOpenFilename("Tous (*.*), *.*,Tous (*.*), *.*") 'Ouverture du fichier sélectionné (GRF)
Workbooks.OpenText Filename:= _
        Chemin_BASE_Menu, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False
BASE_menu = Dir(Chemin_BASE_Menu)
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
'-----
*
Windows(BASE_menu).Activate
*
Sheets("Feuil1").Select 'Selection de l'onglet contenant le tableau du BASE_Menu
*
Application.ScreenUpdating = False
Application.EnableEvents = False
Windows(BASE_menu).Activate
Application.EnableEvents = True
Sheets("Menu Repas").Select
*
Application.ScreenUpdating = False
*
Range("A3").Copy
Windows(BASE_menu).Activate
Application.EnableEvents = True
Sheets("Feuil1").Cells(1,1).PasteSpecial
*
End Sub

Néanmoins, concernant le coeur de mon problème, je ne peux pas 'défusionner' les cellules avant de les copier car c'est ainsi que sont les fichiers source, et c'est là que réside justement mon problème

J'ai tenté plusieurs types de PasteSpécial mais sans succès...


Si d'autres personnes ont une idée pour copier des cellules fusionnées sans que l'utilisateur ait à tout défusionner ce serait top
Thx

Bonne journée