Bug dans enregistre dans autre Classeur
Résolu
dooblemixte
Messages postés
8
Statut
Membre
-
dooblemixte Messages postés 8 Statut Membre -
dooblemixte Messages postés 8 Statut Membre -
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.
--
dooblemixte
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
--
dooblemixte
5 réponses
-
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+
-
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 -
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 !!!! -
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 . -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
