Copie feuille dans un autre classeur Résolu/Fermé

Question

Bonjour, 

Je sollicite votre aide sur une macro que j'ai composé...
Elle permet de choisir un classeur ("MenuNormalPrintemps")et de choisir aussi une feuille("feuil1"). Elle copie la feuille sélectionner et la colle dans mon dossier de destination ("Menu")sur la feuille ("Menu Normal").
ps :J'utilise cette méthode car le classeur et les feuilles changent souvent de nom.
La macro s'exécute bien mais ne colle pas le texte sur la feuille("Menu Normal")
Il y a t'il une solution pour corriger le probleme?


Merci de votre aide
Je poste mes deux fichiers :https://www.cjoint.com/?BCfqfM2oiQt 


Configuration: Windows Vista / Firefox 10.0.2

f894009 · Answer

Bonjour,
Vous ouvrez quel classeur en premier???

diabolo162 · Answer

le classeur "Menu" puis la commande du bouton "copie"(pour la macro...

diabolo162 · Answer

Euhhh c'est pas le bouton "copie" mais plutot le bouton "Nouveau menu" dsl

diabolo162 · Answer

je m'aperçois que ma macro ne copie pas les liaisons....  

peut etre 2 possibilités :  

- comment utiliser la fonction "ActiveCell.FormulaR1C1 " mais je ne sais pas la mettre en place et de plus il me demande le chemin d'acces alors que mon classeur et la feuille peuvent changer de nom 
ou  
-transformer la liaison en texte....avec l'enregistreur de macro ca ne fonctionne pas
ou

f894009 · Answer

Bonjour,


Pour ne pas tout refaire votre code, je vous propose de passer par le presse-papier pour faire vos copier/coller.

Code pour Menu.xls bouton "Nouveau menu" 

Private Sub CommandButton3_Click()
  Dim Classeur
  Classeur = Application.GetOpenFilename("Classeurs Excel , *.xls")
  If Classeur = False Then Exit Sub
  Workbooks.Open Filename:=Classeur
  On Error Resume Next
  'Passe par le presse-papier pour restituer
  Windows("Menu.xls").Activate
  Sheets("Menu Normal").Select
  Range("B1").Select
  ActiveSheet.Paste

  'mise en forme largeur colonne
  Cells.Select
  Cells.EntireColumn.AutoFit
  'vider presse-papier
  Application.CutCopyMode = False
  Application.DisplayAlerts = False
End Sub


Code pour Menu Normal Printemps.xls Bouton UserForm "Valider"

Private Sub CommandButton1_Click()
Sheets(ComboBox1.Value).Select
Sheets(ComboBox1.Value).Range("A1:C100").Select
'copy selection dans presse-papier
Selection.Copy
Unload Me
End Sub

Bonne suite

diabolo162 · Answer

ok merci la macro s'execute et met une valeur text mais le soucis est que ca me decale tout d'une colonne (c et d) au lieu de (b et c).   
voici le résultat :https://www.cjoint.com/?3Cfvc5QXxKV  

J'ai aussi l'impression que qq chose tourne en boucle et ma feuille "Menu Normal printemps est figé???? tant que je ne ferme pas le 1er doc et second reste bloqué
Peut etre mieux vaut refaire tout le code?

diabolo162 · Answer

Help...

diabolo162 · Answer

bon en fait ca plante et excel se ferme...mémoire insuffisant on dirait!

cette macro a l'air interressante...est elle exploitable?
https://forums.commentcamarche.net/forum/affich-4521474-vba-excel-bug-copie-feuille#8

f894009 · Answer

Bonjour,
Le decalage, c'est pour moi: B1 au lieu de A1

Private Sub CommandButton3_Click()
Dim Classeur
Classeur = Application.GetOpenFilename("Classeurs Excel , *.xls")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
On Error Resume Next
'Passe par le presse-papier pour restituer
Windows("Menu.xls").Activate
Sheets("Menu Normal").Select
Range("A1").Select
ActiveSheet.Paste 

'mise en forme largeur colonne
Cells.Select
Cells.EntireColumn.AutoFit
'vider presse-papier
Application.CutCopyMode = False
Application.DisplayAlerts = False
End Sub 

Pour le reste, je regarde.

A plus

diabolo162 · Answer

Bonjour, 

merci pour le coup de pouce.... 

En fait c'est le classeur "MenuNormalPrintemps"qui plante tout à la fermeture.
D'ailleurs si j'ajoute la fonction "ActiveWindow.Close" la macro ne s'execute pas

f894009 · Answer

Re,


Private Sub CommandButton3_Click()
Dim Classeur
Dim Wb As Workbook

Classeur = Application.GetOpenFilename("Classeurs Excel , *.xls")
If Classeur = False Then Exit Sub
'arret raffraichisement ecran
Application.ScreenUpdating = False
'arret alertes excel
Application.DisplayAlerts = False

Set Wb = Workbooks.Open(Filename:=Classeur)
On Error Resume Next
'Passe par le presse-papier pour restituer
Windows("Menu.xls").Activate
Sheets("Menu Normal").Select
Range("A1").Select
ActiveSheet.Paste

'fermeture Classeur
Wb.Close

'mise en forme largeur colonne
Cells.Select
Cells.EntireColumn.AutoFit

'vider presse-papier
Application.CutCopyMode = False
'activation alertes EXCEL et raffraichissement  
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Cela devrait le faire

A bientot

diabolo162 · Answer

Encore mille fois merci pour ton aide...c'est bien plus pratique avec ta macro... 
 j'ai du insérer la macro sur une nouvelle feuille et pour le moment ca l'air de fonctionner... En revanche j'ai toujours le message "image trop grande, la feuille va etre tronquée" sur le classeur "Menu Normal printemps" puis apres tout excel se ferme. 

Sans vouloir abuser de ton aide j'aurais une dernière petite question... 

Est il possible de copier ce userform  avec son module qui se trouve dans "Menu Normal printemps" vers le dossier "Menu Normal" mais sachant que les autres userform je n'en veux pas? 


Private Sub CommandButton1_Click() 
'Sheets(ComboBox1.Value).Activate 
'Unload Me 


Sheets(ComboBox1.Value).Select 
Sheets(ComboBox1.Value).Range("B1:C65").Select 
'copy selection dans presse-papier 
Selection.Copy 
Unload Me 
'ActiveWindow.Close 
End Sub 

Private Sub CommandButton2_Click() 
Unload Me 
End Sub 

Private Sub UserForm_Initialize() 
Dim WK As Worksheet 
For Each WK In ThisWorkbook.Worksheets 
ComboBox1.AddItem WK.Name 
Next 

End Sub 

Sub go() 
UserForm1.Show 
End Sub

f894009 · Answer

Re, 
J'ai perdu le fil de notre affaire, rappellez moi ce que vous voulez

diabolo162 · Answer

1/Le fichier "Menu Normal printemps" plante à la fermeture après l'utilisation de la macro

2/dans le fichier "Menu Normal Printemps" je souhaiterais que Userform1 se copie dans le fichier "Menu Normal" avec son exécutable dans Thisworkbook. est ce réalisable? 


fichiers ci joint : 
https://www.cjoint.com/?3CgqofEBgcc

f894009 · Answer

Re,

1/
'ce que vous avez ajoute, qui ne peut pas marcher
Windows("Menu Normal Printemps.xls").Activate
ActiveWindow.Save
ActiveWindow.Close

'fermeture Classeur
'ce que vous avez enlevez
'Wb.Close

pourquoi avez vous fait cette modif.

2/ Un UserForm ne peut pas etre mis dans ThisWorkbook

 A+

f894009 · Answer

Re,

Sub Copie4()
Dim Classeur
Dim Wb As Workbook

Classeur = Application.GetOpenFilename("Classeurs Excel , *.xls")
If Classeur = False Then Exit Sub
'arret raffraichisement ecran
Application.ScreenUpdating = False
'arret alertes excel
Application.DisplayAlerts = False

Set Wb = Workbooks.Open(Filename:=Classeur)

On Error Resume Next
'Passe par le presse-papier pour restituer
Windows("Menu.xls").Activate
Sheets("Menu Normal").Select
Range("B1").Select
ActiveSheet.Paste

'Sauvegarde et fermeture Classeur
Wb.Save
Wb.Close

'mise en forme largeur colonne
Cells.Select
Cells.EntireColumn.AutoFit

'vider presse-papier
Application.CutCopyMode = False
'activation alertes EXCEL et raffraichissement
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Ajoute sauvegarde Menu Normal Printemps.xls

A+

f894009 · Answer

Re,

Chez moi, pas de probleme pour fermer le fichier.

Essayez ca

Sub Copie4()
Dim Classeur, Nom_Fichier
Dim Wb As Workbook

Classeur = Application.GetOpenFilename("Classeurs Excel , *.xls")
If Classeur = False Then Exit Sub
'arret raffraichisement ecran
Application.ScreenUpdating = False
'arret alertes excel
Application.DisplayAlerts = False

Set Wb = Workbooks.Open(Filename:=Classeur)
Nom_Fichier = Wb.Name
On Error Resume Next
'Passe par le presse-papier pour restituer
Windows("Menu.xls").Activate
Sheets("Menu Normal").Select
Range("B1").Select
ActiveSheet.Paste

'Save et fermeture Classeur
Workbooks(Nom_Fichier).Activate
Workbooks(Nom_Fichier).Save
Workbooks(Nom_Fichier).Close

'mise en forme largeur colonne
Cells.Select
Cells.EntireColumn.AutoFit

'vider presse-papier
Application.CutCopyMode = False
'activation alertes EXCEL et raffraichissement
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

A+

diabolo162 · Answer

Désolé de revenir à la charge mais ca fonctionne pas non plus.....  
J'ai bien l'impression qu'il ne se passe plus rien après "ActiveSheet.Paste" et mon second fichier plante toujours avec le message "cette image est trop grande et elle va etre tronquée"

f894009 · Answer

Re, 

Je n'avais pas traite l'annulation et fermeture sans choix feuille (fais plusieurs chose a la fois donc...)

Sub Copie4() 
Dim Classeur, Nom_Fichier 
Dim Wb As Workbook 

Classeur = Application.GetOpenFilename("Classeurs Excel , *.xls") 
If Classeur = False Then Exit Sub 
'arret raffraichisement ecran 
Application.ScreenUpdating = False 
'arret alertes excel 
Application.DisplayAlerts = False 

Set Wb = Workbooks.Open(Filename:=Classeur) 
Nom_Fichier = Wb.Name 
'pour annuler ou fermeture sans choix feuille 
On Error GoTo suite 
'Passe par le presse-papier pour restituer 
Windows("Menu.xls").Activate 
Sheets("Menu Normal").Select 
Range("B1").Select 
ActiveSheet.Paste 

suite: 
'Save et fermeture Classeur 
Workbooks(Nom_Fichier).Activate 
Workbooks(Nom_Fichier).Save 
Workbooks(Nom_Fichier).Close 

'mise en forme largeur colonne 
Cells.Select 
Cells.EntireColumn.AutoFit 

'vider presse-papier 
Application.CutCopyMode = False 
'activation alertes EXCEL et raffraichissement 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 
End Sub 

Nous devrions y arriver 

A+

diabolo162 · Answer

Le fichier "Menu Normal Printemps" plante toujours avec le message "cette image est trop grande et elle va etre tronquée" puis fermeture de toute application excel.
Sur le fichier ca tourne en boucle et c'est impossible de le fermer...
Je te fais confiance pour y arriver!!!

diabolo162 · Answer

Re bonjour,   

Excel 2003

j'ai testé le fichier sous un autre système d'exploitation et le meme excel 2003....effectivement la ca fonctionne hormis la fermeture de "Menu Normal printemps" et le message "image trop grande...".  
 je dois fermer manuellement le fichier mais au moins il plante pas à la fermeture. 

Excel 2010

Ras... tout fonctionne à merveille hormis le format des colonnes qui n'est pas respecté


Probleme c'est que je ne peux que travailler sous excel 2003

diabolo162 · Answer

Merci pour votre investissement....c'est vraiment sympa de votre part...

f894009 · Answer

Re,
Je viens de faire l'essai sur un PC en W7 (plus en XP) avec seulement office 2003 (jamais eu office 2007) et tout va tres bien madame la mar.......
Il faudrait mettre a dispo une recopie d'ecran avec l'erreur que vous avez.
J'aurai peut-etre une idee en voyant cette erreur.

A+

diabolo162 · Answer

Re bonjour,     

Bon j'ai enfin ciblé mon soucis...la macro réalise bien un copier/coller mais sous forme d'image!!!!!???? pourquoi ca?

De plus "Application.CutCopyMode = False" n'est pas pour effacer le presse papier me semble t-il mais pour arreter le mode cut copy?!

diabolo162 · Answer

Pour info problème résolu avec :

ActiveSheet.Paste Link:=True


Maintenant il me reste a trouver comment copier un userform avec une macro.....

Copie feuille dans un autre classeur

25 réponses

Discussions similaires