Bonjour,
voilà mon problème est que je voudrais copier des colonnes d'un fichier A vers un fichier B mais avec quelques particularité :
- les colonnes ne correspondent pas
- il faudrait sélectionner juste les lignes où il y a des données dans le fichier source
-les copier à la suite du fichier de sortie car c'est un document dans lequel je vais rajouter de la même façon beaucoup de données
Après mes recherches sur internet j'ai réussi à avancer mais maintenant je n'arrive pas à modifier correctement la macro pour répondre à toutes les exigences du problème
"Sub CopierDonnees()
Dim Entree As Workbook, Sortie As Workbook
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xslx")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
' On ouvre le classeur
Set Entree = Workbooks.Open(Nomfichierentree)
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xslx")
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSortie)
Sortie.Worksheets("Feuil1").Cells(1, 1) = Entree.Worksheets("Feuil1").Cells(1, 4)
Sortie.Worksheets("Feuil1").Cells(1, 2) = Entree.Worksheets("Feuil1").Cells(1, 5)
'
' .
' .
' .
' On ferme le classeur
Sortie.Close
End If
' On ferme le second
Entree.Close
End If
End Sub"
Donc voilà le début de ce que j'ai, pouvez vous me donner un coup de main svp
Merci d'avance
Sapin
voilà mon problème est que je voudrais copier des colonnes d'un fichier A vers un fichier B mais avec quelques particularité :
- les colonnes ne correspondent pas
- il faudrait sélectionner juste les lignes où il y a des données dans le fichier source
-les copier à la suite du fichier de sortie car c'est un document dans lequel je vais rajouter de la même façon beaucoup de données
Après mes recherches sur internet j'ai réussi à avancer mais maintenant je n'arrive pas à modifier correctement la macro pour répondre à toutes les exigences du problème
"Sub CopierDonnees()
Dim Entree As Workbook, Sortie As Workbook
Nomfichierentree = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xslx")
' On verifie que l'on a selectionné un nom de classeur
If Nomfichierentree <> False Then
' On ouvre le classeur
Set Entree = Workbooks.Open(Nomfichierentree)
NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xslx")
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSortie)
Sortie.Worksheets("Feuil1").Cells(1, 1) = Entree.Worksheets("Feuil1").Cells(1, 4)
Sortie.Worksheets("Feuil1").Cells(1, 2) = Entree.Worksheets("Feuil1").Cells(1, 5)
'
' .
' .
' .
' On ferme le classeur
Sortie.Close
End If
' On ferme le second
Entree.Close
End If
End Sub"
Donc voilà le début de ce que j'ai, pouvez vous me donner un coup de main svp
Merci d'avance
Sapin
Dernière édition: