récupérer les données saisie par l'utilisateur

[mohamedlion]

Bonjour à tous,
j'ai besoin de votre aide, j'ai un petit problème en vb
je veux récupérer le nom de fichier saisie par l'utilisateur et ensuite aller sur l'onglet feuil2 de ce document et copier tous les données qui existent sur ce fichier et les coller ensuite dans mon fichier "Classeur 1" sous l'onglet Feuil1. (sachant que le document qui va être saisie par l'utlisateur se trouve sur "C:\"
Le problème c'est comment activer l'onglet feuil2 (peu importe, le numéro de feuille) d'un fichier saisie par l'utilisateur.
voilà ma macro , mais malheureusement il y a un problème

Spoiler

sub ouvrir_fichier_saisie_utilisateur()
dim titre as string
titre = inputbox ("saisissez le nom de votre fichier")
On Error Resume Next
Workbooks.Open Filename:="C:\" & Titre & ".xls"
If Err <> 0 Then
MsgBox "Le fichier " & Titre & " est introuvable !"
End
End If
workbook("&Titre&").sheets("Feuil2").activate
cells.select
selection.copy
workbook("classeur1").sheets("feuil1").activate
cells.select
ActiveSheet.Paste
application.CutCopyMode = False
End Sub

Merci d'avance pour votre aide

 

[KangOl]

balise

 et pas [spoiler] :o

 

[mohamedlion]

Bonjour à tous,
j'ai besoin de votre aide, j'ai un petit problème en vb
je veux récupérer le nom de fichier saisie par l'utilisateur et ensuite aller sur l'onglet feuil2 de ce document et copier tous les données qui existent sur ce fichier et les coller ensuite dans mon fichier "Classeur 1" sous l'onglet Feuil1. (sachant que le document qui va être saisie par l'utlisateur se trouve sur "C:\"
Le problème c'est comment activer l'onglet feuil2 (peu importe, le numéro de feuille) d'un fichier saisie par l'utilisateur.
voilà ma macro , mais malheureusement il y a un problème

[cpp]
sub ouvrir_fichier_saisie_utilisateur()
dim titre as string
titre = inputbox ("saisissez le nom de votre fichier")
On Error Resume Next
Workbooks.Open Filename:="C:\" & Titre & ".xls"
If Err <> 0 Then
MsgBox "Le fichier " & Titre & " est introuvable !"
End
End If
workbook("&Titre&").sheets("Feuil2").activate
cells.select
selection.copy
workbook("classeur1").sheets("feuil1").activate
cells.select
ActiveSheet.Paste
application.CutCopyMode = False
End Sub

[/cpp]


Merci d'avance pour votre aide

 

[zeb]

As-tu règlé ton problème ?

Utilise Workbooks au lieu de Workbook.

Ca marche mais par principe, je remplace toujours ce genre de code :

cells.select
selection.copy

par :

cells.copy

C'est plus clair et il n'y a pas de sélection inutile.

workbook("&Titre&").sheets("Feuil2").activate

Ca c'est faux. Il y a du copier-coller dans l'air...

workbook(Titre).sheets("Feuil2").activate

C'est mieux.

Ca va maintenant ?

 

[mohamedlion]

Merci pour votre aide
ça marche

Sincères salutations

As-tu règlé ton problème ?

Utilise Workbooks au lieu de Workbook.

Ca marche mais par principe, je remplace toujours ce genre de code :

cells.select
selection.copy

par :

cells.copy

C'est plus clair et il n'y a pas de sélection inutile.

workbook("&Titre&").sheets("Feuil2").activate

Ca c'est faux. Il y a du copier-coller dans l'air...

workbook(Titre).sheets("Feuil2").activate

C'est mieux.

Ca va maintenant ?