Pb macro
Résolu
leroy
-
leroy -
leroy -
Bonjour,
J'ai une macro qui ouvre un certain de nombre fichier excel et dans lesquels elle copie des informations. Le problème que je rencontre est que la macro va chercher dans des onglets qui porte un certain nom "Toto" et que dans certain fichiers l'onglet de ce nom n'existe pas. Je voudrai savoir comment dire à la macro que lorsqu'elle ouvre le fichier et qu'elle ne trouve pas l'onglet qui porte le nom "toto" elle passe au suivant fichier.
Merci de votre aide
J'ai une macro qui ouvre un certain de nombre fichier excel et dans lesquels elle copie des informations. Le problème que je rencontre est que la macro va chercher dans des onglets qui porte un certain nom "Toto" et que dans certain fichiers l'onglet de ce nom n'existe pas. Je voudrai savoir comment dire à la macro que lorsqu'elle ouvre le fichier et qu'elle ne trouve pas l'onglet qui porte le nom "toto" elle passe au suivant fichier.
Merci de votre aide
A voir également:
- Pb macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
4 réponses
bonjour,
pour essayer d'être efficace, montres nous le bout de macro où tu vas chercher le fichier et l'onglet "toto"
pour essayer d'être efficace, montres nous le bout de macro où tu vas chercher le fichier et l'onglet "toto"
Workbooks.Open Filename:="Y:\Titi\Tata.xls"
Sheets("Toto").Activate
Range("B12:AF50").Select
Selection.Copy
Windows(fichier de récupération).Activate
Sheets("Toto détail").Activate
Range("C2:AG40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci de votre aide
Sheets("Toto").Activate
Range("B12:AF50").Select
Selection.Copy
Windows(fichier de récupération).Activate
Sheets("Toto détail").Activate
Range("C2:AG40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci de votre aide
Bonjour,
il faut que tu intègres ce bout de code :
for i = 1 to worksheets.count
if sheets(i).name = "toto" then
'fais les actions à mener
end if
next i
ce devrait donner ca :
Workbooks.Open Filename:="Y:\Titi\Tata.xls"
for i = 1 to worksheets.count
if sheets(i).name = "toto" then
Sheets("Toto").Activate
Range("B12:AF50").Select
Selection.Copy
Windows(fichier de récupération).Activate
Sheets("Toto détail").Activate
Range("C2:AG40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end if
next i
il faut que tu intègres ce bout de code :
for i = 1 to worksheets.count
if sheets(i).name = "toto" then
'fais les actions à mener
end if
next i
ce devrait donner ca :
Workbooks.Open Filename:="Y:\Titi\Tata.xls"
for i = 1 to worksheets.count
if sheets(i).name = "toto" then
Sheets("Toto").Activate
Range("B12:AF50").Select
Selection.Copy
Windows(fichier de récupération).Activate
Sheets("Toto détail").Activate
Range("C2:AG40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end if
next i