copier/coller sur un autre classeur

[jeromeN95]

Bonjour,
j'essaye de transferer des données d'un classeur nomé ABC vers un autre nommé DDE

j'ai commencer un bout de code mais ca plante deja:

Sub Macro3()
Dim SearchString As String
Dim SearchChar As String
Dim MyPos As Integer
j = 2
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk2 = Workbooks.Open(Filename:="C:\Documents and Settings\jerome\Bureau\DDE.xls")
Set Wbk1 = ThisWorkbook
Wbk2.Worksheets("Page de garde").cells(2, 6) = Wbk1.Worksheets("cuisine 010410").cells(6, 6)
End Sub

 

[Dranreb]

Re : copier/coller sur un autre classeur

Bonjour.
Je ne vois rien qui puisse planter si tout existe nommé exactement comme programmé.
Sur quelle ligne et quel message d'erreur ?
À+

 

[jeromeN95]

Re : copier/coller sur un autre classeur

Bonjour, sur :
Wbk2.Worksheets("Page de garde").cells(2, 6) = Wbk1.Worksheets("cuisine 010410").cells(6, 6)

Il me met en jaune.

 

[Robert]

Re : copier/coller sur un autre classeur

Bonjour Jerome, Bernard, bonjour le forum,

Peut-être comme ça :

Sub Macro3()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
Workbooks.Add ("C:\Documents and Settings\jerome\Bureau\DDE.xls")
Set Wbk2 = ActiveWorkbook
Wbk2.Worksheets("Page de garde").Cells(2, 6) = Wbk1.Worksheets("cuisine 010410").Cells(6, 6)
End Sub

 

[jeromeN95]

Re : copier/coller sur un autre classeur

Non, il me marque la meme ligne en jaune.Il m'indique Erreur d'exécution '9':
L'indice n'appartient pas à la séléction.

 

[Robert]

Re : copier/coller sur un autre classeur

Re,

Alors c'est juste une erreur dans le nom de l'onglet. Vérifie les espaces, les numéros, etc... Pour être sûr fait un copier/coller du nom de l'onglet dans le code de la macro...

 

[Dranreb]

Re : copier/coller sur un autre classeur

Ah oui, il n'est pas dit dans l'aide que la méthode Open renvoit un objet Workbook. En revanche Add oui alors l'utiliser tant qu'à faire !
Soit :

Workbooks.Open "C:\Documents and Settings\jerome\Bureau\DDE.xls"
Set Wbk2 = ActiveWorkbook

Soit :

Set Wbk2 = Workbooks.Add ("C:\Documents and Settings\jerome\Bureau\DDE.xls")

À+

P.S. Le fil a avancé, je répondais à bien plus haut. Je n'ai rien à ajouter pour le moment.

 

[jeromeN95]

Re : copier/coller sur un autre classeur

Salut et merci
Mais j'ai toujours la meme erreur :
Sub Macro3()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Add("C:\Documents and Settings\jerome\Bureau\DDE DE MISE EN LOC Avril 2010 Diversey.xls")
Workbooks.Add ("C:\Documents and Settings\jerome\Bureau\DDE DE MISE EN LOC Avril 2010 Diversey.xls")
Set Wbk2 = ActiveWorkbook
Wbk2.Worksheets("Page de garde").cells(6, 6) = Wbk1.Worksheets("cuisine 010410").cells(2, 18)
End Sub

Le fichier déstinaire et protégé en ecriture sur certaine cellule mais pas là où je souhaite mettre les données.
La cellule cible et sur l'onglet Cuisine 010410 en cellule B18 (du fichier DDE DE MISE EN LOC Avril 2010).

La cellule où ce trouve l'information est sur l'onglet Page de Garde en cellule F6 (du fichier ABC V4.xls).

 

[jeromeN95]

Re : copier/coller sur un autre classeur

Je vous met le fichier ABC V4 ici : Free - Envoyez vos documents

Et le fichier destinataire en PJ.

Merci a vous.

 

[Dranreb]

Re : copier/coller sur un autre classeur

En dépis de toute les apparences d'exactitude pour vous, ça ne peut venir que d'une erreur dans des nom d'onglet comme le disait Robert.
Ecivez une boucle For Each F in Wbk2 et comparez y les F.Name au nom que vous pensiez devoir trouver.
Mettez un espion sur les Wbk1 et 2 je ne sais pas moi. Faute d'avoir les fichiers on ne peut pas chercher à votre place.
À+

 

[Dranreb]

Re : copier/coller sur un autre classeur

Vu. Dans le seul des 2 fichier que j'ai pu récupérer l'onglet 2 s'appelle "cuisine··010410" et non "cuisine·010410"
il y a 2 blancs au milieu.
À+

 

[jeromeN95]

Re : copier/coller sur un autre classeur

Effectivement,
je vous remercie.
Sub Macro3()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Add("C:\Documents and Settings\jerome.prevost\Bureau\DDE DE MISE EN LOC Avril 2010 Diversey.xls")
Wbk2.Worksheets("cuisine 010410").cells(18, 2) = Wbk1.Worksheets("Page de garde").cells(6, 6)
End Sub

Ca fonctionne, je vais pouvoir y ranger toutes les informations.

Merci encore beaucoup.

 

[Robert]

Re : copier/coller sur un autre classeur

Bonjour Jérome, Bernard, bonjour le forum,

Jérome c'est déjà le deuxième post où on te donne de bonnes réponses mais tu ne prends même pas le temps de vérifier ce qu'on te propose et tu nous fait perdre notre temps à nous ! Ça me gave...

 

[jeromeN95]

Re : copier/coller sur un autre classeur

Bonjour le forum,

J'ai mis ceci :

Sub Macro3()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Add("C:\Documents and Settings\jerome.prevost\Bureau\DDE DE MISE EN LOC Avril 2010 Diversey.xls")
With Wbk2.Worksheets("cuisine 010410")
.cells(6, 11) = Wbk1.Worksheets("Page de garde").cells(31, 11) 'nom RS
.cells(18, 2) = Wbk1.Worksheets("Page de garde").cells(6, 6) 'Nom établissement
.cells(20, 2) = Wbk1.Worksheets("Page de garde").cells(8, 8) 'adress
.cells(22, 2) = Wbk1.Worksheets("Page de garde").cells(8, 11) 'code Postal
.cells(22, 5) = Wbk1.Worksheets("Page de garde").cells(6, 11) 'ville
.cells(10, 12) = Wbk1.Worksheets("Page de garde").cells(16, 10) 'potentiel
End With
End Sub

Un seul problème, il n'execute que la ligne pour le nom etablissement
Le reste ne se transfert pas et je n'ai pas de message d'erreur????