exportation de donnée

[teamtat]

Bonjour,
Je voudrais savoir si ce que je veux faire est possible
dans mon classeur 1, feuille 1 j'ai un numéro de commande (qui ce trouve en C1) , en cliquant sur un bouton, je copie la valeur de la cellule C1 dans un autre classeur qui est fermé( classeur 2, feuille 1) qui lui contient aussi un numéro de commande ( en A1 par exemple) .
je sais pas si ma demande est bien clair
Merci

Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:\Documents and Settings\peyret\Bureau\camille\"
Fichier = "TX_Asc_Controle_final_LB_v68_final.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
ThisWorkbook.Worksheets("Feuil2").Range("C2").Copy
wk.Worksheets("Feuil4").Range("C4").PasteSpecial xlPasteAll, , , True
Application.CutCopyMode = True
wk.Close True

J'ai une erreur sur cette ligne

 ThisWorkbook.Worksheets("Feuil2").Range("C2").Copy

je ne voi pas pourquoi ???

 

[Minick]

Re : exportation de donnée

Salut,

Es-tu certain du nom de la feuille (Feuil2)?
A priori il n'y a pas de probleme avec ce code....

 

[teamtat]

Re : exportation de donnée

Oui elle se nomme Feuil2(saisie de données). Il faut peut-etre remplacer Feuil2 par saisie de données ??

 

[Minick]

Re : exportation de donnée

Re,

Et oui, il ne faut pas mettre le CodeName de la feuille (Feuil2) mais son Name (Saisie de données)

 

[teamtat]

Re : exportation de donnée

Sera t'il possible de faire la même chose avec une checkbox ?
Application.CutCopyMode peut ton le remplacer par autre chose car avant de copier les données dans l'autre classeur il me demande un enregistrement

 

[Minick]

Re : exportation de donnée

J'ai pas compris la question...

 

[teamtat]

Re : exportation de donnée

Dans mon 1er classeur j'ai des checkbox coché (par exemple checkbox1) et je voudrais que sa cauche automatiquement la checkbox1 de mon classeur 2 .

cutcopymode je voudrais remplacer le cut(=couper) par copier, es-ce possible ?

 

[Minick]

Re : exportation de donnée

Re,

Pas certain d'avoir compris pour CutCopyMode mais essaie ca:

Application.CutCopyMode = xlCopy

Pour le checkbox, tout depend du type de checkbox.
Si c'est un checkbox de la boite formulaire, il faudra alle lire l'etat de la cellule liee pour la copier dans le classeur 2.
Si c'est un checkbox de la boite a outils controles, il faudra aller lire sa propriete Value pour l'affecter au checkbox du classeur 2.

 

[teamtat]

Re : exportation de donnée

Cela me donne le même résultat, le problème doit venir que le classeur ou je vais copier les infos est en lecture seul

 

[Minick]

Re : exportation de donnée

Je confirme que je n'avais rien compris a la question (pour le CutCopyMode)

Effectivement, s'il est en lecture seul, tu n'auras d'autre choix que d'enregistrer le fichier sous un autre nom...

 

[teamtat]

Re : exportation de donnée

désolé j'ai du mal a m'exprimer, trés dificil de se faire comprendre par écrit

Quand je fais annuler cela me copie bien mes info dans mon autre classeur,
on pourait pas cliquer sur annulé automatiquement ?

 

[teamtat]

Re : exportation de donnée

??? au cas ou que personne aurait vu que j'ai répondu ????

 

[Minick]

Re : exportation de donnée

Re,

Essaie un
Application.DisplayAlerts = False avant la copie
et Application.DisplayAlerts = True apres
....

 

[teamtat]

Re : exportation de donnée

Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:\Documents and Settings\peyret\Mes documents\camille\"
Fichier = "TX_Asc_Controle_final_LB_v68_final.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)

ThisWorkbook.Worksheets("Saisie de données").Range("C2").Copy
wk.Worksheets("Masque saisie").Range("C4").PasteSpecial xlPasteAll, , , True

ThisWorkbook.Worksheets("Saisie de données").Range("C3").Copy
wk.Worksheets("Masque saisie").Range("G4").PasteSpecial xlPasteAll, , , True

ThisWorkbook.Worksheets("Saisie de données").Range("C1").Copy
wk.Worksheets("Masque saisie").Range("E4").PasteSpecial xlPasteAll, , , True

Application.DisplayAlerts = False

Application.CutCopyMode = True
wk.Close True

Application.DisplayAlerts = True

J'ai essayé ici mais ca ne fonctionne pas , je l'ai ai surement mal placé

 

[Minick]

Re : exportation de donnée

Si ton classeur (final) est en lecture seul ca ne fonctionnera jamais!!

Tu dis lors de la cloture du fichier de l'enregistrer, mais il est en lecture seul donc
tu auras tjrs le message d'enregistrement.

De plus tu peux simplifier ton code vu que finalement tu fais un copier/Coller
le pastespecial ne sert a rien (ni le transpose, vu que tu ne copies qu'une cellule a la fois)

Dim Chemin As String, Fichier As String
Dim wk As Workbook
'*******Variable à définir**************
Chemin = "C:\Documents and Settings\peyret\Mes documents\camille\"
Fichier = "TX_Asc_Controle_final_LB_v68_final.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)

ThisWorkbook.Worksheets("Saisie de données").Range("C2").Copy wk.Worksheets("Masque saisie").Range("C4")
ThisWorkbook.Worksheets("Saisie de données").Range("C3").Copy wk.Worksheets("Masque saisie").Range("G4")
ThisWorkbook.Worksheets("Saisie de données").Range("C1").Copy wk.Worksheets("Masque saisie").Range("E4")

wk.Close True