Importer des données dans un classeur

**sigma17** · 09/02/2012, 17h16

Envoyé par Daniel.C

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
Sub Import()
    Dim Chemin As String, Fich As String, Plage As String, NomFeuille As String
    Dim Teste As Boolean, Sh As Worksheet
    Chemin = "c:\temp"     '*** à modifier
    Plage = "A3:G57"     '*** à modifier
    NomFeuille = "Emissions (g)"     '*** à modifier
    Fich = Dir(Chemin & "\*.xls*")
    Do While Fich <> ""
        Teste = False
        For Each Sh In ThisWorkbook.Worksheets
            If Sh.Name = Left(Fich, 31) Then
                Teste = True
                Exit For
            End If
        Next Sh
        If Teste = False Then
            Sheets.Add.Name = Left(Fich, 31)
            Workbooks.Open Chemin & "\" & Fich
            Sheets(NomFeuille).Range(Plage).Copy
            ThisWorkbook.Sheets(Fich).[A1].PasteSpecial xlPasteValues
            ActiveWorkbook.Close False
        End If
    Fich = Dir
    Loop
End Sub

salut,je viens just d'essayer le code,il est bon mais il me renvoie un erreur(erreur 9, l'indice n'appartient pas à la sélection)
en lieu et place de copier une plage de cellule,comment pourrait on copier toute la feuille.
j'attends avec impatience vos suggestion à mes difficultés,merci d'avance
cordialement

**Daniel.C** · 09/02/2012, 18h06

Non testée :

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
Sub Import()
    'Réf.120209.xlsm
    Dim Chemin As String, Fich As String, Plage As String, NomFeuille As String
    Dim Teste As Boolean, Sh As Worksheet
    Chemin = "c:\temp"     '*** à modifier
    NomFeuille = "Emissions (g)"     '*** à modifier
    Fich = Dir(Chemin & "\*.xls*")
    Do While Fich <> ""
        Teste = False
        For Each Sh In ThisWorkbook.Worksheets
            If Sh.Name = Left(Fich, 31) Then
                Teste = True
                Exit For
            End If
        Next Sh
        If Teste = False Then
            Workbooks.Open Chemin & "\" & Fich
            Sheets(NomFeuille).Copy before:=ThisWorkbook.Sheets(1)
            ThisWorkbook.Sheets(1).Name = Left(Fich, 31)
            ActiveWorkbook.Close False
        End If
    Fich = Dir
    Loop
End Sub

**sigma17** · 09/02/2012, 18h30

[dommage

,c'est la même chose.je crois que mon problème vient de la feuille sage que je veux copier qui est le resultat de l'importation d'une balance sage comptabilité.dans le code quand je mets le curseur sur le nom de la feuille,il indique qu'elle est vide,ce qui n'est pas le cas.
merci bien pour votre intervention,si vous avez d'autre chose je suis preneur

cordialement

**Daniel.C** · 09/02/2012, 18h44

Comme ça, non, mais si tu peux mettre un classeur exemple sans données confidentielles en pièce jointe...

**sigma17** · 11/02/2012, 16h54

salut,comment dois je m'y prendre pour attacher un fichier

pourriez vous commenter les ligne de votre code précédent concernant la copie des feuilles svp,peut être en comprenant mieux le code je pourrais l'adapter à mon cas

**AlainTech** · 11/02/2012, 18h16

Envoyé par sigma17

il me renvoie un erreur(erreur 9, l'indice n'appartient pas à la sélection)

Tu ne nous dis pas sur quelle ligne tu as cette erreur.

Tu ne nous montres pas non plus ton code à toi mais bien celui repris d'une autre discussion.
As-tu adapté les noms tel que mentionné dans le code exemple?

**sigma17** · 12/02/2012, 02h05

bonsoir,j'espère que je serais beaucoup plus claire maintenant,bien voici mon code sus-mentionné,l'erreur est ramenée à la ligne 21.

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
Private Sub Workbook_Open()
Dim Chemin As String, Fich As String, Plage As String, nomfeuille As String
Dim Teste As Boolean, Sh As Worksheet
Chemin = "C:\Documents and Settings\Administrateur\Bureau\nani"
'Plage = "A1:F181"
nomfeuille = "Sage"
Fich = Dir(Chemin & "\*.xls*")
   Do While Fich <> ""
            Test = False
            For Each Sh In ThisWorkbook.Worksheets
                If Sh.Name = Left(Fich, 31) Then
 
                     Teste = True
 
                   Exit For
 
                 End If
             Next Sh
             If Teste = False Then
                 Workbooks.Open Chemin & "\" & Fich
                 Sheets(Sage).Copy before:=ThisWorkbook.Sheets(1)
                 ThisWorkbook.Sheets(1).Name = Left(Fich, 31)
                 Sheets.Add.Name = Fich
                 'Workbooks.Open Chemin & "\" & Fich
                 'Sheets(Sage).Copy
                 'ThisWorkbook.Sheets(Fich).[A1].PasteSpecial xlPasteValues
                 ActiveWorkbook.Close False
 
             End If
          Fich = Dir
    Loop
 
 
 
 
 End Sub

au fait j’extraie des balances mensuelles depuis SAGE COMPTABILITÉ V13 sur excel(2007) dans un répertoire bien précis nommé nani et je veux que chaque feuille extraite soit copiée automatiquement dans un même classeur à part situé aussi dans nani,et que la copie soit dans des feuilles différentes.

cordialement

**AlainTech** · 12/02/2012, 04h58

Bonjour,

Code :

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

Sheets(Sage).Copy

Si tu avais mis Option Explicit en tête de module, tu te serais rendu compte que tu n'as pas de variable nommée Sage.

Par contre tu en as une nommée nomfeuille...

**Daniel.C** · 12/02/2012, 11h27

Et, pour expliciter davantage, soit tu mets :

Code :

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

Sheets(nomfeuille).Copy

soit :

Code :

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

Sheets("Sage").Copy

**sigma17** · 13/02/2012, 15h20

salut,merci bien,je crois que c'est les griffes autour du nom de la feuille qui me manquaient.

malheureusement le problème que je craignais vient d'apparaitre lors de l'exécution,il s'agit du format de mon fichier.

le fichier que je veux copier est au format 2003 puiqu'il est le resultat d'une exportation de sage vers excel
lors de l'exécution j'ai une erreur qui dit que le format du fichier est différent de celui spécifié par l'extention du fichier
j'espère que y'a quelque chose à faire
cordialement

**Daniel.C** · 13/02/2012, 16h35

Il faut que tu enregistres le classeur recevant les feuilles et contenant la macro au format xls. Si tu ne le peux pas, pour une raison quelconque, il faudra modifier la macro.

**AlainTech** · 14/02/2012, 07h18

Envoyé par sigma17

je crois que c'est les griffes autour du nom de la feuille qui me manquaient.

Si tu as modifié le nom de la feuille dans

Code :

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

Sheets(Sage).Copy

Ta variable nomfeuille ne sert plus à rien.

**sigma17** · 14/02/2012, 17h11

Envoyé par Daniel.C

Il faut que tu enregistres le classeur recevant les feuilles et contenant la macro au format xls. Si tu ne le peux pas, pour une raison quelconque, il faudra modifier la macro.

j'ai bien enregistré le classeur contenant la feuille avec la macro au format xls,dans ses conditions il n'arrive pas à ouvrir mes balances exportées au format 2003,il envoi un erreur "incompatibilité du type,le format du fichier est différent de celui spécifié par l'extension" par contre il arrive à ouvrir les fichiers quand je les enregistrent au format 2007 mais il affiche également "erreur '9',l'indice n'appartient pas à la sélection"
comment pourrais je donc modifier la macro pour gérer ses messages d'erreurs?

cordialement

Envoyé par AlainTech

Si tu as modifié le nom de la feuille dans

Code :

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

Sheets(Sage).Copy

Ta variable nomfeuille ne sert plus à rien.

salut,c'est juste puisque je passe directement par le nom de ma feuille,mais ma difficulté concernant la compatibilité des classeurs demeure et quand ils sont compatible j'ai une erreur d'exécution '9' "l'indice n'appartient pas à la sélection".
pourtant quand j'utilise le clic droit sur la feuille pour faire la copie j'ai pas de problème et la copie s'effectue correctement

cordialement

**Daniel.C** · 14/02/2012, 17h30

Si ton fichier cible (contenant la macro) est au format 2003 et que les fichiers et que les balances sont également au format 2003, je ne vois pas comment il peut y avoir une compatibilité... Peux-tu mettre une balance, même sans données en pièce jointe ?

**sigma17** · 15/02/2012, 10h21

bonjour,bien voici une balance extraie de sage 13.1,le fichier est au format excel 2003,il est à noté que la première colonne lors de l'extraction est a le type texte or ce sont des numéro de comptes donc après l'extraction j'ai changé le type texte en type numérique pour éviter les messages d'erreurs et avoir la possibilité de faire des recherches sur cette colonne.
Cordialement

**Daniel.C** · 15/02/2012, 11h10

Ton problème vient du fait que les classeurs Sage ont l'extension ".xls" alors que ce sont des classeurs au format 2007 (1 Mo lignes). Du coup le classeur cible doit être au format 2007. J'ai ajouté du code pour supprimer l'apparition du message. Remplace ton code par celui-ci :

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
Dim Chemin As String, Fich As String, Plage As String, nomfeuille As String
Dim Teste As Boolean, Sh As Worksheet
Chemin = "C:\Documents and Settings\Administrateur\Bureau\nani"
'Plage = "A1:F181"
nomfeuille = "Sage"
Fich = Dir(Chemin & "\sig*.xls*")
   Do While Fich <> ""
            Test = False
            For Each Sh In ThisWorkbook.Worksheets
                If Sh.Name = Left(Fich, 31) Then
 
                     Teste = True
 
                   Exit For
 
                 End If
             Next Sh
             If Teste = False Then
                 Application.DisplayAlerts = False
                 Workbooks.Open Chemin & "\" & Fich
                 Application.DisplayAlerts = True
                 Sheets(nomfeuille).Copy before:=ThisWorkbook.Sheets(1)
                 ThisWorkbook.Sheets(1).Name = Left(Fich, 31)
                 Workbooks(Fich).Close False
             End If
          Fich = Dir
    Loop

**sigma17** · 15/02/2012, 16h02

Merci encore pour votre intérêt et votre promptitude.je viens de tester le code et malheureusement il ne marche pas,je l'ai repassé en revu et j'ai constaté qu'à la ligne 6 vous avez marquez"Fich=Dir(Chemin & "\sig*.xls*"),quand j'exécute rien ne se passe,je ne comprends pas le sig avant l'extension xls.en effet quand je le supprime et que j'exécute,alors le message d'erreur disant" l'indice n'appartient pas à la sélection" apparait et au débogage il met en évidence la linge 22
Cordialement