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

Signaler
Messages postés
8
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
12 juin 2015
-
Messages postés
8
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
12 juin 2015
-
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 dessous
Columns(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").Activate
Worksheets("Accueil").Activate
Application.ScreenUpdating = True
Unload Me

End Sub



5 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
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+
Messages postés
8
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
12 juin 2015

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
Messages postés
15259
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2020
1 319
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 !!!!
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
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 .
Messages postés
8
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
12 juin 2015

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