import

M

mephis

XLDnaute Occasionnel

• 14 Juillet 2012

• #2

Re : import

personne ne peut m'aider?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 14 Juillet 2012

• #3

Re : import

Bonjour Menphis 🙂,

mephis à dit:

personne ne peut m'aider?

Cliquez pour agrandir...

Entre le fait que :
Ta macro fait référence à un fichier que tu n'as pas fourni : nomenclature-excel.xls...
Ton fichier est bourré de macro et d'USF et il faut déjà trouver la macro concernée...
Qu'il ne t'es pas venu à l'idée de fournir le mode d'emploi...
Que tu dis qu'elle fonctionne à moitié, or il y a à priori une grosse erreur, donc je doute :

Code:

RefersTo:="='" & Chemin & "[" & Fichier & "]textbox1'!$A$1:$H$550"

ce serait plutôt

Code:

RefersTo:="='" & Chemin & "[" & Fichier & "]" & textbox1 & "'!$A$1:$H$550"

sans compter qu'utiliser une variable d'USF dans une macro de module, je doute aussi...
Bref, mets nous uniquement les 2 fichiers concernés, avec juste ce qu'il faut pour reproduire l'erreur, si erreur il y a 🙄...
Bon WE 😎

 

Dernière édition: 14 Juillet 2012

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 14 Juillet 2012

• #4

Re : import

Bonjour JNP , dans mon premier message j'ai exposé mon problème avec le code qui dysfonctionnait dans mon premier message.


J'ai essayé ce que tu m'as dis mais il n'y as rien qui change.
J'ai aussi essayé de mettre le code directement dans le userform mais ça ne marche pas non plus.

J'ai donc refais un fichier avec que le bout de code concerné et avec les fichier à importer.

 

Pièces jointes

• DX-1034-B_20120524_171157.xls

  25 KB · Affichages: 73
• Classeur1.xls

  20.5 KB · Affichages: 49
• DX-1034-B_20120524_171157.xls

  25 KB · Affichages: 65
• Classeur1.xls

  20.5 KB · Affichages: 52
• DX-1044-B_20120116_153949.xls

  26 KB · Affichages: 97
• DX-1034-B_20120524_171157.xls

  25 KB · Affichages: 52
• DX-1171-S00_20120713_145302.xls

  22.5 KB · Affichages: 77
• Classeur1.xls

  20.5 KB · Affichages: 44

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 15 Juillet 2012

• #5

Re : import

il y a une chose que je ne comprend pas non plus c'est l'utilité du "& textbox &"

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 15 Juillet 2012

• #6

Re : import

Re 🙂,
Qu'essayes-tu de faire avec

Code:

"='" & Chemin & "[" & Fichier & "]" & TextBox1 & "'!$A$1:$H$550

Dans ton dernier code, ça vaut

Code:

='C:[.xls]'0'!$A$1:$H$550

😕...
Dans la logique (enfin, ce que j'avais compris en voyant ton code) tu avais le chemin, le fichier et le nom de la feuille 🙄...
Je doute que ta feuille s'appelle TextBox1, d'où ma proposition pour que ce soit la valeur de TextBox1 qui soit utilisée, mais j'ai l'impression que tu utilises du code sans le comprendre 😱...
A te lire 😎

 

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 15 Juillet 2012

• #7

Re : import

😱

Je comprends oui et non 🙂

J'avais poster un poste sur plusieurs forum dont celui et à chaque fois personne n'a jamais su me répondre, donc après trois jours de recherche sur internet j'ai trouvé ceci, au début je croyais que ça fonctionnait bien mais non.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 15 Juillet 2012

• #8

Re : import

Re 🙂,
Comme je disais, tu as trouvé un code que tu ne t'es pas approprié... 🙄
Le mieux serait de savoir ce que tu veux faire exactement 😛...
Bonne soirée 😎

 

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 16 Juillet 2012

• #9

Re : import

J'aimerais du classeur excel principal importer toutes les données d'un autre classeur excel fermé.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 16 Juillet 2012

• #10

Re : import

Re 🙂,
A priori, il y avait un soucis dans ton fichier, celui-ci fonctionne 🙄
Bonne journée 😎

 

Pièces jointes

• Classeur1.xls

  30.5 KB · Affichages: 48
• Classeur1.xls

  30.5 KB · Affichages: 46
• Classeur1.xls

  30.5 KB · Affichages: 55

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 16 Juillet 2012

• #11

Re : import

Merci JNP, mais j'ai toujours le même problème qu'avant.

Bonne journée

 

Dernière édition: 16 Juillet 2012

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 16 Juillet 2012

• #12

Re : import

J'ai réussi à faire ceci mais bon c'est pas top top

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False

Dim n As Integer
Dim i As Variant
i = TextBox1
ActiveSheet.Name = i
classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")
If classeur = False Then Exit Sub
Workbooks.Open Filename:=classeur
Range("A1:H550").Select
Selection.Copy
ActiveWorkbook.Close
Windows("classeur1").Activate
Range("A1").Select
ActiveSheet.Paste

Me.Hide
Exit Sub
Application.DisplayAlerts = True
End Sub


(DSL pour le double poste)

 

Dernière édition: 16 Juillet 2012

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 16 Juillet 2012

• #13

Re : import

Re 🙂,
A tester :

Code:

Private Sub CommandButton1_Click()Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim i As String, classeur As String
i = TextBox1
ActiveSheet.Name = i
classeur = Application.GetOpenFilename("Classeurs Excel,*.xls")
If classeur = False Then Exit Sub
Workbooks.Open Filename:=classeur
ThisWorkbook.Sheets(i).Range("A1:H550").Value = ActiveWorkbook.ActiveSheet.Range("A1:H550").Value
ActiveWorkbook.Close
Unload Me
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Bonne suite 😎

 

Vote positif 0 Vote négatif

M

mephis

XLDnaute Occasionnel

• 16 Juillet 2012

• #14

Re : import

Il y a un problème sur cette ligne ci :
If classeur = False Then Exit Sub

"Incompatibilité de type"

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 16 Juillet 2012

• #15

Re : import

Re 🙂

Code:

If classeur = "" Then Exit Sub

devrait fonctionner 🙄...
Bonne suite 😎

 

Vote positif 0 Vote négatif