Copier coller avec office
lenormand49
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
-
lenormand49 Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
lenormand49 Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travail beaucoup avec Word et Excel, en faisant des taches de copier/coller répétitives.
je voudrais savoir si il existe un moyen d'affecter des éléments du presse papier a des touches du clavier, pour eviter d'avoir à faire ctrl c / ctrl v à chaque fois.
Merci
Je travail beaucoup avec Word et Excel, en faisant des taches de copier/coller répétitives.
je voudrais savoir si il existe un moyen d'affecter des éléments du presse papier a des touches du clavier, pour eviter d'avoir à faire ctrl c / ctrl v à chaque fois.
Merci
A voir également:
- Copier coller avec office
- Microsoft office - Guide
- Cette technique secrète permet d'avoir Windows et Microsoft Office gratuitement et à vie - Accueil - Bureautique
- Open office gratuit - Télécharger - Suite bureautique
- Web office - Guide
- Historique copier coller - Guide
8 réponses
Salut de retour de W.E.
Quand je tape ALT+F11 une fenetre Microsoft visual basic -perso.XLS s'ouvre.
il y à 4 sous fenetres dont voici les contenus (ça va etre long ...)
perso.XLS - Module1 (Code)
Sub Bouton_N1()
'Macro permettant l'ouverture d'un client dans N1 a partir d'une REFERENCE, d'un PDL ou d'un TELEPHONE existant dans une cellule Excel
Version$ = "Bouton N1 V61130-1 Denis ARNAUD - Assistance au 0825 890 304 - EGD-VENDEE-PEC-GO"
Dim centre(200), cc$(200)
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' PARAMETRAGE DE LA LISTE DES CODES CENTRES UTILISABLES POUR CE BOUTON :
' (classement par ordre de priorité mais insignifiant en temps de réponse du serveur)
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
centre(1) = 143 ' (Vendée)
centre(2) = 142 ' (Loire Atlantique)
centre(3) = 93 ' (Anjou)
centre(4) = 148 ' (Morbihen)
centre(5) = 146 ' (Iroise)
centre(6) = 91 ' (Sarthe)
centre(7) = 147 ' (Cornouaille)
centre(8) = 92 ' (Mayenne)
centre(9) = 144 ' (Ille & Vilaine)
centre(10) = 145 ' (Cote d'Armor)
centre(11) = 152 ' (Charente Maritime)
centre(12) = 151 ' (Val de Charente)
centre(13) = 154 ' (Vienne & Sevre)
'etc...
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' CONTROLE SI REFERENCE ou PDL ou TELEPHONE VALIDE
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
'SendKeys "%{tab}", 1 ' agrandi la fenêtre précédente
'Application.Wait Now + TimeValue("00:00:02")
On Error Resume Next
ref$ = ActiveCell.Value
On Error GoTo 0
If Len(ref$) = 14 And (Not IsNumeric(Mid$(ref$, 3, 1)) Or Mid$(ref$, 3, 1) = " ") Then ref$ = Left$(ref$, 2) + Mid$(ref$, 4, 2) + Mid$(ref$, 7, 2) + Mid$(ref$, 10, 2) + Right$(ref$, 2) 'téléphone avec des espaces si nécessaire
If Len(ref$) = 15 Then ref$ = Left$(ref$, 3) + Mid$(ref$, 5, 3) + Mid$(ref$, 9, 3) + Right$(ref$, 3) 'ref avec cle suppression des espaces si nécessaire
If Len(ref$) = 11 Then ref$ = Left$(ref$, 3) + Mid$(ref$, 5, 3) + Mid$(ref$, 9, 3) 'ref sans cle suppression des espaces si nécessaire
If Len(ref$) = 9 Then ref$ = ref$ + "*"
erreur$ = "La valeur " + ref$ + " n'est pas une référence ni un PDL !"
If ref$ = "" Then MsgBox "Sélectionnez auparavant la cellule contenant la référence.", vbInformation, Version$: Exit Sub
'If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then MsgBox erreur$, vbInformation: Exit Sub
If Len(ref$) = 12 And Not IsNumeric(ref$) Then MsgBox erreur$, vbInformation, Version$: Exit Sub
If Len(ref$) = 14 And Not IsNumeric(ref$) Then MsgBox "La valeur " + ref$ + " n'est pas une REFERENCE, ni un PDL, ni un TELEPHONE !", vbInformation, Version$: Exit Sub
If Len(ref$) <> 10 And Len(ref$) <> 12 And Len(ref$) <> 14 Then MsgBox "La valeur " + ref$ + " n'est pas une REFERENCE ni un PDL, ni un TELEPHONE !", vbInformation, Version$: Exit Sub
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' DETECTION DE LA FENETRE ACTIVE N1
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
'nb centre
nbc = 1
While centre(nbc) <> 0
cc$(nbc) = Chr$(Int(centre(nbc) / 10) + 64) + Chr$(centre(nbc) - ((Int(centre(nbc) / 10)) * 10) + 64) 'Attribution des codes Centres (NIVEAU1 - xx)
nbc = nbc + 1
Wend
nbc = nbc - 1
'--------------------------------------------
début:
On Error GoTo erreur_fenetre
ok = 0
If ok = 0 Then
f = 6: ok = 1
fenetre$ = "NIVEAU1 (n° 683) -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
f = 3: ok = 1
fenetre$ = "Détail d'un contact -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
f = 4: ok = 1
fenetre$ = "Recherche Client -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
f = 5: ok = 1
fenetre$ = "NIVEAU1 (n° 1049) -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
For n = 1 To nbc 'parcours les codes Centres
f = 1: ok = 1
fenetre$ = "NIVEAU1 - " + cc$(n) + " - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France"
AppActivate fenetre$
If ok = 1 Then Exit For
Next n
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
For n = 1 To nbc 'parcours les codes Centres
f = 2: ok = 1
fenetre$ = "NIVEAU1 - " + cc$(n) + " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France"
AppActivate fenetre$
If ok = 1 Then Exit For
Next n
End If
If ok = 1 Then GoTo trouvé
On Error Resume Next
AppActivate "Microsoft Excel"
AppActivate "Microsoft Excel - " + ActiveWorkbook.Name
Beep
r = MsgBox("Impossible d'accéder à N1 : Vérifiez si N1 est ouvert sur une fenêtre agrandie et adéquate..." + Chr$(10) + Chr$(10) + "Voulez plus d'information sur la résolution de ce problème ? (Info sur la configuration recommandée)", vbYesNo + vbQuestion, Version$)
If r = 6 Then
m$ = "Recommandation :" + Chr$(10) + Chr$(10)
m$ = m$ + " La fenêtre N1 ne doit pas être réduite. Aussi, vous devez impérativement utilisez la barre des tâches" + Chr$(10)
m$ = m$ + " (ou Alt+Tab) pour basculer de N1 à Excel." + Chr$(10) + Chr$(10) + Chr$(10) + Chr$(10)
m$ = m$ + "La configuration du menu <Préférences> de N1 :" + Chr$(10) + Chr$(10)
m$ = m$ + " Choisissez le menu : Fichier / Préférences de N1" + Chr$(10) + Chr$(10)
m$ = m$ + " - La sélection Automatique doit être cochée." + Chr$(10)
m$ = m$ + " - L'option Position du curseur à l'ouverture doit être reglé sur Référence."
MsgBox m$, vbInformation, Version$
m$ = "Liste des fenêtres N1 reconnues et gérées par le Bouton N1 :" + Chr$(10) + Chr$(10)
m$ = m$ + "- NIVEAU1 - xx - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France" + Chr$(10)
m$ = m$ + "- NIVEAU1 - xx - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France" + Chr$(10)
m$ = m$ + "- Détail d'un contact -- Dialogue de page Web" + Chr$(10)
m$ = m$ + "- Recherche Client -- Dialogue de page Web" + Chr$(10)
m$ = m$ + "- NIVEAU1 (n° 1049) -- Dialogue de page Web" + Chr$(10)
m$ = m$ + "- NIVEAU1 (n° 683) -- Dialogue de page Web"
MsgBox m$, vbInformation, Version$
m$ = "Liste des codes Centres paramétrés pour ce bouton N1 :" + Chr$(10) + Chr$(10)
For n = 1 To nbc
m$ = m$ + Str$(centre(n)) + " -> Correspondance fenêtre N1 : ...NIVEAU1 - " + cc$(n) + "..." + Chr$(10)
Next n
m$ = m$ + Chr$(10) + "Si votre code Centre n'apparait pas ci-dessus : le bouton est mal configuré dans la macro..."
MsgBox m$, vbInformation, Version$
End If
Exit Sub
'--------------------
erreur_fenetre:
ok = 0
Beep
Resume Next
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' PILOTAGE DE N1
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
trouvé:
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 1 Then ' fenetre$ = "NIVEAU1 - Nx - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France"
Application.StatusBar = "Recherche Client -- Dialogue de page Web"
SendKeys "%fr", 1
SendKeys "~", 1
sec = 2
fenetre$ = "Recherche Client -- Dialogue de page Web"
On Error GoTo attente_ouverture
tentative1:
AppActivate fenetre$
Application.Wait Now + TimeValue("00:00:02")
If Len(ref$) = 14 Then SendKeys "{tab}", 1
If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then For x = 1 To 3: SendKeys "{tab}", 1: Next x ': Application.Wait Now + TimeValue("00:00:01"):
SendKeys ref$, 1
SendKeys "~", 1
Application.StatusBar = "Recherche Client -- Dialogue de page Web -> TERMINE"
Exit Sub
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 2 Then ' fenetre$ = "NIVEAU1 - Nx - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France"
Application.StatusBar = "NIVEAU1 - " & cc$(n) & " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France"
AppActivate "Microsoft Excel - " + ActiveWorkbook.Name
If Len(ref$) = 14 Then MsgBox "Environnement TGC détecté..." + Chr$(10) + "La TGC ne permet pas d'ouvrir le PDL " + ref$ + ", utiliser plutôt l'environnement Niveau1.", vbExclamation: Exit Sub
If Len(ref$) = 10 And IsNumeric(ref$) Then MsgBox "Environnement TGC détecté..." + Chr$(10) + "La TGC ne permet pas d'ouvrir un PDL ou TELEPHONE (" + ref$ + "), utiliser plutôt l'environnement Niveau1.", vbExclamation, Version$: Exit Sub
If Len(ref$) = 12 Then r = MsgBox("Environnement TGC détecté..." + Chr$(10) + "confirmer la commande FS/" + ref$ + " ?", vbQuestion + vbYesNo, Version$)
If Len(ref$) = 10 And Right$(ref$, 1) = "*" Then ref$ = Left$(ref$, 9) + "/an": r = MsgBox("Environnement TGC détecté..." + Chr$(10) + "confirmer la commande FS/" + ref$ + " ?", vbQuestion + vbYesNo, Version$)
AppActivate fenetre$
If r = 6 Then
Application.Wait Now + TimeValue("00:00:02")
SendKeys "{tab 6}", 1
SendKeys "{down}", 1
SendKeys "+{left 20}", 1
SendKeys "FS/" + ref$ + "~", 1
Application.Wait Now + TimeValue("00:00:04") ' -----------------> 'Bascule de N1 vers TGC
SendKeys "%m", 1
SendKeys "{F9}", 1
End If
Application.StatusBar = "NIVEAU1 - " & cc$(n) & " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France -> TERMINE"
Exit Sub
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 3 Then ' fenetre$ = "Détail d'un contact -- Dialogue de page Web"
Application.StatusBar = "Détail d'un contact -- Dialogue de page Web"
SendKeys "{ESC}", 1
Application.Wait Now + TimeValue("00:00:02")
Application.StatusBar = "Détail d'un contact -- Dialogue de page Web -> TERMINE"
End If
If f = 3 Then GoTo début
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 4 Then 'fenetre$ = "Recherche Client -- Dialogue de page Web"
Application.StatusBar = "Recherche Client -- Dialogue de page Web"
If Len(ref$) = 14 Then SendKeys "{tab}", 1
If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then Application.Wait Now + TimeValue("00:00:01"): For x = 1 To 3: SendKeys "{tab}", 1: Application.Wait Now + TimeValue("00:00:01"): Next x
SendKeys ref$, 1
SendKeys "~", 1
Application.StatusBar = "Recherche Client -- Dialogue de page Web -> TERMINE"
Exit Sub
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 5 Then 'fenetre$ = "NIVEAU1 (n° 1049) -- Dialogue de page Web"
Application.StatusBar = "NIVEAU1 (n° 1049) -- Dialogue de page Web"
SendKeys "~", 1
Application.Wait Now + TimeValue("00:00:03")
Application.StatusBar = "NIVEAU1 (n° 1049) -- Dialogue de page Web -> TERMINE"
End If
If f = 5 Then GoTo début
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 6 Then 'fenetre$ = "NIVEAU1 (n° 683) -- Dialogue de page Web"
Application.StatusBar = "NIVEAU1 (n° 683) -- Dialogue de page Web"
Application.Wait Now + TimeValue("00:00:01")
SendKeys "~", 1
Application.Wait Now + TimeValue("00:00:02")
Application.StatusBar = "NIVEAU1 (n° 683) -- Dialogue de page Web -> TERMINE"
End If
If f = 6 Then GoTo début
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Vous pouvez poursuivre des automatismes complémentaires en saisissant le code supplémentaire ci-dessous :
'(ex : Création / Modif / Suppression d'ac, Création de courrier, etc...)
Exit Sub
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' GESTION DU TEMPS DE REPONSE DU SERVEUR
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
attente_ouverture:
Application.StatusBar = "ATTENTE OUVERTURE" + Str$(sec) + " s : " + fenetre$
Application.Wait Now + TimeValue("00:00:01"): sec = sec - 1
If sec < 0 Then
ActiveWindow.WindowState = xlMaximized
AppActivate "Microsoft Excel - " + ActiveWorkbook.Name
Beep
Application.StatusBar = "L'environnement N1 a été détecté mais impossible de le piloter..."
MsgBox "L'environnement N1 a été détecté mais impossible de le piloter..." + Chr$(10) + Chr$(10) + "Causes possibles :" + Chr$(10) + Chr$(10) + "- Un client est déja ouvert." + Chr$(10) + "- La fenêtre N1 n'est pas en position agrandie (vous devez utilisez <Alt>+<Tab> pour basculer de N1 vers Excel)." + Chr$(10) + "- Serveur trop lent.", vbInformation, Version$
On Error Resume Next
'AppActivate fenetre$
Exit Sub
End If
If f = 1 Then Resume tentative1
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
End Sub
Djnda.xls - Module1 (Code)
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/04/2008 par Jean-Pierre MARTIN
'
Sheets("Djnda").Activate
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Menu").Select
Sheets.Add
Sheets(1).Select
Sheets(1).Name = "Djnda"
Range("A1").Select
'
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDANB.XLS"
Windows("DJNDANB.XLS").Activate
Range("A1").Select
Columns("A:BL").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Application.CutCopyMode = False
Windows("DJNDANB.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDAIB.XLS"
Windows("DJNDAIB.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDAIB.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDAIC.XLS"
Windows("DJNDAIC.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDAIC.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDAIA.XLS"
Windows("DJNDAIA.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDAIA.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDANC.XLS"
Windows("DJNDANC.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDANC.XLS").Activate
ActiveWorkbook.Close
Range("A1").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],2)"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C21362"), Type:=xlFillDefault
Range("C2:C21362").Select
ActiveWindow.LargeScroll Down:=-33
ActiveWindow.ScrollRow = 1
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]&RC[-3]&RC[-2]&RC[-1]"
Range("F3").Select
Columns("F:F").EntireColumn.AutoFit
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F21983"), Type:=xlFillDefault
Range("F2:F21983").Select
ActiveWindow.ScrollRow = 1
Columns("F:F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:E").Select
Range("E1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "REF"
Range("A2").Select
Sheets("Menu").Select
Range("A2").Select
End Sub
Djnda.xls - Module 13 (Code)
Sub Filtre_L9_de_la_veille()
'
' Filtre_L9_de_la_veille Macro
' Macro enregistrée le 13/06/2008 par KIC22S
'
'
Sheets("Djnda").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Sheets("Menu").Select
Rows("33:33").Select
Selection.Copy
Sheets("Djnda").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.LargeScroll ToRight:=1
Application.CutCopyMode = False
Cells.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("N1:V2") _
, Unique:=False
Rows("2:2").Select
Range("K2").Activate
Selection.Delete Shift:=xlUp
ActiveWindow.LargeScroll ToRight:=-1
Range("A1").Select
Sheets("Menu").Select
Range("A2").Select
End Sub
Djnda.xls Module14 (Code)
Sub Suppression_AC_agents()
'
' Suppression_AC_agents Macro
' Macro enregistrée le 13/06/2008 par KIC22S
'
'
Rows("2:41").Select
Selection.Copy
Sheets("Djnda").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("I2").Select
Application.CutCopyMode = False
Range("A1:BI22013").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("K1:K41"), Unique:=False
Rows("48:23000").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.ShowAllData
Range("A1:BN23000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J41"), Unique:=False
Rows("2:23001").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A2").Select
Sheets("Menu").Select
Range("A2").Select
End Sub
Voila , si quelqu'un à le courage de lire tout ça et la capacite de le comprendre ... Chapo
A+
Quand je tape ALT+F11 une fenetre Microsoft visual basic -perso.XLS s'ouvre.
il y à 4 sous fenetres dont voici les contenus (ça va etre long ...)
perso.XLS - Module1 (Code)
Sub Bouton_N1()
'Macro permettant l'ouverture d'un client dans N1 a partir d'une REFERENCE, d'un PDL ou d'un TELEPHONE existant dans une cellule Excel
Version$ = "Bouton N1 V61130-1 Denis ARNAUD - Assistance au 0825 890 304 - EGD-VENDEE-PEC-GO"
Dim centre(200), cc$(200)
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' PARAMETRAGE DE LA LISTE DES CODES CENTRES UTILISABLES POUR CE BOUTON :
' (classement par ordre de priorité mais insignifiant en temps de réponse du serveur)
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
centre(1) = 143 ' (Vendée)
centre(2) = 142 ' (Loire Atlantique)
centre(3) = 93 ' (Anjou)
centre(4) = 148 ' (Morbihen)
centre(5) = 146 ' (Iroise)
centre(6) = 91 ' (Sarthe)
centre(7) = 147 ' (Cornouaille)
centre(8) = 92 ' (Mayenne)
centre(9) = 144 ' (Ille & Vilaine)
centre(10) = 145 ' (Cote d'Armor)
centre(11) = 152 ' (Charente Maritime)
centre(12) = 151 ' (Val de Charente)
centre(13) = 154 ' (Vienne & Sevre)
'etc...
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' CONTROLE SI REFERENCE ou PDL ou TELEPHONE VALIDE
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
'SendKeys "%{tab}", 1 ' agrandi la fenêtre précédente
'Application.Wait Now + TimeValue("00:00:02")
On Error Resume Next
ref$ = ActiveCell.Value
On Error GoTo 0
If Len(ref$) = 14 And (Not IsNumeric(Mid$(ref$, 3, 1)) Or Mid$(ref$, 3, 1) = " ") Then ref$ = Left$(ref$, 2) + Mid$(ref$, 4, 2) + Mid$(ref$, 7, 2) + Mid$(ref$, 10, 2) + Right$(ref$, 2) 'téléphone avec des espaces si nécessaire
If Len(ref$) = 15 Then ref$ = Left$(ref$, 3) + Mid$(ref$, 5, 3) + Mid$(ref$, 9, 3) + Right$(ref$, 3) 'ref avec cle suppression des espaces si nécessaire
If Len(ref$) = 11 Then ref$ = Left$(ref$, 3) + Mid$(ref$, 5, 3) + Mid$(ref$, 9, 3) 'ref sans cle suppression des espaces si nécessaire
If Len(ref$) = 9 Then ref$ = ref$ + "*"
erreur$ = "La valeur " + ref$ + " n'est pas une référence ni un PDL !"
If ref$ = "" Then MsgBox "Sélectionnez auparavant la cellule contenant la référence.", vbInformation, Version$: Exit Sub
'If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then MsgBox erreur$, vbInformation: Exit Sub
If Len(ref$) = 12 And Not IsNumeric(ref$) Then MsgBox erreur$, vbInformation, Version$: Exit Sub
If Len(ref$) = 14 And Not IsNumeric(ref$) Then MsgBox "La valeur " + ref$ + " n'est pas une REFERENCE, ni un PDL, ni un TELEPHONE !", vbInformation, Version$: Exit Sub
If Len(ref$) <> 10 And Len(ref$) <> 12 And Len(ref$) <> 14 Then MsgBox "La valeur " + ref$ + " n'est pas une REFERENCE ni un PDL, ni un TELEPHONE !", vbInformation, Version$: Exit Sub
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' DETECTION DE LA FENETRE ACTIVE N1
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
'nb centre
nbc = 1
While centre(nbc) <> 0
cc$(nbc) = Chr$(Int(centre(nbc) / 10) + 64) + Chr$(centre(nbc) - ((Int(centre(nbc) / 10)) * 10) + 64) 'Attribution des codes Centres (NIVEAU1 - xx)
nbc = nbc + 1
Wend
nbc = nbc - 1
'--------------------------------------------
début:
On Error GoTo erreur_fenetre
ok = 0
If ok = 0 Then
f = 6: ok = 1
fenetre$ = "NIVEAU1 (n° 683) -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
f = 3: ok = 1
fenetre$ = "Détail d'un contact -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
f = 4: ok = 1
fenetre$ = "Recherche Client -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
f = 5: ok = 1
fenetre$ = "NIVEAU1 (n° 1049) -- Dialogue de page Web"
AppActivate fenetre$
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
For n = 1 To nbc 'parcours les codes Centres
f = 1: ok = 1
fenetre$ = "NIVEAU1 - " + cc$(n) + " - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France"
AppActivate fenetre$
If ok = 1 Then Exit For
Next n
End If
If ok = 1 Then GoTo trouvé
If ok = 0 Then
For n = 1 To nbc 'parcours les codes Centres
f = 2: ok = 1
fenetre$ = "NIVEAU1 - " + cc$(n) + " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France"
AppActivate fenetre$
If ok = 1 Then Exit For
Next n
End If
If ok = 1 Then GoTo trouvé
On Error Resume Next
AppActivate "Microsoft Excel"
AppActivate "Microsoft Excel - " + ActiveWorkbook.Name
Beep
r = MsgBox("Impossible d'accéder à N1 : Vérifiez si N1 est ouvert sur une fenêtre agrandie et adéquate..." + Chr$(10) + Chr$(10) + "Voulez plus d'information sur la résolution de ce problème ? (Info sur la configuration recommandée)", vbYesNo + vbQuestion, Version$)
If r = 6 Then
m$ = "Recommandation :" + Chr$(10) + Chr$(10)
m$ = m$ + " La fenêtre N1 ne doit pas être réduite. Aussi, vous devez impérativement utilisez la barre des tâches" + Chr$(10)
m$ = m$ + " (ou Alt+Tab) pour basculer de N1 à Excel." + Chr$(10) + Chr$(10) + Chr$(10) + Chr$(10)
m$ = m$ + "La configuration du menu <Préférences> de N1 :" + Chr$(10) + Chr$(10)
m$ = m$ + " Choisissez le menu : Fichier / Préférences de N1" + Chr$(10) + Chr$(10)
m$ = m$ + " - La sélection Automatique doit être cochée." + Chr$(10)
m$ = m$ + " - L'option Position du curseur à l'ouverture doit être reglé sur Référence."
MsgBox m$, vbInformation, Version$
m$ = "Liste des fenêtres N1 reconnues et gérées par le Bouton N1 :" + Chr$(10) + Chr$(10)
m$ = m$ + "- NIVEAU1 - xx - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France" + Chr$(10)
m$ = m$ + "- NIVEAU1 - xx - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France" + Chr$(10)
m$ = m$ + "- Détail d'un contact -- Dialogue de page Web" + Chr$(10)
m$ = m$ + "- Recherche Client -- Dialogue de page Web" + Chr$(10)
m$ = m$ + "- NIVEAU1 (n° 1049) -- Dialogue de page Web" + Chr$(10)
m$ = m$ + "- NIVEAU1 (n° 683) -- Dialogue de page Web"
MsgBox m$, vbInformation, Version$
m$ = "Liste des codes Centres paramétrés pour ce bouton N1 :" + Chr$(10) + Chr$(10)
For n = 1 To nbc
m$ = m$ + Str$(centre(n)) + " -> Correspondance fenêtre N1 : ...NIVEAU1 - " + cc$(n) + "..." + Chr$(10)
Next n
m$ = m$ + Chr$(10) + "Si votre code Centre n'apparait pas ci-dessus : le bouton est mal configuré dans la macro..."
MsgBox m$, vbInformation, Version$
End If
Exit Sub
'--------------------
erreur_fenetre:
ok = 0
Beep
Resume Next
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' PILOTAGE DE N1
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
trouvé:
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 1 Then ' fenetre$ = "NIVEAU1 - Nx - Environnement client - Microsoft Internet Explorer fourni par EDF Gaz de France"
Application.StatusBar = "Recherche Client -- Dialogue de page Web"
SendKeys "%fr", 1
SendKeys "~", 1
sec = 2
fenetre$ = "Recherche Client -- Dialogue de page Web"
On Error GoTo attente_ouverture
tentative1:
AppActivate fenetre$
Application.Wait Now + TimeValue("00:00:02")
If Len(ref$) = 14 Then SendKeys "{tab}", 1
If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then For x = 1 To 3: SendKeys "{tab}", 1: Next x ': Application.Wait Now + TimeValue("00:00:01"):
SendKeys ref$, 1
SendKeys "~", 1
Application.StatusBar = "Recherche Client -- Dialogue de page Web -> TERMINE"
Exit Sub
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 2 Then ' fenetre$ = "NIVEAU1 - Nx - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France"
Application.StatusBar = "NIVEAU1 - " & cc$(n) & " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France"
AppActivate "Microsoft Excel - " + ActiveWorkbook.Name
If Len(ref$) = 14 Then MsgBox "Environnement TGC détecté..." + Chr$(10) + "La TGC ne permet pas d'ouvrir le PDL " + ref$ + ", utiliser plutôt l'environnement Niveau1.", vbExclamation: Exit Sub
If Len(ref$) = 10 And IsNumeric(ref$) Then MsgBox "Environnement TGC détecté..." + Chr$(10) + "La TGC ne permet pas d'ouvrir un PDL ou TELEPHONE (" + ref$ + "), utiliser plutôt l'environnement Niveau1.", vbExclamation, Version$: Exit Sub
If Len(ref$) = 12 Then r = MsgBox("Environnement TGC détecté..." + Chr$(10) + "confirmer la commande FS/" + ref$ + " ?", vbQuestion + vbYesNo, Version$)
If Len(ref$) = 10 And Right$(ref$, 1) = "*" Then ref$ = Left$(ref$, 9) + "/an": r = MsgBox("Environnement TGC détecté..." + Chr$(10) + "confirmer la commande FS/" + ref$ + " ?", vbQuestion + vbYesNo, Version$)
AppActivate fenetre$
If r = 6 Then
Application.Wait Now + TimeValue("00:00:02")
SendKeys "{tab 6}", 1
SendKeys "{down}", 1
SendKeys "+{left 20}", 1
SendKeys "FS/" + ref$ + "~", 1
Application.Wait Now + TimeValue("00:00:04") ' -----------------> 'Bascule de N1 vers TGC
SendKeys "%m", 1
SendKeys "{F9}", 1
End If
Application.StatusBar = "NIVEAU1 - " & cc$(n) & " - Environnement tgc - Microsoft Internet Explorer fourni par EDF Gaz de France -> TERMINE"
Exit Sub
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 3 Then ' fenetre$ = "Détail d'un contact -- Dialogue de page Web"
Application.StatusBar = "Détail d'un contact -- Dialogue de page Web"
SendKeys "{ESC}", 1
Application.Wait Now + TimeValue("00:00:02")
Application.StatusBar = "Détail d'un contact -- Dialogue de page Web -> TERMINE"
End If
If f = 3 Then GoTo début
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 4 Then 'fenetre$ = "Recherche Client -- Dialogue de page Web"
Application.StatusBar = "Recherche Client -- Dialogue de page Web"
If Len(ref$) = 14 Then SendKeys "{tab}", 1
If Len(ref$) = 10 And Right$(ref$, 1) <> "*" Then Application.Wait Now + TimeValue("00:00:01"): For x = 1 To 3: SendKeys "{tab}", 1: Application.Wait Now + TimeValue("00:00:01"): Next x
SendKeys ref$, 1
SendKeys "~", 1
Application.StatusBar = "Recherche Client -- Dialogue de page Web -> TERMINE"
Exit Sub
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 5 Then 'fenetre$ = "NIVEAU1 (n° 1049) -- Dialogue de page Web"
Application.StatusBar = "NIVEAU1 (n° 1049) -- Dialogue de page Web"
SendKeys "~", 1
Application.Wait Now + TimeValue("00:00:03")
Application.StatusBar = "NIVEAU1 (n° 1049) -- Dialogue de page Web -> TERMINE"
End If
If f = 5 Then GoTo début
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If f = 6 Then 'fenetre$ = "NIVEAU1 (n° 683) -- Dialogue de page Web"
Application.StatusBar = "NIVEAU1 (n° 683) -- Dialogue de page Web"
Application.Wait Now + TimeValue("00:00:01")
SendKeys "~", 1
Application.Wait Now + TimeValue("00:00:02")
Application.StatusBar = "NIVEAU1 (n° 683) -- Dialogue de page Web -> TERMINE"
End If
If f = 6 Then GoTo début
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Vous pouvez poursuivre des automatismes complémentaires en saisissant le code supplémentaire ci-dessous :
'(ex : Création / Modif / Suppression d'ac, Création de courrier, etc...)
Exit Sub
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' GESTION DU TEMPS DE REPONSE DU SERVEUR
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
attente_ouverture:
Application.StatusBar = "ATTENTE OUVERTURE" + Str$(sec) + " s : " + fenetre$
Application.Wait Now + TimeValue("00:00:01"): sec = sec - 1
If sec < 0 Then
ActiveWindow.WindowState = xlMaximized
AppActivate "Microsoft Excel - " + ActiveWorkbook.Name
Beep
Application.StatusBar = "L'environnement N1 a été détecté mais impossible de le piloter..."
MsgBox "L'environnement N1 a été détecté mais impossible de le piloter..." + Chr$(10) + Chr$(10) + "Causes possibles :" + Chr$(10) + Chr$(10) + "- Un client est déja ouvert." + Chr$(10) + "- La fenêtre N1 n'est pas en position agrandie (vous devez utilisez <Alt>+<Tab> pour basculer de N1 vers Excel)." + Chr$(10) + "- Serveur trop lent.", vbInformation, Version$
On Error Resume Next
'AppActivate fenetre$
Exit Sub
End If
If f = 1 Then Resume tentative1
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
End Sub
Djnda.xls - Module1 (Code)
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/04/2008 par Jean-Pierre MARTIN
'
Sheets("Djnda").Activate
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Menu").Select
Sheets.Add
Sheets(1).Select
Sheets(1).Name = "Djnda"
Range("A1").Select
'
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDANB.XLS"
Windows("DJNDANB.XLS").Activate
Range("A1").Select
Columns("A:BL").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Application.CutCopyMode = False
Windows("DJNDANB.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDAIB.XLS"
Windows("DJNDAIB.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDAIB.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDAIC.XLS"
Windows("DJNDAIC.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDAIC.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDAIA.XLS"
Windows("DJNDAIA.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDAIA.XLS").Activate
ActiveWorkbook.Close
Workbooks.Open Filename:= _
"Q:\CPCR\OPTIRDV\DJNDANC.XLS"
Windows("DJNDANC.XLS").Activate
Range("A2").Select
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A2:BL20000").Select
Selection.Copy
Windows("Djnda.xls").Activate
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("DJNDANC.XLS").Activate
ActiveWorkbook.Close
Range("A1").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-1],2)"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C21362"), Type:=xlFillDefault
Range("C2:C21362").Select
ActiveWindow.LargeScroll Down:=-33
ActiveWindow.ScrollRow = 1
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]&RC[-3]&RC[-2]&RC[-1]"
Range("F3").Select
Columns("F:F").EntireColumn.AutoFit
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F21983"), Type:=xlFillDefault
Range("F2:F21983").Select
ActiveWindow.ScrollRow = 1
Columns("F:F").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:E").Select
Range("E1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "REF"
Range("A2").Select
Sheets("Menu").Select
Range("A2").Select
End Sub
Djnda.xls - Module 13 (Code)
Sub Filtre_L9_de_la_veille()
'
' Filtre_L9_de_la_veille Macro
' Macro enregistrée le 13/06/2008 par KIC22S
'
'
Sheets("Djnda").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Sheets("Menu").Select
Rows("33:33").Select
Selection.Copy
Sheets("Djnda").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.LargeScroll ToRight:=1
Application.CutCopyMode = False
Cells.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("N1:V2") _
, Unique:=False
Rows("2:2").Select
Range("K2").Activate
Selection.Delete Shift:=xlUp
ActiveWindow.LargeScroll ToRight:=-1
Range("A1").Select
Sheets("Menu").Select
Range("A2").Select
End Sub
Djnda.xls Module14 (Code)
Sub Suppression_AC_agents()
'
' Suppression_AC_agents Macro
' Macro enregistrée le 13/06/2008 par KIC22S
'
'
Rows("2:41").Select
Selection.Copy
Sheets("Djnda").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("I2").Select
Application.CutCopyMode = False
Range("A1:BI22013").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("K1:K41"), Unique:=False
Rows("48:23000").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-12
ActiveSheet.ShowAllData
Range("A1:BN23000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J41"), Unique:=False
Rows("2:23001").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A2").Select
Sheets("Menu").Select
Range("A2").Select
End Sub
Voila , si quelqu'un à le courage de lire tout ça et la capacite de le comprendre ... Chapo
A+
Bonjour,
Je ne comprends pas ta question... Qu'entends tu par "des éléments du presse papier" ??? Utilises-tu le presse papier d'Office ?
m@rina
Je ne comprends pas ta question... Qu'entends tu par "des éléments du presse papier" ??? Utilises-tu le presse papier d'Office ?
m@rina
Non
en fait je me sert d'une page word comme presse papier (toute les phrases que j'utilise y son ecrites ,je les copies et je les colle quand j'en ai besoin)
en fait je me sert d'une page word comme presse papier (toute les phrases que j'utilise y son ecrites ,je les copies et je les colle quand j'en ai besoin)
Je pense que ta solution passe par le presse-papier Office. J'ai tout expliqué ici :
http://faqword.fr/...
Sinon, s'il s'agit uniquement de Word, il faut utiliser les insertions automatiques, c'est bien plus pratique.
m@rina
http://faqword.fr/...
Sinon, s'il s'agit uniquement de Word, il faut utiliser les insertions automatiques, c'est bien plus pratique.
m@rina
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Non ça ne marche pas car j'utilise Word 2000 et en plus je copie sur Word et je colle dans une base de donnée sur internet explorer 6
En réfléchissant un peu je me suis dit que ça devait etre réalisable avec des macros (une macro pour chaque phrase à copier), mais les macros pour moi c'est du chinois ...
En réfléchissant un peu je me suis dit que ça devait etre réalisable avec des macros (une macro pour chaque phrase à copier), mais les macros pour moi c'est du chinois ...
Bonjour,
Ah oui, tu n'avais pas tout dit !!! :D
Non, les macros, c'est du VBA, et ça ne fonctionne qu'avec Office, pas avec IE.
m@rina
Ah oui, tu n'avais pas tout dit !!! :D
Non, les macros, c'est du VBA, et ça ne fonctionne qu'avec Office, pas avec IE.
m@rina