Discussion :

[SpaceX]

Bonjour,

J'ai réussi à crée une macro (bouton) sur Excel qui permet de chercher un fichier dans mon ordinateur avec l'extension ".xlsx" et qui recopie le chemin du fichier dans un "TextBox".

A présent je cherche un code en VBA qui me permettrait de lire le fichier excel sélectionné et qui recopie les données sur une feuille "Feuil1" par exemple lorsque j'appuie sur un bouton.


Merci d'avance.

Cordialement SpaceX.

[Menhir]

A présent je cherche un code en VBA qui me permettrait de lire le fichier excel sélectionné

Si par "lire", tu veux dire "ouvrir", c'est la méthode Open de Workbooks.
https://msdn.microsoft.com/fr-fr/vba...n-method-excel

qui recopie les données sur une feuille "Feuil1".

Ta demande est un peu vague mais pour faire la copie de cellules, tu peux utiliser (entre autres) une combinaison des méthodes Copy et PasteSpecial de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

[SpaceX]

Si par "lire", tu veux dire "ouvrir", c'est la méthode Open de Workbooks.
https://msdn.microsoft.com/fr-fr/vba...n-method-excel


Ta demande est un peu vague mais pour faire la copie de cellules, tu peux utiliser (entre autres) une combinaison des méthodes Copy et PasteSpecial de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

Salut,

Non je ne veux pas l'ouvrir je souhaite importer une feuille à partir d'un autre classeur dans une nouvelle feuille du classeur actif à l'aide d'un bouton

Voici mon code que j'ai actuellement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub cmdBouton1_Click()
 Dim Fichier As String
 
  ' Permet de parcourir les fichiers
  Fichier= FileFromBrowser(ThisWorkbook.Path & "\Fichier\", "Fichier *.xlsx,*.xlsx")
 
  ' Affiche le nom de fichier dans la zone de texte
  If Fichier<> "" Then txtFile.Text = Fichier
End Sub

et le code fourni par le site est le suivant, j'ai essayé de l'adapter mais j'ai toujours une erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Copie_Click()
    ' This macro will import a file into this workbook
    Sheets("Feuil1").Select
    PathName = Range("Fichier").Value
    FileName = Range("Fichier").Value
    TabName = Range("Feuil1").Value
    ControlFile = ActiveWorkbook.Name
    Workbooks.Open FileName:=Answer
    ActiveSheet.Name = TabName
    Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1)
    Windows(FileName).Activate
    ActiveWorkbook.Close SaveChanges:=False
    Windows(ControlFile).Activate
End Sub

[Igloobel]

Bonjour,

Pour ouvrir un classeur je te conseil d'utiliser les "FileDialogs" c'est une merveille et c'est bien plus souple que l'open classic seul (qui fonctionne bien je te l'acorde)

Surtout si tes classeurs changent d'endrois comme sur Disques, clés, Reseau ...

[SpaceX]

Bonjour,

Pour ouvrir un classeur je te conseil d'utiliser les "FileDialogs" c'est une merveille et c'est bien plus souple que l'open classic seul (qui fonctionne bien je te l'acorde)

Surtout si tes classeurs changent d'endrois comme sur Disques, clés, Reseau ...

Salut,

En VBA, on est obligé d'ouvrir un classeurs excel pour recopier des données sur un autre classeur actif ?

[Marc-L]

Bonjour,

pas toujours mais c'est bien plus simple pour un débutant …
Déjà en activant l'Enregistreur de macro puis en opérant manuellement, une base de code est livrée sur un plateau !
Sinon entre la FAQ et les tutoriels, il y a de quoi lire …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Pierre Fauconnier]

Salut,

En VBA, on est obligé d'ouvrir un classeurs excel pour recopier des données sur un autre classeur actif ?

Ca dépend de la conception dudit classeur.

Si la conception est bonne et que les règles sont respectées (données bien isolées et bien organisées dans des feuilles, isolées de leur analyse, présentation, ...), on n'est pas obligé de les "ouvrir" au sens Excel du terme. On peut lier les données via l'assistant de connexion aux données sur un classeur Excel (à mon avis, très simple même pour un débutant), par MSQUERY, POWERQUERY (addin pour la 2010).

On peut aussi y aller en requêtes SQL par VBA, mais c'est rarement utile au vu des outils cités plus haut qu'Excel a justement développé pour répondre aux besoins.

Le degré de la mise en place d'une solution de liaison sera inversement proportionnelle à la qualité de la conception des classeurs. Autrement dit, mieux les classeurs seront conçus et leurs données organisées, plus simple seront les connexions. Et à l'inverse, ...

[Pierre Fauconnier]

Salut.

Et si le nom est plus long que les 100 caractères?

Perso, je préfère travailler avec RIGHT et la longueur du fichier qu'avec une longueur arbitraire à 100. Surtout que ce n'est pas plus compliqué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Longname = "c:\pierre\mondocument.xls"
  Filename = Right(Longname, Len(Longname) - InStrRev(Longname, "\"))