Discussion :

[Invité]

Bonjour à tous,
Je travail avec Excel et MS Project et comme je veux que ces deux logiciels communiquent il faut que l'un puisse lire l'autre sauf que le problème est que : MSP ne lit pas d'Excel avec macros, seulement en lecture seule et ce n'est pas ce qui m'intéresse.
J'aimerais une macro qui puisse envoyer un certain nombres de données voulu dans un autre classeur quant à lui sans macros .
je développe:
J'aurais besoin d'une macro me permettant de transférer un tableau d'un document Excel comportant des macros à un autre document Excel quant à lui sans macros.
Enfaîte ça revient à faire un copier coller dans un autre classeur mais j'aimerais une macro pour réaliser cette opération.
Ou quelqu'un à une solution sur le problème que MS Project ne puisse pas lire Excel avec macro.
Merci de vos futurs réponses bonnes ou mauvaise.

Cordialement,
Matthieu

[kiki29]

Salut, à lire , Excel et l'enregistreur de macro , voir également le forum idoine
Extrait :

L'extension proposée par défaut lors de l'enregistrement d'un classeur est le type .xlsx.

Les autres extensions XML sont:
* Classeur autorisant les macros (.xlsm)
* Modèle par défaut (.xltx)
* Modèle autorisant les macros (.xltm)
* Macro complémentaire (.xlam)
* Le dernier format .xlsb, est une version binaire non XML.

La lettre x en fin d'extension signifie que le fichier ne contient aucune macro. La lettre m signifie que le fichier contient des macros. Si vous enregistrez et fermez votre classeur au format .xlsx alors qu'il contenait des macros, celles ci seront perdues.

[Invité]

Je m'étais déjà renseigné sur ces outils mais maintenant j'ai besoin d'une macro qui me permette de le faire.
qu'elle sélectionne 9 colonnes avec un certain nombre de lignes de tend à tend et ensuite qu'elle l'envoie vers un autre classeur.

[unparia]

Bonjour

J'aurais besoin d'une macro me permettant de transférer un tableau d'un document Excel comportant des macros à un autre document Excel quant à lui sans macros

Il me semble bien que kiki29 (que je salue) t'a exposé qu'il te suffisait d'utiliser l'enregistreur de macros pour en connaître le code, d'une telle macro.
Qu'en as-tu fait ? Rien ?
Et si tu l'as fait : montre-nous le code qu'a ainsi écrit l'enregistreur de macros et dis-nous en quoi il ne fonctionne pas.

[kiki29]

Re, donc avec l'enregistreur de macros tu devrais déboucher sur un embryon de code, à optimiser à la main. A toi d'adapter le code ci-dessous à ton contexte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
Private Sub Copie(sFichier As String)
Dim WkbDep As Workbook, WkbDest As Workbook
Dim sNom As String, iRow As Long
    Application.ScreenUpdating = False
    Set WkbDep = Workbooks.Open(Filename:=sFichier, ReadOnly:=True, Local:=True)
    Set WkbDest = Workbooks.Add
    sNom = ThisWorkbook.Path & "\" & "Test"
    iRow = 5
    WkbDep.Worksheets(1).Range("A" & iRow & ":I" & iRow + 12).Copy WkbDest.Worksheets(1).Range("A1")
    Application.DisplayAlerts = False
    WkbDest.SaveAs sNom, FileFormat:=xlNormal
    Application.DisplayAlerts = True
    WkbDest.Close False
    WkbDep.Close False
    Set WkbDest = Nothing
    Set WkbDep = Nothing
    Application.ScreenUpdating = True
End Sub
 
Sub SelectionFichier()
Dim FD As FileDialog
 
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .InitialFileName = ThisWorkbook.Path
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "XLS*", "*.xls*", 1
        .ButtonName = "Ouvrir fichier"
        .Title = "Sélectionner un fichier XLS*"
    End With
 
    If FD.Show = True Then
        DoEvents
        Application.StatusBar = ""
        Copie FD.SelectedItems(1)
    End If
 
    Set FD = Nothing
End Sub

[Invité]

Merci je me sens bien con.
Oui je suis passé totalement à coté de cette option.
Merci bien il va falloir que je commence à me réveillé