copie de donnée d'un fichier excel vers un autre

G

gillou512

Guest

• 12 Juin 2009

• #2

Re : copie de donnée d'un fichier excel vers un autre

personne peut m'aider 🙁

 

Vote positif 0 Vote négatif

M

mercant76

XLDnaute Impliqué

• 12 Juin 2009

• #3

Re : copie de donnée d'un fichier excel vers un autre

bonjour,

ton fichier ne passe pas.

peut tu regarder ?

@+

 

Vote positif 0 Vote négatif

G

gillou512

Guest

• 12 Juin 2009

• #4

Re : copie de donnée d'un fichier excel vers un autre

bonjour

oui c'était un fichier avec extension xslm 😕
je l'ai zippé car il fait 54 ko au lieu de 48.
Merci de me l'avoir précisé.

Bon courage si tu regarde mon probléme 🙂

 

Pièces jointes

• tache-exploitation.zip

  8.9 KB · Affichages: 41
• tache-exploitation.zip

  8.9 KB · Affichages: 41
• tache-exploitation.zip

  8.9 KB · Affichages: 42

Vote positif 0 Vote négatif

G

gillou512

Guest

• 15 Juin 2009

• #5

Re : copie de donnée d'un fichier excel vers un autre

up 🙂 ffffffffffffffffffffffffffffffffffffffffffffffffffffff

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juin 2009

• #6

Re : copie de donnée d'un fichier excel vers un autre

Bonjour gillou512,

La macro suivante se trouve dans un module du fichier tache-exploitation (Alt+F11) :

Code:

Sub Copie()
Dim nomfich$, i As Long
Application.ScreenUpdating = False 'Fige l'écran
Application.DisplayAlerts = False 'Désactive les messages d'alerte
nomfich = "Copie de " & ThisWorkbook.Name

On Error Resume Next
Workbooks.Open ThisWorkbook.Path & "\" & nomfich 'Ouverture (ou réouverture) du classeur
If Err Then MsgBox nomfich & " introuvable", 48: Exit Sub
On Error GoTo 0

With Workbooks(nomfich).Sheets(1)
ThisWorkbook.Sheets(1).Range("B4:G65536").Copy .Range("A4") 'Copie les données
.Range("C4:E65536").Delete Shift:=xlToLeft 'Supprime les colonnes inutiles
For i = .Range("A65536").End(xlUp).Row To 4 Step -1
If .Cells(i, 2) = 100 Then .Rows(i).Delete 'Supprime les lignes inutiles
Next
End With

Workbooks(nomfich).Save 'Enregistre le fichier
End Sub

La macro se lance par les touches de raccourci Ctrl+C.

Comme on le voit, le 2ème fichier doit toujours s'appeler "Copie de XXX" ("XXX" étant le fichier principal) et être dans le même dossier.

La feuille copiée doit toujours être la 1ère du classeur.

Ci-joint ces 2 fichiers.

A+

 

Pièces jointes

• tache-exploitation.zip

  24.1 KB · Affichages: 65
• tache-exploitation.zip

  24.1 KB · Affichages: 72
• tache-exploitation.zip

  24.1 KB · Affichages: 64

Dernière édition: 15 Juin 2009

Vote positif 0 Vote négatif

G

gillou512

Guest

• 15 Juin 2009

• #7

Re : copie de donnée d'un fichier excel vers un autre

Merci bien
je vais regarder ca.
Merci de pas avoir commerter le code, ca va m'aider a comprendre le vba.
du coup le fichier ne sera pas dans le même dossier.
mais ca doit pas etre compliqué a modifier ca 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juin 2009

• #8

Re : copie de donnée d'un fichier excel vers un autre

Re,

gillou512 à dit:

Merci de pas avoir commerter le code, ca va m'aider a comprendre le vba.

Cliquez pour agrandir...

Comprends pas, moi parler français.

gillou512 à dit:

(...) du coup le fichier ne sera pas dans le même dossier.

Cliquez pour agrandir...

Mais vous racontez n'importe quoi 😱

C'est mal barré...

A+

 

Vote positif 0 Vote négatif