Bug dans enregistre dans autre Classeur Résolu/Fermé

Question

Bonjour  à tous et toutes, 

Je bloque sur une commande d'enregistrement de données dans un autre classeur, je vous livre mon vba de petit joueur en espérant trouver une bonne ame pouvant resoudre ma prise de tête.

Cordialement votre.

Private Sub AjouterProprio_Click()Application.ScreenUpdating = False'   Worksheets("BD").Activate'   Enregistre dans un autres classeur    Workbooks.Open Filename:="C:\Users\Bibi\Dropbox\BDDHH\BddHH.xls"    Sheets("Locataire").Select    Sheets("Locataire").Activate'Va chercher la dernière ligne de la colonne H puis se place'en dessousColumns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select    ActiveCell = NomProprio        ActiveCell.Offset(0, 1).Select    ActiveCell = PrenomProprio        ActiveCell.Offset(0, 1).Select    ActiveCell = AdresseProprio        ActiveCell.Offset(0, 1).Select    ActiveCell = CPProprio        ActiveCell.Offset(0, 1).Select    ActiveCell = CmneProprio        ActiveCell.Offset(0, 1).Select    ActiveCell = Tel1Proprio        ActiveCell.Offset(0, 1).Select    ActiveCell = Tel2Proprio        ActiveCell.Offset(0, 1).Select    ActiveCell = MailProprio        ActiveCell.Offset(0, 1).Select            ActiveCell = NomProprio & " " & PrenomProprio        ActiveWorkbook.Save    ActiveWorkbook.Close        Unload Me       Worksheets("BD").ActivateWorksheets("Accueil").ActivateApplication.ScreenUpdating = TrueUnload MeEnd Sub


Configuration: Windows Vista / Internet Explorer 9.0

lermite222 · Answer

Bonjour,
Sais pas si j'ai compris, 
Les variables ne sont pas commune à des classeurs différent. 
Mais ton code n'est pas fort clair
Les variables sont dans quel classeur ? et tu écrit dans quel classeur ?
A+

dooblemixte · Answer

Bonjour lermite222

Les variables sont sur le classeur GesLocHH.xls

Le classeur que je dois ouvrir pour l'enregistrement est sur ce lien,

 "C:\Users\Bibi\Dropbox\BDDHH\BddHH.xls"  Sheets("Locataire").Select

Ce dernier s'ouvre bien, mais j'ai un message d'erreur que je ne comprends pas.

Worksheets("BD").Activate était la variable précédemment utiliser

Merci pour ton aide

f894009 · Answer

Bonjour,

En attendant lermite:

Ce dernier s'ouvre bien, mais j'ai un message d'erreur que je ne comprends pas.  Donnez le texte de ce message, cela aidera beaucoup lermite !!!!

lermite222 · Answer

Bonjour Fxx :-)

Exact, ce message est indispensable.
Mais avec les renseignements complémentaires  cela devient évident que les variables sont sur un classeur et l'emploi sur un autre. 

Essaye d'expliquer plus clairement, la macro est sur le classeur GesLocHH.xls  ? 
C'est où que tu assigne les variables NomProprio, etc
Tes variables sont déclarées ? et où ?
Un pourais déposer un exemple de ton classeur GesLocHH.xls, sans donnée confidentielles ? (sur Cjoint.com par exemple)
Tu dis.
 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

dooblemixte · Answer

Bonjour a vous deux

En fait j'ai trouver une autre solution dans des exemples glaner sur le net ce qui ma permis de faire fonctionner mon projet.

Merci à vous de votre courtoisie et votre dévouement.

Je clos le sujet

Bug dans enregistre dans autre Classeur

5 réponses

Discussions similaires