code en vba

Question

bonjour a tous,
je debute en vba et meme apres avoir achete VBA pour excel pour les nuls je rame....
Voila je dois aller recuperer des données dans un fichier Excel qcq (exemple : test1.xls), mais avant cela je dois creer une boite dans laquelle je specifie l'emplacement de ce fichier test1.xls. Pour trouver l'emplacement j ai ce code la :

Sub RecupereLeFichier()


Dim NomsFichiers As Variant
Dim Msg As String
Dim U As Integer
 
 NomsFichiers = Application.GetOpenFilename(MultiSelect:=True)
 
 If IsArray(NomsFichiers) Then
 
 Msg = "vous avez sélectionné : " & vbCrLf
 
 For U = LBound(NomsFichiers) To UBound(NomsFichiers) ' limite min et max du tableau
    Msg = Msg & NomsFichiers(U) & vbCrLf 'VbCrLf prend en compte le clik de la souris
    
    Next U
    
    MsgBox Msg
    
    
 End If
 
 


End Function

Une fois a cette etape j ai l'adresse de mon fichier... Maintenat je voudrais recuperer une cellule qcq ds ce fichier et afficher cette cellule dans un nouveau fichier excel....

I NEED HELP !!!

cs_akzo · Answer

Pour ma part en ce qui concerne la recherche de fichier a ouvrir je fait comme ceci en placant ceci dans un module

Sub ImportationDesFichiers()
'fenetre de recherche du fichier excel
filetoopen = Application _
                   .GetOpenFilename("Fichier à ouvrir(*.xls), *.xls")
If filetoopen <> False Then
Workbooks.Open Filename:=filetoopen
End If
End Sub

Pour le suite je ferais avec une serie de copier coller mais a voir si tu peux l'automatiser au maximun avec un enregistrement final lorsque tu as terminer
Sinon repasse par ici pour nous donner plus d'information sur ce que tu veux obtenir

salutation

PCPT · Answer

déplacé de VB.NET vers VBA

aducloux · Answer

Tout d'abord je tiens a te remercier de m'avoir repondu aussi brievement.
Mais j ai toujours le meme probleme a savoir récuperer une cellule dans le fichier excel que je souhaite ouvrir, et surtout copier celle-ci dans un nouveau fichier excel généré par ma macro. 
Pour etre plus clair admettons que j ai un fichier test.xls et que je veuille recuperer la cellule A1.
Ce que j attends de ma macro est que :
1) elle me demande ou se situe mon fichier test.xls
2) qu'elle me renvoie un fichier .xls dans lequel s'afficherai juste ma cellule A1

Code en vba

3 réponses

Votre réponse

Discussions similaires