Se connecter avec
S'enregistrer | Connectez-vous

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

Dernière réponse : dans Programmation

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
Lassé par la pub ? Créez un compte


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

  1. sub ouvrir_fichier_saisie_utilisateur()
  2. dim titre as string
  3. titre = inputbox ("saisissez le nom de votre fichier")
  4. On Error Resume Next
  5. Workbooks.Open Filename:="C:\" & Titre & ".xls"
  6. If Err <> 0 Then
  7. MsgBox "Le fichier " & Titre & " est introuvable !"
  8. End
  9. End If
  10. workbook("&Titre&").sheets("Feuil2").activate
  11. cells.select
  12. selection.copy
  13. workbook("classeur1").sheets("feuil1").activate
  14. cells.select
  15. ActiveSheet.Paste
  16. application.CutCopyMode = False
  17. End Sub



Merci d'avance pour votre aide

Expert Programmation

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 :
  1. cells.select
  2. selection.copy

par :
  1. cells.copy

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

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

Ca c'est faux. Il y a du copier-coller dans l'air...
  1. workbook(Titre).sheets("Feuil2").activate

C'est mieux.

Ca va maintenant ?

Merci pour votre aide
ça marche

Sincères salutations

Citation :
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 :
  1. cells.select
  2. selection.copy

par :
  1. cells.copy

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

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

Ca c'est faux. Il y a du copier-coller dans l'air...
  1. workbook(Titre).sheets("Feuil2").activate

C'est mieux.

Ca va maintenant ?

Lassé par la pub ? Créez un compte