BESOIN D'AIDE URGENTE MACROS EXCEL 2003

Question

Bonjour,
je viens vers vous pour trouver une solution à mon GROS problème pour créer une macro sur Excel.
Je dois faire en sorte de rapatrier des données de quatre tableaux excel à ramener sur un seul.
Deux d'entre eux ont exactement les même colonnes et deux autres non.
Je dois donc pouvoir sélectionner les colonnes que je veux ramener et cela doit se faire après automatiquement, les données à la suite les unes des autres.
On m'a dit que je pouvais faire ça avec une macro qui fait une boucle... après je comprenais plus.
Mon problème est que l'on m'a embaucher pour ce poste et que j'ai un mois pour réussir ça ou je pense que j'ai de grande chance de dégager.
En espérant que quelqu'un me vienne en aide.

pijaku · Answer

Bonjour,
Tout d'abord ces macros ne sont pas de moi... Récupérées sur Internet peut être ici. Désolé pour les sources, mais franchement j'aurais du les noter.

Bon c'est une bonne piste pour toi, afin de ne pas perdre ton job...
Tes 4 fichiers doivent être dans un même répertoire. Rien d'autre dans ce répertoire. 
La macro te demande :
1- le répertoire
2- l'extension de tes fichiers (taper xls pour fichiers excel)
3- pour chaque fichier ouvert : demande de sélectionner la plage à copier.

Le résultat apparait sur le document avec en gras rouge le chemin + nom du fichier copié et en dessous ce que vous aurez demandé.
Bon courage

A oui le lien : https://www.cjoint.com/?lgonl4agMi

itreal · Answer

Déjà merci pour cette réponse aussi rapide.
Le petit problème que je n'ai pas précisé c'est que ces fichiers ne proviennent pas du même pc.
Ils proviennent de quatre pc différents, mais sur le même réseau, seul les répertoires changent.
De plus, même si je pense qu'avec votre réponse, je me rapproche de la solution, il faudrait que cela se fasse automatique dès l'ouverture du tableau excel "cible".
Car ce tableau qui récupère toutes les données est prévus pour mon responsable, qui doit en un seul fichiers voir toutes les données.
J'espère que je suis clair (je suis pas sur lol) et encore merci de votre aide.

pijaku · Answer

C'est encore plus facile... Les chemins d'accès et noms de fichiers sont fixes?

pijaku · Answer

Le lien : https://www.cjoint.com/?lgplEwJbo4

Démarches : 
1- Ouvrir le classeur autoriser les macros
2- ALT + F11
remplacer :
- les 2 NomFic par le chemin complet + nom + extension du fichier 1 à ouvrir (un exemple est indiqué)
- les 2 NomFic2 par le chemin complet + nom + extension du fichier 2 à ouvrir (un exemple est indiqué)
etc jusqu'à NomFic4
- remplacer les nom du classeur 1, 2, 3, 4 par les noms + extension des fichiers à ouvrir
- remplacer les "A1:G5000" par la plage du fichier source concerné par la copie.
- enlever toutes les ' de début de lignes
- fermer VBA avec la croix
- enregistrer le fichier
le fermer et l'ouvrir...

pijaku · Answer

Bonjour,
remplacer les "A1:G5000" En fait, dans vos 4 fichiers vous ne voulez pas copier coller les 256 colonnes et quelques 65000 lignes. Vous ne voulez qu'une plage de cellules. C'est donc par cette plage que vous devez remplacer dans la macro les "A1:G5000"...

pou pouille · Answer

bonjour, peut etre essayer quelquechose dans ce genre ( cela compte le nombre de ligne dans le tableau)
dim Nb_lignes as variant
Nb_lignes=cells(rows.count,1).end(xlup).row
'remplacer "A1:G5000" par :
"A1:G" & Nblignes

pijaku · Answer

Alors je viens de voir un erreur sur la macro que je t'ai donné... Pour que la plage soit variable, les tableaux étant alimentés tous les jours, je te l'ai refaite et ça donne :
Sub importer_donnees ()
Dim derlig as Integer, dercol as integer
ActiveSheet.Range("A2:AZ65536").ClearContents
Workbooks.Open Filename:=NomFic '(exemple : "C:\Documents and Settings\Bureau\Nouveau dossier\augmentation.xls")
With Workbooks("ouvrir documents.xls").Sheets("Feuil1")
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic
.Range("A65536").End(xlUp).Font.Bold = True
.Range("A65536").End(xlUp).Font.ColorIndex = 3
End With
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Workbooks(Nom du classeur exemple : "augmentation.xls").ActiveSheet.Range(Cells(1, 1),Cells(derlig, dercol)).Copy Workbooks("ouvrir documents.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 0)
Workbooks(Nom du classeur).Close

Workbooks.Open Filename:=NomFic2 '(exemple : "C:\Documents and Settings\Bureau\Nouveau dossier\augmentation.xls")
With Workbooks("ouvrir documents.xls").Sheets("Feuil1")
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic2
.Range("A65536").End(xlUp).Font.Bold = True
.Range("A65536").End(xlUp).Font.ColorIndex = 3
End With
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Workbooks(Nom du classeur exemple : "augmentation.xls").ActiveSheet.Range(Cells(1, 1),Cells(derlig, dercol)).Copy Workbooks("ouvrir documents.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 0)
Workbooks(Nom du classeur2).Close

Workbooks.Open Filename:=NomFic3 '(exemple : "C:\Documents and Settings\Bureau\Nouveau dossier\augmentation.xls")
With Workbooks("ouvrir documents.xls").Sheets("Feuil1")
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic3
.Range("A65536").End(xlUp).Font.Bold = True
.Range("A65536").End(xlUp).Font.ColorIndex = 3
End With
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Workbooks(Nom du classeur exemple : "augmentation.xls").ActiveSheet.Range(Cells(1, 1),Cells(derlig, dercol)).Copy Workbooks("ouvrir documents.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 0)
Workbooks(Nom du classeur3).Close

Workbooks.Open Filename:=NomFic4 '(exemple : "C:\Documents and Settings\Bureau\Nouveau dossier\augmentation.xls")
With Workbooks("ouvrir documents.xls").Sheets("Feuil1")
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic4
.Range("A65536").End(xlUp).Font.Bold = True
.Range("A65536").End(xlUp).Font.ColorIndex = 3
End With
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Workbooks(Nom du classeur exemple : "augmentation.xls").ActiveSheet.Range(Cells(1, 1),Cells(derlig, dercol)).Copy Workbooks("ouvrir documents.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 0)
Workbooks(Nom du classeur4).Close
End Sub
Et j'espère que j'ai mis au on endroit la cible de mon tableau base boulot1.xls
 Peu importe ou se trouve ton/tes fichiers. Le pricipal étant d'indiquer dans la macro (en gras ci dessus) les bons chemins de tes 4 fichiers.
Démarches :
- Ouvre un classeur vide, enregistrer sous : ouvrir documents.xls
- copier/ coller la macro ci dessus dans un module (ALT+F11, Insertion/Modules)
- modifier les chemins des 4 fichiers à "importer"
- Fermer la fenêtre Visual Basic
- Enregistrer
- Tester : ALT+F8 choisir : importer_donnees et "exécuter"

pijaku · Answer

Essaye ceci :

Sub importer_donnees() 
Dim derlig As Integer, dercol As Integer 
ActiveSheet.Range("A2:AZ65536").ClearContents 
Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot1.xls" 
With Workbooks("baseboulot.xls").Sheets("Feuil1") 
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic 
.Range("A65536").End(xlUp).Font.Bold = True 
.Range("A65536").End(xlUp).Font.ColorIndex = 3 
End With 
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column 
Workbooks("baseboulot1.xls").ActiveSheet.Range(Cells(1, 1),Cells(derlig, dercol)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 0) 
Workbooks("baseboulot1.xls").Close 
Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\base boulot2.xls"
With Workbooks("baseboulot.xls").Sheets("Feuil1") 
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic2 
.Range("A65536").End(xlUp).Font.Bold = True 
.Range("A65536").End(xlUp).Font.ColorIndex = 3 
End With 
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column 
Workbooks("baseboulot2.xls").ActiveSheet.Range(Cells(1, 1),Cells(derlig, dercol)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 0) 
Workbooks("baseboulot2.xls").Close 
End Sub

itreal · Answer

Et aussi, est ce que c'est possible qu'il exécute la macro dès l'ouverture de mon tableau ?

itreal · Answer

Arf!!!
Encore un souci, je vois qu'il ferme automatiquement mes tableaux sources lorsque je lance la macro.

pijaku · Answer

Non le module tu le supprimes, si tout ton code est dans This workbook...

Pour copier le contenu de la colonne C et le placer dans le fichier "destination" colonne D: 

Workbooks("baseboulot1.xls").ActiveSheet.Range(Cells(1, 3),Cells(derlig, 3)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(2, 3)

pijaku · Answer

Salut,
'Fectivement... Pour remédier à cela il faut "mémoriser" le numéro de la ligne ou tu veux que tout se colle :
Dim numligne as integer
With Workbooks("baseboulot.xls").Sheets("Feuil1")
numlign = .Range("A65536").End(xlUp).Offset(1, 0).Row
End With
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, 1)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A" & numligne) 
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 2), Cells(derlig, 2)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("B" & numligne) 
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 4), Cells(derlig, 4)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("D" & numligne) 

si c'est possible de lui demander de trier automatiquement  oui mais tout dépends quoi comment pourquoi?

pou pouille · Answer

je viens de lire qu'il fallait d'abord activer la feuille, avant la fonction(je suis pas sure de ca)

itreal · Answer

Ça marche, incroyable !!! MERCI

Je peux abuser par rapport au tri ?
Si tu as encore un peu de temps bien sur.

itreal · Answer

AH purée non, j'ai une erreur.
J'ai ma cellule A1 qui normalement est l'entête de mon tableau qui vient d'être remplacée par une donnée.
1	Date d'enregist	Date courrier
1	27/10/2009	13/10/2009
3	27/10/2009	13/10/2009
au lieu de
N°	Date d'enregist	Date courrier
1	27/10/2009	13/10/2009
3	27/10/2009	13/10/2009

pijaku · Answer

Pour moi, le tri ne devrait pas se faire automatiquement à l'ouverture. C'est un choix que tu devrais laisser à l'utilisateur...
Mais effectivement, on peux faire une macro dans ce sens...

pijaku · Answer

Un exemple de ce qui peux être fait : ici

itreal · Answer

Excuse  moi pijaku mais je comprends pas, pourquoi au début tout marchait bien et là le fait de choisir des colonnes à insérer fait tout merder ?
Mais surtout, je ne comprends pas où je dois faire ce changement dont tu me parles A1 en A2 ?

Private Sub Workbook_Open()
Dim derlig As Integer, dercol As Integer
ActiveSheet.Range("A2:AZ65536").ClearContents

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot1.xls"
With Workbooks("baseboulot.xls").Sheets("Feuil1")
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic
.Range("A65536").End(xlUp).Font.Bold = True
.Range("A65536").End(xlUp).Font.ColorIndex = 3
End With
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Workbooks("baseboulot1.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, dercol)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot2.xls"
With Workbooks("baseboulot.xls").Sheets("Feuil1")
.Range("A65536").End(xlUp).Offset(2, 0) = NomFic2
.Range("A65536").End(xlUp).Font.Bold = True
.Range("A65536").End(xlUp).Font.ColorIndex = 3
End With
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Workbooks("baseboulot2.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, dercol)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot3.xls"
Dim numligne As Integer
With Workbooks("baseboulot.xls").Sheets("Feuil1")
numligne = .Range("A65536").End(xlUp).Offset(1, 0).Row
End With
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, 1)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A" & numligne)
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 2), Cells(derlig, 2)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("B" & numligne)
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 4), Cells(derlig, 4)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("C" & numligne)
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 7), Cells(derlig, 7)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("D" & numligne)

End Sub

pijaku · Answer

C'est quoi ces nomfic, nomfic2 etc ... Tu devais les changer pour mettre les noms de tes fichiers......... Comme ceci :

Private Sub Workbook_Open() 
Dim derlig As Integer, dercol As Integer 
ActiveSheet.Range("A2:AZ65536").ClearContents 

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot1.xls" 
With Workbooks("baseboulot.xls").Sheets("Feuil1") 
.Range("A65536").End(xlUp).Offset(2, 0) = "baseboulot1.xls" 
.Range("A65536").End(xlUp).Font.Bold = True 
.Range("A65536").End(xlUp).Font.ColorIndex = 3 
End With 
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column 
Workbooks("baseboulot1.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, dercol)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) 

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot2.xls" 
With Workbooks("baseboulot.xls").Sheets("Feuil1") 
.Range("A65536").End(xlUp).Offset(2, 0) = baseboulot2.xls" 
.Range("A65536").End(xlUp).Font.Bold = True 
.Range("A65536").End(xlUp).Font.ColorIndex = 3 
End With 
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
dercol = Range("A1").SpecialCells(xlCellTypeLastCell).Column 
Workbooks("baseboulot2.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, dercol)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) 

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\essai\baseboulot3.xls" 
Dim numligne As Integer 
With Workbooks("baseboulot.xls").Sheets("Feuil1") 
numligne = .Range("A65536").End(xlUp).Offset(1, 0).Row 
End With 
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, 1)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("A" & numligne) 
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 2), Cells(derlig, 2)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("B" & numligne) 
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 4), Cells(derlig, 4)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("C" & numligne) 
Workbooks("baseboulot3.xls").ActiveSheet.Range(Cells(2, 7), Cells(derlig, 7)).Copy Workbooks("baseboulot.xls").Sheets("Feuil1").Range("D" & numligne) 

End Sub

Essaye déjà ça et reviens après

itreal · Answer

J'en ai marre, j'ai un nouveau problème.
Il ne prend pas toutes les lignes de mon "baseboulot3"

pijaku · Answer

Ne pas cèder à la panique!
La macro, tous les codes donnés ci-dessus sont corrects. Envoie moi par mail (tu trouveras mon adresse perso dans mon profil) tes 5 classeurs, je ferais en sorte que les petits réglages de fin fonctionnent.

itreal · Answer

Je vois en plus qu'il mélange des données, si la "base4" n'a pas de données à alimenter dans la colonne AA de mon tableau "cible".
Il me prend des donnée d'une autre base et le met sur la même ligne dans ma cible.

pijaku · Answer

Déjà la couleur : A la fin de la macro... comme ceci :

Private Sub Workbook_Open() 
Dim derlig As Integer, dercol As Integer, numligne As Integer, i As Integer 

ActiveSheet.Range("A2:Z65536").ClearContents 

Workbooks.Open Filename:="C:\Documents and Settings\rperez\Mes documents\bureau\base1.xls" 
With Workbooks("cible.xls").Sheets("Feuil1") 
numligne = .Range("A65536").End(xlUp).Offset(1, 1).Row 
End With 
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 1), Cells(derlig, 1)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("A" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 2), Cells(derlig, 2)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("H" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 3), Cells(derlig, 3)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("L" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 4), Cells(derlig, 4)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("G" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 5), Cells(derlig, 5)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("D" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 6), Cells(derlig, 6)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("J" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 7), Cells(derlig, 7)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("O" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 9), Cells(derlig, 9)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("P" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 10), Cells(derlig, 10)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("Y" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 11), Cells(derlig, 11)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("AA" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 12), Cells(derlig, 12)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("AB" & numligne) 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 14), Cells(derlig, 14)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("AC" & numligne) 

Workbooks("cible.xls").Activate 
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
Range("A2").Select 
Range("A1:AL" & derlig).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ 
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal 

derlig = Range("AE65536").End(xlUp).Row 
For i = 2 To derlig 
If Range("AA" & i) <> "" Then 
With Range(Cells(i, 1), Cells(i, 38)).Interior 
.ColorIndex = 3 
End With 
End If 
Next i 

End Sub

2- explication du copier coller :
première partie de la phrase = partie à copier ex: 
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 9), Cells(derlig, 9)).Copy 
signifie : Classeur"base1", feuille active, Selection de cellules de I2 à I dernière ligne, à copier
la deuxième partie = ou coller? ex :
Workbooks("cible.xls").Sheets("Feuil1").Range("P" & numligne) 
signifie coller à : Classeur"cible", Feuille 1, à partir de la cellule P et numligne qui est la variable renseignant la première ligne vide en bas de feuille...
Donc pour copier AA en Q tu devrais avoir quelque chose comme :
Workbooks("base1.xls").ActiveSheet.Range(Cells(2, 27), Cells(derlig, 27)).Copy Workbooks("cible.xls").Sheets("Feuil1").Range("Q" & numligne) 
Or je ne vois cela nulle part dans ton code...

pijaku · Answer

Salut,
Remplace au début de ta macro :
ActiveSheet.Range("A2:Z65536").ClearContents 
par : 
ActiveSheet.Range("A2:AZ65536").Delete

itreal · Answer

Il me met qu'il y a un bug dans ma macro que tu m'avais donné pour trier, à la ligne :
"derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row"

qui se trouve ici :
"Workbooks("cible.xls").Activate
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
Range("A2").Select
   Range("A1:AL" & derlig).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
      xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal"

pijaku · Answer

Oui c'est tout à fait normal qu'il y ai un bug ici car : Range("A1").SpecialCells(xlCellTypeLastCell).Row ne peux pas être utilisé plusieurs fois de suite sans enregistrement du classeur.
2 choix :
1- tu enregistres le classeur avant cette ligne :
Workbooks("cible.xls").Activate 
Workbooks("cible.xls").Save
derlig = Range("A1").SpecialCells(xlCellTypeLastCell).Row 
Range("A2").Select 
Range("A1:AL" & derlig).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ 
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
DataOption1:=xlSortNormal

2- tu remplaces : Range("A1").SpecialCells(xlCellTypeLastCell).Row 
par : derlig = Range("A65536").End(xlUp).Row

Personnellement je préfères la 2ème solution, mais à toi de voir...

BESOIN D'AIDE URGENTE MACROS EXCEL 2003

26 réponses

Votre réponse

Newsletters