ouvrir un fichier excel depuis un autre fichier avec VBA

bbb38

XLDnaute Accro

• 27 Avril 2012

• #2

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

Bonsoir raveno39, le forum,
Difficile de te répondre sans un exemple simplifié (avis personnel). En effet, tu indiques 2 fichiers, et ton code mentionne une feuille « Donnée ». Ton code n’est pas complet (IF sans End If). Tu testes uniquement le nom du contrat, mais pas les autres champs.
Cordialement,
Bernard

 

Vote positif 0 Vote négatif

R

raveno39

XLDnaute Nouveau

• 27 Avril 2012

• #3

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

je pense que je me suis mal expliqué dans mon titre
dans mon fichier moteur recherche deux feuille
1 feuille de donnée (qui est une base de donnée)
1 feuille resultat avec un bouton ouvrant formulaire de recherche et qui affiche les lignes correspondante de la feuille donnée
et un bouton ouvrant un formulaire pour ajouter un contact dans la base de donnée

ensuite j'ai un autre fichier un agenda excel que j'ai fait moi même
là une seule feuille ou j'ai fait un coller du bouton ajout contact
ma question est:
a partir de ce deuxieme bouton(ajout contact) je veux pouvoir enregistrer mon contact dans le premier fichier

voilà le code en entier du bouton ajout contact que j'ai copier et coller
Private Sub CmdAjouter_Click()
Dim numLigneVide As Integer
'On active la feuille liste
Worksheets("Donnée").Activate
'On trouve la dernier ligne vide du tableau et on enregistre le numero de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoire sont correctement remplis
If TxtNom.Text = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquants"
TxtNom.SetFocus

ElseIf TxtSpecialite.Text = "" Then
MsgBox "Veuillez remplir la Specialite de votre contact", vbCritical, "Champs manquants"
TxtSpecialite.SetFocus
Else
'On remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 2) = UCase(TxtNom.Text)
ActiveSheet.Cells(numLigneVide, 3) = TxtPrenom.Text
ActiveSheet.Cells(numLigneVide, 4) = TxtAdresse.Text
ActiveSheet.Cells(numLigneVide, 5) = TxtCp.Text
ActiveSheet.Cells(numLigneVide, 6) = UCase(TxtVille.Text)
ActiveSheet.Cells(numLigneVide, 8) = TxtTel.Text
ActiveSheet.Cells(numLigneVide, 9) = TxtTel2.Text
ActiveSheet.Cells(numLigneVide, 10) = TxtTel3.Text
ActiveSheet.Cells(numLigneVide, 1) = TxtSpecialite.Text
ActiveSheet.Cells(numLigneVide, 11) = TxtFax.Text
'On efface le formulaire et on replace le curseur sur le premier champ ( Nom)
TxtNom.Text = ""
TxtPrenom.Text = ""
TxtAdresse.Text = ""
TxtCp.Text = ""
TxtVille.Text = ""
TxtTel.Text = ""
TxtTel2.Text = ""
TxtTel3.Text = ""
TxtSpecialite.Text = ""
TxtFax.Text = ""
TxtNom.SetFocus

End If

End Sub

et voila le message que j'ai

erreurd'exécution 9
l'indice n'appartient pas à la selection

j'espere m'etre mieux expliquer🙁

 

Vote positif 0 Vote négatif

R

raveno39

XLDnaute Nouveau

• 28 Avril 2012

• #4

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

voila en complement les 2 fichier concerné

<a href="http://www.casimages.com/f.php?f=120428114858933437.xls" target="_blank">Lien vers mon fichier</a>
<a href="http://www.casimages.com/f.php?f=120428115120769461.xls" target="_blank">Lien vers mon fichier</a>

merci pour votre aide 🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Avril 2012

• #5

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

bonjour Raveno39 le forum
bon alors tes liens tu devrais les essayer !!! ils ne marchent pas, de plus pourquoi ne pas joindre les fichiers directement sur le forum?
oui j'avais oublié pourquoi faire simple quand on peut faire compliqué.
a+
Papou😱

 

Vote positif 0 Vote négatif

R

raveno39

XLDnaute Nouveau

• 28 Avril 2012

• #6

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

oups!!
excusez-moi, mais comment faire pour joindre les fichiers

 

Dernière édition: 28 Avril 2012

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Avril 2012

• #7

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

Re Raveno39 le forum
as-tu essayé le deuxième lien !!! ?? archive non reconnue, bref pour ma part je passe a autre chose!!!
a+
Papou😱

 

Vote positif 0 Vote négatif

bbb38

XLDnaute Accro

• 28 Avril 2012

• #8

Re : ouvrir un fichier excel depuis un autre fichier avec VBA

Bonjour raveno39, le forum,
Pour joindre un fichier, tu cliques sur « Aller en mode avancé » au pied d’un message, puis sur « Gérer les pièces jointes », et « Choisissez un fichier ».
Après sélection du fichier, cliques sur « Ouvrir », puis « Envoyer » .
Pour le deuxième fichier, reprendre à partir de « Choisissez un fichier », et enfin « Fermer cette fenêtre ».
Les noms des fichiers doivent apparaître en « Pièces jointes ».
Cordialement,
Bernard

 

Vote positif 0 Vote négatif