Bonjour à tous.

J'ai plusieurs postes de travail chez mon employeur. Certain ont XP avec la version 2003 ou 2007 d'excel.
Plusieurs autres ordinateurs ont Windows 7 avec excel 2007 ou 2010...

Sous Xp, aucun problème d'impression avec les deux versions d'excel.

Sous Windows 7, ça ne fonctionne pas...

Voici mon 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
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
43
44
45
46
Sub vecteurTAXPREP()
'
'     Dim NewCC As Integer
    Dim CeFichier As String
    Dim SauverSous As String
    Dim Vecteur As String
    Dim Lignes As Integer
 
    Vecteur = [NomduFichierVecteur]
    SauverSous = [SaveAsVecteur]
    CeFichier = ThisWorkbook.Name
    NewCC = [NewClient] 'détermine si c'est un nouveau client si = 1
    LeNomDuFichier = [OuvreVecteur]
    RepSaveTec = [RepPourSave]
    Lignes = [NombreLigneVecteur]
 
    If NewCC = 1 Then
    Workbooks.Open Filename:=Vecteur
    Windows(CeFichier).Activate
 
    Sheets("Vecteur").Visible = -1
    Sheets("Vecteur").Select
 
    Range("A1:G" & Lignes).Select
    Selection.Copy
 
    Windows(LeNomDuFichier).Activate
 
    Range("A1").Select
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    ChDir (RepSaveTec)
    ActiveWorkbook.SaveAs Filename:=SauverSous, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
 
 
    Windows(CeFichier).Activate
    Sheets("Vecteur").Visible = 2
    [NewClient] = 0
 
    End If
End Sub
Quelqu'un peut m'aider car pour l'instant l'instruction # 34 ne semble pas être pris en compte. L'enregistrement se fait à un autre endroit que celui indiqué.

Dlight