Discussion :

[guillaume7684]

Bonjour,

Dans un tableau j'ai une macro qui me permet actuellement d'extraire les données d'une feuille dans un classeur existant (fichier déjà créé).
J'aimerais l'améliorer pour que le classeur destinataire soit créé automatiquement (je ne souhaite pas le créer au préalable), et que le nouveau fichier soit déjà nommé avec comme nom de fichier des données de 3 cellules concaténées, je ne sais même pas si c'est possible à faire !!

exemple:
valeurs dans les cellules: I1= AAAA; I2=BBBB; I3=CCCC
Le nom du fichier créé sera AAAA_BBBB_CCCC.xls

Voilà la macro que j'utilise actuellement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Extraction_client()
'############### Copier les données dans d'autres classeurs ##################
Dim wkDest As Workbook ' Classeur destinataire
 
Set wkDest = Application.Workbooks.Open("C:\Users\Desktop\xxxxxxxxxx.xlsm")
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkbook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil1").Range("A1:E100")
 
' wkDest.Close True 'Ferme en sauvant
 
End Sub

Merci pour votre aide.

[Marc-L]

Bonjour,

un exemple à adapter au contexte ^₍₁₎ :

Code :

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

1
2
3
4
5
6
Sub Demo()
    With ThisWorkbook.Worksheets("Feuil1")
        .Copy
        ActiveWorkbook.SaveAs .Parent.Path & "\" & Join(Application.Transpose(.[I1:I3].Value), "_") & ".xls"
    End With
End Sub

⁽¹⁾ Cela dépend aussi des informations omises, comme par exemple la version d'Excel
devant pourtant être renseignée dans le préfixe de cette discussion ! …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[guillaume7684]

Bonjour,

Ouah, trop bon ça marche !!!
Par contre juste un petit complément I1, I2 et I3 se trouve sur la feuil2, que dois-je mettre du coup?
Merci encore.

[Marc-L]

C'est sûr, comment le deviner ?‼

Code :

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

1
2
3
4
Sub Demo()
    Feuil1.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Join(Application.Transpose(Feuil2.[I1:I3].Value), "_") & ".xls"
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[guillaume7684]

Avec ce code:

Code :

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

1
2
3
4
5
6
Sub Demo()
    With ThisWorkbook.Worksheets("Feuil1")
        .Copy
        ActiveWorkbook.SaveAs .Parent.Path & "\" & Join(Application.Transpose(Feuil2.[A2:C2].Value), "_") & ".xls"
    End With
End Sub

J'ai le message d'erreur: Erreur d'exécution '5', argument ou appel de procédure incorrect

De plus j'aimerais plutôt un export des cellules car dans mon fichier source j'ai un filtre et je ne veux pas voir les autre valeurs dans le fichier destinataire quand je déroule la flèche du tri.
Merci.

[Marc-L]

Aucun souci de mon côté ! Évidemment si le CodeName de "Feuil2" n'est pas Feuil2, simple à vérifier pourtant dans le VBE …

Et je rappelle que I1:I3 est en vertical tandis que A2:C2 est en horizontal donc pas besoin alors de transposition ‼

Donc on va attendre une présentation digne de ce nom, c'est à dire claire et complète (voir les règles du forum)
car là je ne suis pas à la disposition d'informations délivrées au compte goutte remettant en cause le code précédent !

[halaster08]

Avec ce code:

Code :

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

1
2
3
4
5
6
Sub Demo()
    With ThisWorkbook.Worksheets("Feuil1")
        .Copy
        ActiveWorkbook.SaveAs .Parent.Path & "\" & Join(Application.Transpose(Feuil2.[A2:C2].Value), "_") & ".xls"
    End With
End Sub

J'ai le message d'erreur: Erreur d'exécution '5', argument ou appel de procédure incorrect

Tu as mélanger les deux codes, utilise soit l'un soit l'autre ...


Sinon en repartant de ton code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Extraction_client()
'############### Copier les données dans d'autres classeurs ##################
Dim wkDest As Workbook ' Classeur destinataire
 
Set wkDest = Application.Workbooks.add
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkbook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil1").Range("A1:E100")
 
 wkDest.SaveAs Thisworkbook.Path & "\" & Join(Application.Transpose(Feuil2.[I1:I3].Value), "_") & ".xls"
 
 
 
End Sub

[guillaume7684]

Bonjour halaster08,

Avec ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Extraction_client()
'############### Copier les données dans d'autres classeurs ##################
Dim wkDest As Workbook ' Classeur destinataire
 
Set wkDest = Application.Workbooks.add
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkbook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil1").Range("A1:E100")
 
 wkDest.SaveAs Thisworkbook.Path & "\" & Join(Application.Transpose(Feuil2.[A2:C2].Value), "_") & ".xls"
 
 
End Sub

J'ai une erreur de compilation, référence incorrecte ou non qualifiée. Et dans le débogage il me surligne .ThisWorkbook de la ligne 10

Merci.

[halaster08]

J'avais pourtant édité rapidemment, il n'y a plus de "." devant le thisworkbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Extraction_client()
'############### Copier les données dans d'autres classeurs ##################
Dim wkDest As Workbook ' Classeur destinataire
 
Set wkDest = Application.Workbooks.add
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkbook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil1").Range("A1:E100")
 
 wkDest.SaveAs Thisworkbook.Path & "\" & Join(Feuil2.[A2:C2].Value, "_") & ".xls"
 
 
End Sub

[guillaume7684]

Même message d'erreur mais là j'ai toute la ligne de surlignée dans le débogage:
wkDest.SaveAs ThisWorkbook.Path & "\" & Join(Feuil2.[A2:C2].Value, "_") & ".xls"

[guillaume7684]

Aucun souci de mon côté ! Évidemment si le CodeName de "Feuil2" n'est pas Feuil2, simple à vérifier pourtant dans le VBE …

Et je rappelle que I1:I3 est en vertical tandis que A2:C2 est en horizontal donc pas besoin alors de transposition ‼

Donc on va attendre une présentation digne de ce nom, c'est à dire claire et complète (voir les règles du forum)
car là je ne suis pas à la disposition d'informations délivrées au compte goutte remettant en cause le code précédent !

Bonjour,

J'y suis presque par contre si je souhaite supprimer la transposition pour avoir des valeur sur la même ligne, que dois-je mettre à la place de transpose?
J'ai un filtre dans les colonnes du classeur source, j'aimerais que dans le classeur destination il n'y est que les valeurs filtrées qui apparaissent.

Merci encore.