Copier un document vers un autre fichier

[UJAP]

Salut,

Je voudrai exporter un tableau mensuel (sans la légende ligne 1) afin d’alimenter un tableau annuel récapitulatif. Ainsi je voudrai que le tableau mensuel se copie (en conservant le format de la date sans se mettre à jour si changement de mois) vers le tableau annuel en ce mettant sous le tableau afin de le compléter.

Exemple :

Mon tableau 1 va devoir se copier vers synthèse en se mettant au niveau de la ligne 8,

Peut-on le faire et comment ?

Merci,

 

[Catrice]

Re : Copier un document vers un autre fichier

Bonjour,

Dans le fichier d'arrivée les date sont toutes au 18/12/2008 alors que dans e fichier de depart elles sont au 18/11/2008.

Je n'ai pas tres bien compris comment tu voulais gerer ceci ...

 

[UJAP]

Re : Copier un document vers un autre fichier

La synthèse va regrouper tous les tableaux mensuels. Donc dans le tableau annuel pour l'instant il y a juste le tableau de 11/08 (exemple).

Maintenant je voudrai recopier le tableau mensuel de 12/08 (tableau 1) vers la synthèse afin d'avoir le tableau de 11/08 et 12/08 (c'est un exemple au niveau des dates),

Mon objectif est de copier le tableau mensuel vers le tableau annuel récapitulatif en conservant le format des dates pour distinguer les différents mois,

 

[kjin]

Re : Copier un document vers un autre fichier

Bonjour, Bonjour Catrice 🙂
Je vois que tu as résolu le précédent pb ! 🙄
Je n'ai pas saisie si tu exportais depuis le fichier tableau ou importais depuis la synthèe
Dans le premier cas et sans ADO

Sub Sauve()
Dim FichS As String, Chemin as String, FichD As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
FichS = ActiveWorkbook.Name
Chemin = "C:\Documents and Settings\....\Synthese.xls" 'Adapte ici le chemein vers ton fichier
Workbooks.Open Chemin
FichD = ActiveWorkbook.Name
Windows(FichS).Activate
Range("A2:N" & Range("A65000").End(xlUp).Row).Copy _
Destination:=Workbooks(FichD).Sheets(1).Range("A65000").End(xlUp)
Workbooks(FichD).Save
Workbooks(FichD).Close
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

A+
kjin

 

[UJAP]

Re : Copier un document vers un autre fichier

Salut kjin,

Oui il s'agit d'exporter le tableau 1 vers la synthèse (en dessous du tableau existant),

Les fichiers se trouvent dans mes documents, je n'arrive pas écrire le chemin, peux-tu m'aider ?

 

[UJAP]

Re : Copier un document vers un autre fichier

Ok c'est bon, j'ai réussi,

Merci,

 

[UJAP]

Re : Copier un document vers un autre fichier

Je viens juste de m'apercevoir que lorsque le tableau de synthèse ne contient juste une ligne (ligne 1 la légende du tableau) en exportant le tableau il efface cette ligne,

Autrement génial,

 

[kjin]

Re : Copier un document vers un autre fichier

Re,
Super, super,... sauf que je ne dois pas être bien réveillé 😱

Sub Sauve()
Dim FichS As String, FichD As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
FichS = ActiveWorkbook.Name
Chemin = "C:\Documents and Settings\.....\Synthese.xls"
Workbooks.Open Chemin
FichD = ActiveWorkbook.Name
Windows(FichS).Activate
Range("A2:N" & Range("A65000").End(xlUp).Row).Copy _
Destination:=Workbooks(FichD).Sheets(1).Range("A65000").End(xlUp)[COLOR="Blue"].Offset(1, 0)[/COLOR]
Workbooks(FichD).Save
Workbooks(FichD).Close
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

A+
kjin