Problème Changement de disque

Le 06/11/2017 à 10:34

Bonjour à tous,

J'ai un problème assez étrange !

J'ai une macro qui fonctionne parfaitement sur mon Ordi. (Ci dessous)

Sub ouioui()
    Sheets("Serop client").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("MECA client").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("Fournisseur MECA").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("Fournisseur SEROP").Select
    Columns("A:E").Select
    Selection.ClearContents
'SEROP CLIENT'

'ouverture de mes fichiers'
Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Serop client.xls"

        Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Serop client.xls" _
        ).Activate
    Application.CutCopyMode = False
'fermeture du ficher sans enregistrer'
    Workbooks("Export Analyse delais Serop client").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Serop client").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

'MECA CLIENT'

Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca client.xls"

        Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Meca client.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca client").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("MECA client").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

'MECA FOURNISSEUR'
Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca fournisseur.xls"

        Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Meca fournisseur.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca fournisseur").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Fournisseur MECA").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

'SEROP Fournisseurs'

Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        "Y:\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Serop fournisseur.xls"

        Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Serop fournisseur.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Serop fournisseur").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Fournisseur SEROP").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False
Sheets("Statistiques Global").Select
End Sub

2 personnes et donc 2 ordi ont accès au disque "Qualité".

Ce disque pour moi est en "Y:" et pour l'autre personne en "Z:".

J'ai modifié la macro pour que l'autre personne puisse l'utilisé donc les lignes ou je vais chercher mes fichiers excel. (Je remplace juste les Y: par Z:)

Et la, Problème : "Erreur 9 L'indice n'appartient pas a la sélection" pour ce code :

    Workbooks("Export Analyse delais Serop client").Close SaveChanges:=False

Alors qu'il a su m'ouvrir le fichier.

Pourquoi? quelqu'un peut m'aider?

Tous les fichiers sont stocker au même endroit pour l'autre ordi et le miens. Il accepte pas que l'autre ordi son disque Qualité ne soit pas en Y:

Merci d'avance

Le 06/11/2017 à 10:39

bonjour

essaie ceci

    Workbooks("Export Analyse delais Serop client.xls").Close SaveChanges:=False
Le 06/11/2017 à 10:41

J'essaye de suite je te tiens au courant, merci pour la rapidité !

Parfait sa fonctionne! merci beaucoup !

Maintenant pourquoi sa fonctionnait sur mon ordi sans le ".xls" et sur l'autre non? (je suis curieux de savoir )

Le 06/11/2017 à 11:02

bonjour

si ça fonctionnait sur un ordi et pas l'autre, c'est peut-être une question de version (ça marche avec l'une et pas avec l'autre).

Le 06/11/2017 à 11:10

D'accord merci, la seule chose qui chance c'est le window, (je suis en vista et sur l'autre en window 10).

Un autre problème que je viens de rencontrer du coup c'est pour l'appel d'une macro, sur le mien sa fonctionne et sur l'autre non.

"Erreur 5 Argument ou appel de procédure incorrect"

Le code ( à la fin il fait appel à une autre macro)

Sub Airbus()
Workbooks.Open Filename:= _
        "Z:\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        "Z:\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca client.xls"

        Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Meca client.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca client.xls").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

      Range("A:D").Select
    With Selection.Font
        .Name = "MS Sans Serif"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With

                ActiveSheet.Range("$A:E").AutoFilter Field:=2, Criteria1:=Array( _
        "11119", "11121", "11135"), Operator:=xlFilterValues

    Selection.NumberFormat = "m/d/yyyy"

    Columns("A:E").Select
Range("A1", Range("A1").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
ActiveCell.Resize(Cells(Rows.Count, 1).End(xlUp).Row, 5).Select
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Range("A26").Select
    ActiveSheet.Paste
        Range("A26:A400").Select
    Selection.NumberFormat = "General"
    Workbooks("Export analyse délais V3.xlsm").Close SaveChanges:=False

    'Appele de la macro enregistrer'
    Application.Run "enregistrer"

La macro appelée :

Option Explicit
Sub enregistrer()
Dim nompdf As String

On Error GoTo erreur

    nompdf = "Z:\ASSISTANT QUALITE\Calcul des Indicateurs\" & Range("C12").Value & "_" & Range("C13").Value & "_" & Format([C14], "mmmm_yyyy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub

Il veut pas activer l'autre macro :/ (qui me sert à enregistrer en pdf)

Le 06/11/2017 à 11:16

bonjour,

dans quel fichier/quel module se trouve cette macro enregistrer ?

Le 06/11/2017 à 11:20

Re bonjour,

Cette macro se trouve dans le classeur "Calcul des OTD.xlsm"

Comment fait-tu pour savoir sur quel module se trouve la macro?

Le 06/11/2017 à 11:34

re-bonjour,

tu ouvres l'editeur VBE, (alt-F11) tu fais une recherche (ctrl-H) sur "enregistrer", le nom du module (feuil, module, userform) est surligné dans le panneau projet vba.

ceci dit, essaie en remplaçant

application.run "enregistrer"

par

enregistrer

reçois-tu un message d'erreur ?

edit : tu me l'as déjà mentionné (err 5), oublie la question

Le 06/11/2017 à 11:43

En remplaçant sa ne fonctionne pas :/

Je suis sur le Module 14 je crois (j'ai essayé ta recherche sa na rien donné le probant :/), sur la feuille 12 qui ne nomme Tram.

Le 06/11/2017 à 11:51

le message semble indiquer qu'il ne trouve pas de sub nommée "enregistrer"

Le 06/11/2017 à 11:53

Si il a trouvé le sub enregistrer

Le 06/11/2017 à 11:58

re-bonjour

on va vérifier qu'il trouve bien la sub enregistrer, remplace le code d'enregistrer par celui-ci

Option Explicit
Sub enregistrer()
Dim nompdf As String
msgbox "j'ai bien trouvé le code enregistrer"
On Error GoTo erreur

    nompdf = "Z:\ASSISTANT QUALITE\Calcul des Indicateurs\" & Range("C12").Value & "_" & Range("C13").Value & "_" & Format([C14], "mmmm_yyyy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub
Le 06/11/2017 à 12:01

Re,

Donc il m'affiche bien le message box "j'ai bien trouvé le code enregistrer".

Juste derrière j'ai de nouveau l'erreur 5. :/

Le 06/11/2017 à 12:27

re-bonjour,

donc l'erreur se trouve dans enregistrer et est probablement due au changement de disque. enregistrer utilise Z:\ alors que si j'ai bien compris c'est Y:\

Le 06/11/2017 à 12:29

Il utilise l'inverse .

Tout fonctionne sauf l'enregistrement. :/

Ce fichu Disque Z:

Le 06/11/2017 à 12:50

bonjour,

une solution pour retrouver le disque

Dim dl

Sub ouioui()
    Sheets("Serop client").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("MECA client").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("Fournisseur MECA").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("Fournisseur SEROP").Select
    Columns("A:E").Select
    Selection.ClearContents
'SEROP CLIENT'
'recherche du lecteur sur lequel se trouve le répertoire \assistant qualite\
For i = 1 To 26
dl = Chr(64 + i) & ":"
f = Dir(dl & "\assistant qualite\", vbDirectory)
If f <> "" Then Exit For
dl = ""
Next i
If dl = "" Then MsgBox "répertoire non trouvé": Exit Sub
'ouverture de mes fichiers'
Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Serop client.xls"

        Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Serop client.xls" _
        ).Activate
    Application.CutCopyMode = False
'fermeture du ficher sans enregistrer'
   Workbooks("Export Analyse delais Serop client").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Serop client").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

'MECA CLIENT'

Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca client.xls"

        Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Meca client.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca client").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("MECA client").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

'MECA FOURNISSEUR'
Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca fournisseur.xls"

        Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Meca fournisseur.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca fournisseur").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Fournisseur MECA").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

'SEROP Fournisseurs'

Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
Workbooks.Open Filename:= _
        dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Serop fournisseur.xls"

        Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
        Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows( _
        "Export Analyse delais Serop fournisseur.xls" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Serop fournisseur").Close SaveChanges:=False

Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Fournisseur SEROP").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Windows( _
        "Export analyse délais V3.xlsm" _
        ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False
Sheets("Statistiques Global").Select
End Sub

Option Explicit
Sub enregistrer()
Dim nompdf As String

On Error GoTo erreur

    nompdf = dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\" & Range("C12").Value & "_" & Range("C13").Value & "_" & Format([C14], "mmmm_yyyy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub
Le 06/11/2017 à 13:23

Merci je vais essayer, donc normalement avec ta macro plus besoin d'indiquer le disque?

Et l'appel de la macro fonctionnera je suppose?

Bon, j'ai un message d'erreur sur cette ligne :

f = Dir(dl & "\assistant qualite\", vbDirectory)

Erreur 52 : Nom ou numéro de fichier incorrect

Je t'ai joins tout mes fichiers (allégés sinon sa ne passe pas).

Chez moi, tout fonctionne sur mon ordi en Y:, sauf sur l'autre Ordi avec ce foutu disque Z: !

6calcul-des-otd.zip (576.59 Ko)
11calcul-des-indicateurs.zip (931.19 Ko)
Le 07/11/2017 à 09:21

bonjour,

essaie ceci

Dim dl

Sub ouioui()
    Sheets("Serop client").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("MECA client").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("Fournisseur MECA").Select
    Columns("A:E").Select
    Selection.ClearContents
    Sheets("Fournisseur SEROP").Select
    Columns("A:E").Select
    Selection.ClearContents
    'SEROP CLIENT'
    'recherche du lecteur sur lequel se trouve le répertoire \assistant qualite\
    For i = 1 To 26
        On Error Resume Next
        dl = Chr(64 + i) & ":"
        f = Dir(dl & "\assistant qualite\", vbDirectory)
        If f <> "" Then Exit For
        dl = ""
    Next i
    If dl = "" Then MsgBox "répertoire non trouvé": Exit Sub
    On Error GoTo 0
    'ouverture de mes fichiers'
    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Serop client.xls"

    Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Windows( _
            "Export Analyse delais Serop client.xls" _
            ).Activate
    Application.CutCopyMode = False
    'fermeture du ficher sans enregistrer'
    Workbooks("Export Analyse delais Serop client").Close SaveChanges:=False

    Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Serop client").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False

    Windows( _
            "Export analyse délais V3.xlsm" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

    'MECA CLIENT'

    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca client.xls"

    Columns("C:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Windows( _
            "Export Analyse delais Meca client.xls" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca client").Close SaveChanges:=False

    Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("MECA client").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False

    Windows( _
            "Export analyse délais V3.xlsm" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

    'MECA FOURNISSEUR'
    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Meca fournisseur.xls"

    Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Windows( _
            "Export Analyse delais Meca fournisseur.xls" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Meca fournisseur").Close SaveChanges:=False

    Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Fournisseur MECA").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False

    Windows( _
            "Export analyse délais V3.xlsm" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False

    'SEROP Fournisseurs'

    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export analyse délais V3.xlsm"
    Workbooks.Open Filename:= _
                   dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\Export Analyse delais Serop fournisseur.xls"

    Columns("C:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    Selection.Copy
    Windows("Export analyse délais V3.xlsm").Activate
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Windows( _
            "Export Analyse delais Serop fournisseur.xls" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export Analyse delais Serop fournisseur").Close SaveChanges:=False

    Application.Run "'Export analyse délais V3.xlsm'!Filtrer2"

    Columns("A:E").Select
    Selection.Copy
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Fournisseur SEROP").Select
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False

    Windows( _
            "Export analyse délais V3.xlsm" _
            ).Activate
    Application.CutCopyMode = False
    Workbooks("Export analyse délais V3").Close SaveChanges:=False
    Sheets("Statistiques Global").Select
End Sub

Option Explicit
Sub enregistrer()
    Dim nompdf As String

    On Error GoTo erreur

    nompdf = dl & "\ASSISTANT QUALITE\Calcul des Indicateurs\" & Range("C12").Value & "_" & Range("C13").Value & "_" & Format([C14], "mmmm_yyyy")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

    Exit Sub

erreur:

    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

End Sub
Le 07/11/2017 à 14:34

Bonjour,

Merci pour ta réponse, hélas je n'ai pas le temps de la tester j'ai une autre mission prioritaire qui vient d'arriver.

Des que j'ai le temps je te dis ce qu'il en est.

Rechercher des sujets similaires à "probleme changement disque"