Copier-Coler

[Vario29]

Salut,

Je colle tous les mois un tableau mensuel dans la synthèse annuelle. Cette synthèse va donc contenir l’ensemble des tableaux mensuels. Ces tableaux ont donc le même nombre de colonne tous les mois. Cependant le nombre de colonnes varie en fonction des mois.

Alors peut-on par l’intermédiaire d’un macro automatiser cette tâche ?

Exemple : Je veux copier un tableau de la ligne A1 – G ? (nombre va varier en fonction des mois) vers un fichier un x. Ce tableau se copiera en dessous des autres tableaux.

Avez-vous des idées,

Merci bcp,

 

[mromain]

Re : Copier-Coler

bonjour Vario29,

voici une solution

[COLOR="Blue"]Sub[/COLOR] test()

[COLOR="Blue"]Dim [/COLOR]nomFichier [COLOR="Blue"]As String[/COLOR], fichierMensuel [COLOR="Blue"]As [/COLOR]Workbook
[COLOR="Green"]'récupérer le fichier mensuel à ajouter à ce classeur[/COLOR]
[COLOR="Blue"]Do[/COLOR]
    nomFichier = Application.GetOpenFilename(filefilter:="Fichier EXCEL, *.xls;*.xlsx", Title:="Sélection du fichier mensuel")
[COLOR="Blue"]Loop Until[/COLOR] UCase(nomFichier) <> "FAUX"

[COLOR="Green"]'ouvrir le fichier mensuel[/COLOR]
[COLOR="Blue"]Set [/COLOR]fichierMensuel = Application.Workbooks.Open(nomFichier)
[COLOR="Green"]
'copier le contenu de la première feuille à la suite de la feuille "Feuil1" de ce classeur[/COLOR]
[COLOR="Blue"]With [/COLOR]ThisWorkbook.Sheets("Feuil1")
    fichierMensuel.Sheets(1).UsedRange.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
[COLOR="Blue"]End With[/COLOR]

[COLOR="Green"]'fermer le fichier mensuel[/COLOR]
Application.DisplayAlerts = [COLOR="Blue"]False[/COLOR]
fichierMensuel.Close
Application.DisplayAlerts = [COLOR="Blue"]True[/COLOR]

End Sub

a+

 

[Vario29]

Re : Copier-Coler

Merci bcp,