Copier sélection vers nouveau classeur

Bonjour,

Je cherche à copier une sélection vers un autre classeur.

J'essaye comme cela mais ca ne fonctionne pas :

Sub OpenXLSDPGF()

Worksheets("DPFG vierge").Range("A2:I29").Copy
With ActiveWorkbook
     .SaveAs Filename:=Range("B41") & "\DPGF" & " " & Range("C4"), FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With

End Sub

Si quelqu'un a une solution =)

Merci d'avance,

BOB

Bonjour,

Que contient exactement Range("B41") et Range("C4") ? L'ensemble du texte contenu dans Filename fait-il bien un chemin valide ? Pas d'oubli de \ ?

Cdlt,

Bonjour,

Une idée !?

Cdlt.

Public Sub OpenXLSDPGF()
Dim sFilename As String
    With Worksheets("DPFG vierge")
        sFilename = .Range("B41") & "\DPGF" & " " & .Range("C4") & ".xlsx"
        .Range("A2:I29").Copy
    End With
    With ActiveWorkbook
        .SaveAs Filename:=sFilename, FileFormat:=51
        .Close SaveChanges:=False
    End With
End Sub

Merci à vous,

La cellule B41 contient ceci : R:\pc\1-ADMINISTRATION - MP

et la range C4 est un texte.

BOB

C'est bien le chemin d'accès qui semble poser problème...

Bonjour,

- Le texte en C4 n'a pas de caractères spéciaux interdits dans les noms de fichiers ??

- DPGF fait partie du nom de fichier ou c'est un répertoire ? car si répertoire il manque un "\"

Bonjour,

Non en C4, il s'agit du numéro de dossier. Ici, DVL 104

DPGF est le nom du fichier à enregistrer.

J'aimerai donc que la sélection s'enregistre sur un nouveau classeur "DPGF DVL 104" dans le répertoire : R:\pc\1-ADMINISTRATION - MP

Merci de votre aide,

BOB

si tout est correct alors B41 et C4 ne sont pas dans l'onglet "DGPF Vierge" ?

Essayez de récupérer le chemin et le nom de fichier dès le début de la macro :

Sub OpenXLSDPGF()
Dim Chemin as string
Dim Nomfichier as String
Chemin=Range("B41").value & "\"
Nomfichier="DPGF " & Range("C4").value & ".xlsx"

Worksheet("DPGF vierge").Range("A2:I29").Copy

ActiveWorkbook.SaveAs Filename:=Chemin & Nomfichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.close 
End sub

C'est ce que j'ai fais entre temps et cela fonctionne !

Merci de ton aide =)