Bonjour à tous,
Je viens vers vous pour un problème d'utilisation d'un fichier que je viens d'ouvrir.
Voici le contexte, a partir du feuille de travail, je veux ouvrir un autre fichier, récupérer les données et les insérer dans mon fichier de travail.
Actuellement, j'arrive bien à ouvrir le second fichier, mais je n'arrive pas à aller dedans, je suis toujours dans mon fichier de travail.
Sub ouverture_fichier()
Dim fichierw As String
Dim cheminw As String
Dim fichierw2 As String
Dim cheminw2 As String
Dim adressefichierw As String
Dim matrice(100, 15)
Dim compteur1 As Long
Dim compteur2 As Long
Dim compteur3 As Long
'récupération du chemin et du nom de fichier de travail
fichierw = ThisWorkbook.Name
cheminw = ThisWorkbook.Path
adressefichierw = cheminw & "\" & fichierw
'
'ouverture du fichier dans lequel je veux récolter des données et les mettres dans mon fichier de travail
Dim strFichier As String
strFichier = Application.GetOpenFilename()
Workbooks.Open strFichier
'le fichier s'est bien ouvert mais lorsque je veux le balayer pour mettre les données dans la matrice,
'je suis sur mon fichier de travail
compteur1 = 1
compteur2 = 1
While Cells(compteur1, 1) <> ""
For compteur2 = 1 To 15
matrice(compteur1, compteur2) = Cells(compteur1, compteur2)
Next
compteur1 = compteur1 + 1
Wend
End Sub
Qu'est-ce que je peux utiliser pour basculer dans le fichier que je viens d'ouvrir.
D'avance merci.
Olivier