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 ???

 

[teamtat]

Re : exportation de donnée

Merci , enfete l'enregistrer sous s'ouvre quand mon 2eme classeur s'ouvre lors de l'export des infos , je voudrais réaliser la même chose sans l'ouverture de la fenetre enregistrer sous

"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." Comment faire ceci ???

 

[teamtat]

Re : exportation de donnée

Dsl ton code simplifié de fonctionne pas car j'ai une cellule fusionné

 

[Minick]

Re : exportation de donnée

Effectivement ca change tout (satanees cellules fusionnees)

Je ne comprends pas que tu ais la fenetre d'enregistrement a l'ouverture du fichier.
Es-tu certain de cela?
Si tu lance la macro en pas a pas as-tu la fenetre a l'execution de la ligne
Set wk = Workbooks.Open(Chemin & Fichier) ??

 

[teamtat]

Re : exportation de donnée

Oui quand j'execute cette ligne, il m'ouvre mon 2eme classeur, je clique sur lecture seule et aprés j'ai la fenetre enregistrer sous, je clique sur annulé et c'est bon.

 

[Minick]

Re : exportation de donnée

Comment as tu mis en place l'option de lecture seule?

Concernant les checkbox:
adapte quelque chose de ce style :
Workbooks("Classeur2.xls").Sheets("Feuil1").OLEObjects("CheckBox1").Object.Value = Workbooks("Classeur1.xls").Sheets("Feuil1").OLEObjects("CheckBox1").Object.Value

 

[teamtat]

Re : exportation de donnée

Je crois que je vais abandoner pour la lecture seul , je cliquerai sur annuler c'est pas grave
sur le classeur 1 les checkbox sont des checkbox de la boite formulaire
et sur le classeur 2 les checkbox sont des checkbox de la boite a outils controles
es-ce possible de faire la manip quand meme ?

 

[teamtat]

Re : exportation de donnée

??? au cas ou Minick si tavé pas vu ma rep

 

[Minick]

Re : exportation de donnée

Re,

Essaie ceci (a adapter a ton cas):

workbooks("Classeur2.xls").sheets("Feuil1").OLEObjects("CheckBox1").Object.Value = IIf(workbooks("Classeur1.xls").sheets("Feuil1").Shapes("Check Box 1").OLEFormat.Object.Value = xlOn, True, False)

Pour le classeur en lecture seul:
Essais d'ouvrir le classeur comme ceci

Set wk = Workbooks.Open(Chemin & Fichier, ,  True)

Mais j'ai tjrs un doute sur ce que tu veux faire...

 

[teamtat]

Re : exportation de donnée

a tu bien recu mon mail?? fichier trop gros pour les poster sur le forum

 

[Minick]

Re : exportation de donnée

Oui, j'ai bien recu et c'est bien ce que je disais,
tu ouvrais ton classeur en lecture seule mais tu faisais des modifs dessus
pour les sauvegarder ensuite donc pas possible.

Ouvre le classeur comme ceci (normalement, pas en lecture seule) ca ira beaucoup mieux:

Set wk = Workbooks.Open(Chemin & Fichier, , , , , "xxxxx", True)

Remplace les xxxxx par ton mot de passe d'ouverture du classeur.

 

[teamtat]

Re : exportation de donnée

Es-ce possible d'ouvrir en lecture seul , de validé le formulaire et ne pas le sauvegardé ensuite ???
parce que moi je connais le mot de passe mais les futur utilisateur ne loron pas

 

[Minick]

Re : exportation de donnée

Oui c'est possible de lancer une macro sur le classeur 2:

Application.Run "'" & wk.Name & "'!NomDeLaMacro"