Sujet Précédent Sujet Suivant

Bug dans enregistre dans autre Classeur

Résolu/Fermé
dooblemixte Messages postés 8 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 12 juin 2015 - 19 oct. 2013 à 17:10
dooblemixte Messages postés 8 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 12 juin 2015 - 21 oct. 2013 à 14:31
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

Réponse 1 / 5
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
19 oct. 2013 à 18:15
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+
0
Réponse 2 / 5
dooblemixte Messages postés 8 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 12 juin 2015
20 oct. 2013 à 08:01
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
0
Réponse 3 / 5
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
20 oct. 2013 à 08:45
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 !!!!
0
Réponse 4 / 5
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 20/10/2013 à 15:43
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 .
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
dooblemixte Messages postés 8 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 12 juin 2015
21 oct. 2013 à 14:31
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
0

Discussions similaires

Problème Facebook rencontre
Margalle -
Jpf -

17 réponses
Problème musiques étranges sur story instagram
somnorun -
SN -

21 réponses
Iptv beug
leogauthier15 -
bazfile -

1 réponse
Problème avec "Facebook Rencontre"
xouxou77 -
4.Kat3ur -

7 réponses
Bug de chaîne IPTV
GeraltDeRiv13 -
bazfile -

1 réponse